Passer d'une macro à l'autre.

[JB]

Bonjour à tous,

Lorsque j'ai des macro à partir d'un bouton, pour passer de la macro1 lié à ce bouton, je fais call macro2... jusque la ça marche. Mais j'ai créer un Userform dans lequel il y a un bouton qui est lié à Private Sub CommandButton1_Click(). Lorsque je veux passer de CommandButton1_Click()à macro3 par exemple ça ne marche pas. Avez vous des proposition à me faire.

Exemple :

Private Sub CommandButton1_Click()
'Selectionne le 1er lot
If Range('I20').Value = '' Then Call macro3
ligne = Range('I20')
ligne2 = Range('I21')
Range('A4:' & ligne & ',aw4:' & ligne2).Select
Selection.Copy

Call macro3
End Sub
Private Sub macro3()

J'espère avoir été clair!
Merci pour vos réponses

 

[porcinet82]

Salut JB,

Je vois dans ton exemple que tu as la ligne

Private Sub macro3()

Il te suffit de mettre le code suivant a la place et ca devrait fonctionner:

Sub macro3()

@+

 

[Jb]

Salut Porcinet82,

merci pour ta réponse, mais le private ne résous pas le problème. La macro reste toujours à la fin de Private Sub CommandButton1_Click() et ne passe pas à macro 3.
A+

 

[porcinet82]

re,

Excuse, je me suis un peu enflammer sur ce coup la. En fait tu dis que ca marche pas, mais quelle en est la raison, ce ne serait pas une erreur dans ton code?
Chez moi, j'ai une erreur dans ton code sur la ligne :

Range('A4:' & ligne & ',aw4:' & ligne2).Select

En fait tu as oublier les lettres, donc il faut le modifier comme ceci :
Range('A4:A' & ligne & ',aw4:aw' & ligne2).Select

Tiens moi au courant si ca ne fonctionne toujours pas.

@+

Message édité par: porcinet82, à: 10/02/2006 17:42

 

[jb]

Non mon code est bon car en ligne tu as
=SI(G4='';'';'H'&3+NB($G$4:$G$13))
c'est donc bien le fait de passer d'une macro à l'autre qui bug...
Désoler je dois quitter le bureau. Bon week end et à lundi pour reprendre cette discusion sur ce fil j'espère...
JB

 

[porcinet82]

Salut JB,

Et bien je ne vois pas trop d'ou l'erreur peut provenir. Peut etre qu'en mettant un bout de ton fichier en piece jointe pourrait aider a la compréhension.

@+