Discussion :

[nanu]

Bonjour à tous,
Je débute en VBA et j'aimerai que lorsque je clique sur un bouton une Sub soit lancée.
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub maSub()
    MsgBox ("ok")
End Sub
Private Sub btMove_Click()
    maSub()
End Sub

Mais le problème c'est que j'ai une erreur de synthaxe, VBA attend un =
Merci de votre aide.
Manu

[cboudy]

pour appeler la routine il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
call maSub

[SfJ5Rpw8]

ou ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
masub

[nanu]

Merci vous 2, ça fonctionne.
Par contre j'aurai une dernière question.
Pour quoi j'ai une erreur de type non défini ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub maSub(begin As Cells, destination As Cells)
    MsgBox (begin.Value)
End Sub
Private Sub btMove_Click()
     Call maSub(Cells(tBegin.Text), Cells(tDestination.Text))
End Sub

Merci

[SfJ5Rpw8]

ben Cells n'est qu'une propriétés.. pas un objet (ni autre type de variable..)

utilise range..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Sub maSub(begin As range, destination As range)