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