sgangbadjo
XLDnaute Nouveau
Bonsoir L'equipe
Please, SOS pour l'amelioration du Code ci-dessous. Apres le Deuxième Msgbox, j'ai inseré GoTo pour retouner au debut du Userform. Mais malheureusement, cette syntaxe aboutie a une boucle interminable qui ne donne pas la possibilité à l'utilisateur d'abandonner et de quitter le Userform:
Please help, je suis a mes débuts
Please, SOS pour l'amelioration du Code ci-dessous. Apres le Deuxième Msgbox, j'ai inseré GoTo pour retouner au debut du Userform. Mais malheureusement, cette syntaxe aboutie a une boucle interminable qui ne donne pas la possibilité à l'utilisateur d'abandonner et de quitter le Userform:
Please help, je suis a mes débuts
Code:
Private Sub UserForm_Activate()
Dim F1 As Worksheet
Set F1 = Sheets("TRACKING")
line1:
ligne = InputBox("Quel est le numéro de la ligne de la réquisition")
If IsNumeric(ligne) = False Then
MsgBox ("Veuillez saisir une valeur en format numerique")
GoTo line1:
End If
With F1
If ligne > (F1.Range("A" & .Rows.Count).End(xlUp).Row) Then
MsgBox "Vous devez saisir le numéro d'ordre d'une transaction existante dans la base de données"
GoTo line1:
Else
Me.TextBox1.Value = F1.Cells(ligne + 1, 3).Value
Me.TextBox2.Value = F1.Cells(ligne + 1, 4).Value
End If
End With
End Sub