supprimer ligne à partir d'une combobox

[terpick]

Bonsoir, le Forum !

J'ai fabriqué qques Macros pour supprimer une ligne à partir d'un choix dans Combobox:

Option Explicit




Private Sub cocomdSupprimer_Click()

Dim a As Long

For a = 3 To Range("A100").End(xlUp).Row
If Format(Sheets("Arbre").Cells(a, 1).Value, ">") = Format(UserForm1.ComboBox1.Value, ">") Then
Sheets("Arbre").Rows(UserForm1.ComboBox1.ListIndex).Delete

End If

Exit For

Next a

End Sub


Private Sub UserForm_Initialize()
Sheets("Arbre").Activate

Dim DerCell As String
DerCell = Range("A3").End(xlDown).Address
ComboBox1.RowSource = "A3:" & DerCell
End Sub

Private Sub CommandButton1_Click()
Unload Me
Sheets("accueil").Select
End Sub


Mais rien ne se passe.
Peut être avec l'oeuil d'un spécialiste, l'erreur n'est pas difficile à détecter ?

Merci d'avance

Bonne soirée

 

[fhoest]

Re : supprimer ligne à partir d'une combobox

Bonsoir,
es tu sur de ta valeur

Sheets("Arbre").Rows(UserForm1.ComboBox1.ListIndex ).Delete

si le premier éléments est sélectionner tu demande d'effacer la ligne 0
elle n'existe pas
tu dois au minimum mettre:

Sheets("Arbre").Rows(UserForm1.ComboBox1.ListIndex +1).Delete

ce qui correspondra à la ligne 1 à effacer
tu peux aussi utiliser le mode debbugage (F8) pas a pas du code
pour connaitre tes valeurs tu selectionne la valeur complete dans le code en mode debuggage clique droit puis ajouter un espion tu auras alors la lecture des valeurs en temps reel du passage de la ligne de code
F5 pour aller au point d'arret suivant ou relancer le tout sans arret
A bientot.

 

[terpick]

Re : supprimer ligne à partir d'une combobox

Bonsoir, fhoest!

Merci pour votre réponse.
Je vais suivre vos conseils.
En effet, j'étais persuadé que la formule

Sheets("Arbre").Rows(UserForm1.ComboBox1.ListIndex ).Delete

supprime la ligne qui est sélectionnée dans ComboBox: Rows(UserForm1.ComboBox1.ListIndex )

Comme d'hab, je me suis trompé, houf

A+

 

[terpick]

Re : supprimer ligne à partir d'une combobox

Bon soir, fhoest!

J'ai trouvé la solution su le Forum - il marche maintenant, mon truc.

Merci beaucoup pour le coup de main !
A +