× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Pourquoi, je n'arrive pas à avoir la même chose ?Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Saturnien
  Posté le 15/09/2010 @ 08:15 
Aller en bas de la page 
Astucien

Bonjour,

J'ai fait un copier-coller de la plage B1:B15 en D1:D15.

J'ai recopié aussi le module1 en module 2.

J'ai changé toutes les adresses de cellules.

Mais après plusieurs heures d'essais, ça ne foncionne pas, en plus se sont des codes très faciles.

Quelqu'un peut-il m'aider ?

Joint fichier : http://www.cijoint.fr/cjlink.php?file=cj201009/cijMImKiuV.xls

Merci de votre aide.

Guy



Modifié par Saturnien le 15/09/2010 08:16
Publicité
usularrakis
 Posté le 15/09/2010 à 08:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

vu le script de tes macros (les "Private sub") il y a des apostrophes devant certaines lignes (celles qui apparaissent en vert) ce qui fait que la macro ne les prends pas en compte et donc ne fonctionne pas

il y a surement d'autres choses mais je n'ai pas le temps de regarder tout de suite



Modifié par usularrakis le 15/09/2010 08:41
Saturnien
 Posté le 15/09/2010 à 09:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Les lignes en vert, c'est normale.

La 1ère ligne verte ne sert à rien, car la mocro Copie est à supprimer

La 2ème ligne, c'est la même chose. Sinon, j'ai le message "Nom ambigu".

usularrakis
 Posté le 15/09/2010 à 10:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Saturnien a écrit :

La 2ème ligne, c'est la même chose. Sinon, j'ai le message "Nom ambigu".

ben oui tu as 2 "private sub" qui portent le même non !

Saturnien
 Posté le 15/09/2010 à 10:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Je suis d'accord, mais que dois-je faire pour éviter ça ?

il me semble que je ne peut pas changer le nom dans :

Private Sub Worksheet_Change(ByVal Target As Range).



Modifié par Saturnien le 15/09/2010 10:56
Saturnien
 Posté le 15/09/2010 à 12:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

j'ai trouvé.

Il suffisait de supprimer "Exit Sub".

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
19,99 €Souris gamer Logitech MX518 à 19,99 €
Valable jusqu'au 25 Novembre

Boulanger fait une promotion sur la réédition Legendary de la souris Logitech MX518 qui passe à 19,99 € alors qu'on la trouve ailleurs à 45 €. Cette très bonne souris dédiée aux joueurs dispose d'un capteur optique très précis Hero 16000 DPI, 8 boutons programmables et une mémoire permettant de sauvegardera 5 profils d'utilisation différents. 


> Voir l'offre
168,78 €Disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 168,78 € livré
Valable jusqu'au 25 Novembre

Amazon Allemagne propose actuellement le disque dur externe Western Digital Elements Desktop USB 3.0 10 To à 162,35 € (avec la TVA ajustée) grâce à un code promo automatiquement appliqué au moment du paiement. Comptez 6,43 € pour la livraison en France soit un total de 168,78 € livré. On le trouve ailleurs à partir de 200 €. Ce disque dur dispose d'un grande capacité de stockage (10 To) et d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire. Notez que le disque dur n'est pas soudé et que vous pouvez le récupérer pour l'utiliser dans un ordinateur ou un NAS (il s'agit d'un disque dur CMR UltraStar DC HC 510).

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
GratuitJeu PC Elite Dangerous gratuit
Valable jusqu'au 26 Novembre

Epic Game Store offre actuellement le jeu PC Elite Dangerous. Prenez le contrôle de votre vaisseau dans une galaxie impitoyable. Elite Dangerous est l'ultime épopée spatiale massivement multijoueur, la version nouvelle génération de la première aventure en monde ouvert du jeu vidéo avec des trames scénaristiques évolutives et l'intégralité ...PEGI 7.


> Voir l'offre

Sujets relatifs
Word n'imprime pas la même chose qu'à l'écran!
Avoir même liste contacts sur plusieurs ordis/WLM?
avoir le même bandeau sur tous les slides
nb de liens dans une plage appartennant à la même ligne Horiz. ou verti...
HotShots, Je dois être nul, je n'y arrive pas!!!
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Je n'arrive plus à insérer une image dans Word 2007
Je n'arrive plus à cliquer mes mails ?
Pourquoi cette fenêtre dans Word 2007
2 formats texte sur un même pc
Plus de sujets relatifs à Pourquoi, je n''arrive pas à avoir la même chose ?
 > Tous les forums > Forum Bureautique