Bonjour,
Je vous sollicite car je n'arrive décidément pas à trouver une solution.
Je souhaite réaliser une boucle pour qui teste chaque ligne et selon différentes conditions, ouvre un userform. L'utilisateur choisi alors entre oui non et abandon. Selon son choix, différentes actions sont réalisées.
Je bloque pour déclarer le clic sur le button "oui" par exemple (ligne soulignée).
Pouvez vous m'aider à la mise en forme de ce code s'il vous plait...
Merci d'avance
Private Sub UserForm()
Dim compteur As Integer
Dim oui As Boolean
oui = False
Num = Sheets("base_donnees").Range("B65536").End(xlUp).Row + 1
Sheets("base_donnees").Activate
For compteur = 2 To Num
If Range("J" & compteur).Value = " " Then
If Range("I" & compteur).Value = " " Then
intro.Caption = "Le devis n° " & Range("A" & compteur).Value & " a-t-il été envoyé ?"
datej.Caption = Range("B" & compteur).Value
...
If oui_click Then
Msg box("oui")
Next compteur
End If
If non_click Then
suite ...
End If
End If
End If
End Sub
Je vous sollicite car je n'arrive décidément pas à trouver une solution.
Je souhaite réaliser une boucle pour qui teste chaque ligne et selon différentes conditions, ouvre un userform. L'utilisateur choisi alors entre oui non et abandon. Selon son choix, différentes actions sont réalisées.
Je bloque pour déclarer le clic sur le button "oui" par exemple (ligne soulignée).
Pouvez vous m'aider à la mise en forme de ce code s'il vous plait...
Merci d'avance
Private Sub UserForm()
Dim compteur As Integer
Dim oui As Boolean
oui = False
Num = Sheets("base_donnees").Range("B65536").End(xlUp).Row + 1
Sheets("base_donnees").Activate
For compteur = 2 To Num
If Range("J" & compteur).Value = " " Then
If Range("I" & compteur).Value = " " Then
intro.Caption = "Le devis n° " & Range("A" & compteur).Value & " a-t-il été envoyé ?"
datej.Caption = Range("B" & compteur).Value
...
If oui_click Then
Msg box("oui")
Next compteur
End If
If non_click Then
suite ...
End If
End If
End If
End Sub
Dernière édition: