Re : Modifier supprimer userform
Benoît,
Merci pour ton aide, je viens de tester le fichier, tu as repris tout le code...
les fonctions Ajouter et Supprimer sont parfaites
Pour les modifications j’obtiens une erreur d'exécution '1004', avec un arrêt sur la ligne ".Cells(i, j).Value = Donn(j)"
Sub Modif()
Dim i As Integer
Dim j As Integer
Select Case Mode
Case 0
i = d1(Cb01.Text)
Case 1
i = lRess + 1
End Select
With ShRess
For j = 1 To 42
.Cells(i, j).Value = Donn(j)
Next j
End With
Unload Me
End Sub