cathodique
XLDnaute Barbatruc
Bonjour,
par l'entremise d'une userfrom j'effectue des modifications de données d'une feuille excel. étant débutant je sèche. Je voudrais faire un test sur 3 textbox: si la textbox est vide ou identique à celle qui se trouve sue la feuille, on affiche un msgbox invitant l'utilisateur à saisir une valeur mais s'il y a une valeur la mise sur la feuille s'effectue, puis on passe au test de la textbox suivante.
voici mon code, j'ai une erreur de compilation avec arrêt sur la ligne "suite1:"
Sub ou Fonction non définie, j'ai consulté l'aide mais je n'ai pas bien compris.
.
Je vous remercie pour votre aide.
Cordialement,
par l'entremise d'une userfrom j'effectue des modifications de données d'une feuille excel. étant débutant je sèche. Je voudrais faire un test sur 3 textbox: si la textbox est vide ou identique à celle qui se trouve sue la feuille, on affiche un msgbox invitant l'utilisateur à saisir une valeur mais s'il y a une valeur la mise sur la feuille s'effectue, puis on passe au test de la textbox suivante.
voici mon code, j'ai une erreur de compilation avec arrêt sur la ligne "suite1:"
Sub ou Fonction non définie, j'ai consulté l'aide mais je n'ai pas bien compris.
Code:
Private Sub Cmd_validation_Click() 'validation correction
If TextBox1.Value = "" Then
MsgBox "Aucune sélection!"
Exit Sub
Else
With Sheets("Profil")
Set c = Sheets("Profil").[A:A].Find(what:=Me.ListBox1)
Sheets("Profil").Cells(c.Row, 2) = Me.TextBox2
Sheets("Profil").Cells(c.Row, 3) = Me.TextBox3
Sheets("Profil").Cells(c.Row, 6) = Me.TextBox6
Sheets("Profil").Cells(c.Row, 8) = Me.TextBox8
suite1
If Me.TextBox4.Value = Sheets("Profil").Cells(c.Row, 4) And Me.TextBox4.Value = "" Then
MsgBox " Saisir une valeur"
GoTo suite1
Else
Sheets("Profil").Cells(c.Row, 4) = CCur(Me.TextBox4.Value)
End If
suite2
If Me.TextBox5.Value = Sheets("Profil").Cells(c.Row, 5) And Me.TextBox5.Value = "" Then
MsgBox "Saisir un type"
GoTo suite2
Else
Sheets("ProfilPipe").Cells(c.Row, 5) = Me.TextBox5
End If
suite3
If Me.TextBox7.Value = Sheets("Profil").Cells(c.Row, 7) And Me.TextBox7.Value = "" Then
MsgBox "Saisir une valeur"
GoTo suite3
Else
Sheets("ProfilPipe").Cells(c.Row, 7) = CCur(Me.TextBox7)
End If
End With
End If
MsgBox "Mise à jour terminée!"
End Sub
Je vous remercie pour votre aide.
Cordialement,