Re Steve, vite fait du bureau
C'est pas mes If !!! ce sont les tiens !!
Mais d'ailleurs ...
SI tu ne suis même pas les conseils que l'on te donne ENSUITE
tu ne progresseras vraiment pas vite en VBA
AUTREMENT ce n'est pas en en copiant/collant des codes bout à bout puis en s'exclamant "çà ne marche pas" que tu progresseras aussi...
FIN DE SI
Dans mon post d'hier soir je t'ai pourtant expliqué un truc :
"Call 2001 et 2002 tu as des macro nommées comme celà ?"
puis dans mon exemple, si tu avais fait attention je les nomme
Call Macro2001 / Macro2002... (faut qu'elles soient bien sûr existantes et nommées tel quel !)
Mais aujourd'hui je vois ce que tu n'as rien changé... et il semble bien que tu n'as pas vraiment même essayé de comprendre.
Tu ne peux nommer des macro avec des chiffres, tu dois avoir ton débugeur dans le module VBA qui doit se mettre en rouge sur la ligne dès que tu tapes çà... !
Donc déjà c'est là que çà plante. (entre autre !)
Ensuite le Case Select est utile pour définir des cas sur une variété de possibilités plutôt que de faire un cascade de IF... Mais si tu n'as qu'un choix un IF est parfait.
D'ailleurs tu as déjà des IF dans ton propre code, il faut essayer de comprendre ce que tu écris Steve, sinon dans 15 mois tu seras toujours au même niveau qu'à 15 jours.
Par Exemple au lieu de :
If Isect Is Nothing Then Exit Sub
Tu pourrais avoir un message :
If Isect Is Nothing Then
MsgBox "Il n'y a pas d'intersection entre les deux cellules"
Exit Sub
End If
Voilà, je pense que tu devrais être plus patient en tous les cas... Les "çà ne marche pas" ne feront pas marcher ta macro... Mais la patience oui...
Imagines-tu combien de messages du Debugeur nous avons durant chaque dévelopement pour des gens comme Ti ou moi (sûrement plus moi !! lol) ce n'est pas pour çà que nous baissons les bras... on essaie de comprendre de reprendre à zéro etc... Si çà plante c'est que c'est nous qui avons merdé quelque part, et il faut tranquilement trouver... Ptet que tu t'attaques à une macro un peu élevée pour un niveau débutant, commence par des trucs plus simples... C'est un conseil sinon tu risque d'être vite découragé...
Tu as du pain sur la planche Steve.
Reprends calmement tout ce code...
Renomme tes macros 2001 et 2002 en M2001 et M2002 (si çà te plait)
et change déjà le call 2001 en call M2001
et dis nous ce qui plante encore...
On verra ce que l'on peut faire
@+Thierry