XL 2010 Recherche solution Macro

[filtre69]

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

 

[filtre69]

Bonjour youky, le forum

J'ai une erreur d'exécution '13': Incompatiblé de type quand je supprime un agent.

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
TextBox1 = "": TextBox2 = "": TextBox3 = ""
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
End If
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
lig = Application.Match(ComboBox1, Feuil113.[C:C], 0)

--> If Cells(lig + 8, 3) = ComboBox1 Then Opt_Ast_Oui = True

If Cells(lig + 9, 3) = ComboBox1 Then Opt_Gou_Oui = True
TextBox1 = Cells(lig, 1): TextBox2 = Cells(lig, 2): TextBox3 = ComboBox1
End Sub
Encore grand merci a vous tous

 

[youky(BJ)]

Hé oui!!!!
A modifier comme ceci
Bruno

Private Sub ComboBox1_Change()
If ComboBox1 = "" Then
TextBox1 = "": TextBox2 = "": TextBox3 = ""
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
End If
Opt_Ast_Oui = False: OpNon = False: Opt_Gou_Oui = False: OptGNon = False
lig = Application.Match(ComboBox1, Feuil113.[C:C], 0)
If IsNumeric(lig) Then
If Cells(lig + 8, 3) = ComboBox1 Then Opt_Ast_Oui = True
If Cells(lig + 9, 3) = ComboBox1 Then Opt_Gou_Oui = True
TextBox1 = Cells(lig, 1): TextBox2 = Cells(lig, 2): TextBox3 = ComboBox1
End If
End Sub

 

[filtre69]

Alors la chapeau Je tiens à vous dire bravo, un super méga MERCI à vous tous pour le temps et la patience que vous passer avec des personnes nulles comme moi.
Encore grand merci à vous
Je test bien le tableau et je marque résolu des que j'ai finir.
Codialement

 

[filtre69]

Bonjour youky, le forum
Je reviens vers vous car le tableau à un petit soucie.
Je m'explique je rentre les données d'un agent tout va bien si je modifie l'astreinte ou le goudron tout s'efface et là ce n'est pas bon.
Auriez-vous une solution?
Merci
Cordialement

 

[filtre69]

Bonjour le Forum,
J'ai un problème avec mon fichier tout fonctionne très bien sauf quand je modifie l'astreinte ou le goudron toute les données rentrées s'efface.
Pouvez-vous m'aider j'arrive pas a comprendre la macro elle est trop compliqué pour moi.

Merci d'avance de votre aide.
Cordialement