Bonsoir tout le monde,
J'ai un soucis avec ce code:
Private Sub Modification_Click()
Dim i As Integer
Dim Modification As Integer
'Modification = ID.Value
With ThisWorkbook.Sheets("Feuil2")
For i = Range("A" & .Rows.coumt).End(xlUp).Row To 2 Step -1
If Range("A" & i).Value = Modification Then
'Range("A" & i).Value = ID.Value
Range("B" & i).Value = Nom.Value
Range("C" & i).Value = Prenom.Value
Range("D" & i).Value = TelFix.Value
Range("E" & i).Value = TelMob.Value
Range("F" & i).Value = Adresse.Value
Range("G" & i).Value = Ville.Value
Range("H" & i).Value = CodPost.Value
Unload UserForm
End If
Next i
End With
End Sub
issus de ce tutoriel: https://www.youtube.com/watch?v=WixdiQXxGFk
Après avoir mis en commentaire les lignes qui me signalaient une "erreur de compilation: Variable non définie", le formulaire fonctionnait bien jusqu'au moment du clic de validation.
Là, se produit une erreur '438' sur la ligne en rouge...!
quelqu'un a-t-il une idée?
je joint mon fichier pour voir le contexte.