Bonjour @ tout le forum
Je n'arrive pas à trouver la solution pour supprimer par la combobox plusieurs lignes.
Je pense avoir une idée mais je ne sais pas la créer.
Je m'explique : dans mon tableau chaque agent que je crée par userform excel ajoutent 8 lignes tout fonctionne très bien ( grand merci à Natorp pour son aide)
mais quand je veux supprimer un agent par userform par le bouton supprimer je n'arrive pas à lui faire supprimer les lignes mais une par une j'arrive.
j'ai pensé à une recherche puis il supprimerait les lignes mais je ne suis pas cale en Vba.
Merci d'avance pour votre aide
Private Sub Supprimer_Click()
If ComboBox1.Value = "" Then
MsgBox ("Veuillez selectionné le Nom/Prénom de la personne a suprimer")
Else
If MsgBox("confirmez-vous la supression de cette personne ?", vbYesNo, "confirmation") = vbYes Then
Rows([C13:C65536].Find(ComboBox1.Value).Row).EntireRow.Delete
End If
End If
End Sub
Je n'arrive pas à trouver la solution pour supprimer par la combobox plusieurs lignes.
Je pense avoir une idée mais je ne sais pas la créer.
Je m'explique : dans mon tableau chaque agent que je crée par userform excel ajoutent 8 lignes tout fonctionne très bien ( grand merci à Natorp pour son aide)
mais quand je veux supprimer un agent par userform par le bouton supprimer je n'arrive pas à lui faire supprimer les lignes mais une par une j'arrive.
j'ai pensé à une recherche puis il supprimerait les lignes mais je ne suis pas cale en Vba.
Merci d'avance pour votre aide
Private Sub Supprimer_Click()
If ComboBox1.Value = "" Then
MsgBox ("Veuillez selectionné le Nom/Prénom de la personne a suprimer")
Else
If MsgBox("confirmez-vous la supression de cette personne ?", vbYesNo, "confirmation") = vbYes Then
Rows([C13:C65536].Find(ComboBox1.Value).Row).EntireRow.Delete
End If
End If
End Sub