salhisarra
XLDnaute Nouveau
Bonjour voila je souhaiterai faire un formulaire dans lequel je peux supprimer ou modifier un contact, j'ai un petit problème avec c'est fonction pour Modifier j'ai débutais comme ceci
Private Sub CommandButton2_Click() 'Modifier
Dim Nb%, Y%, i%, X%
Dim Element_Select As Boolean
Element_Select = False
Nb = Sheets("Feuill2").Range("R1").Value '' Nb=NBVAL(B2:B100)
X = 2
'------------- Modification coordonnées client ------------------
For i = 0 To Nb - 1
If UserForm1.ListBox1.Selected(i) = True Then
Element_Select = True
Sheets("Feuill2").Activate
Sheets("Feuill2").Range("B" & i + X).Select
For Y = 0 To 4
Range("B" & i + X).Offset(0, Y).Value = Controls("Textbox" & Y + 1).Value
Next
End If
j'ai remarqué qu'il y avait un décalage, car je part du numéro sélectionner par rapport a la liste, de même pour la fonction supprimer :
Private Sub CommandButton3_Click()
With Sheets("Feuill2")
For i = 0 To Nb - 1
If UserForm1.ListBox1.Selected(i) Then
Rows(i+2).Delete
End If
je n'arrive pas a debloquer pourriez vous m'aider svp
Private Sub CommandButton2_Click() 'Modifier
Dim Nb%, Y%, i%, X%
Dim Element_Select As Boolean
Element_Select = False
Nb = Sheets("Feuill2").Range("R1").Value '' Nb=NBVAL(B2:B100)
X = 2
'------------- Modification coordonnées client ------------------
For i = 0 To Nb - 1
If UserForm1.ListBox1.Selected(i) = True Then
Element_Select = True
Sheets("Feuill2").Activate
Sheets("Feuill2").Range("B" & i + X).Select
For Y = 0 To 4
Range("B" & i + X).Offset(0, Y).Value = Controls("Textbox" & Y + 1).Value
Next
End If
j'ai remarqué qu'il y avait un décalage, car je part du numéro sélectionner par rapport a la liste, de même pour la fonction supprimer :
Private Sub CommandButton3_Click()
With Sheets("Feuill2")
For i = 0 To Nb - 1
If UserForm1.ListBox1.Selected(i) Then
Rows(i+2).Delete
End If
je n'arrive pas a debloquer pourriez vous m'aider svp