Discussion :

[buzzyny]

Bonjour tout le monde.

Petite question :

J'utilise une Msgbox de la maniere suivante (voir en gras)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton3_Click()

Dim Plage As Range
Set Plage = Range("C2:C65536").Find(TextBox15.Value)

If Plage Is Nothing Then

TextBox17.Value = "No Match"

Else

TextBox1.Value = Cells(Plage.Row, 1).Value

Do Until Plage Is Nothing

If MsgBox("Suivant", vbYesNo + vbInformation) = vbNo Then Exit Do

Set Plage = Range("C2:C65536").FindNext(Plage)

TextBox1.Value = Cells(Plage.Row, 1).Value

Plage.Select

Loop

End If

End Sub

Je souhaite supprimer cette ligne

Code :

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

If MsgBox("Suivant", vbYesNo + vbInformation) = vbNo Then Exit Do

pour ne plus utiliser de MsgBox mais un CommandButton.

Un truc du genre

Code :

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

if CommandButton = Not Click Then Exit Do

et si c"est CommandButton = Click alors ca donne le meme resultat que la msgbox.

Merci pour votre aide

[Blord]

Bonjour,

En VBA, si on utilise un bouton, une action se déclenche avec un click sur le bouton, le système ne peut pas "deviner" un "non-click" sur le bouton et déclencher une action !

Blord