Combobox

Bonjour,

Je me permet de vous faire part de mon problème afin d'obtenir un peut d'aide.

J'ai réalisé un fichier Excel composé de deux tableaux :

• Un premier recensent des élèves.
• Un second des profs.

Chaque colonnes des tableau est nommé en fonction de son utilité.

J'ai réalisé une interface graphique comportant une combobox ayant comme valeurs les noms des élevés.

Je souhaiterais que quand je sélectionne une valeur de ma combobox toutes les lignes de mes tableaux sauf les titres et la ligne en rapport avec ma valeur de ma combobox soit supprimer.

J'ai réussi à faire un code permettant de supprimer toutes les ligne d'une colonne x mais je n'arrive pas à inclure de conditions afin d’exprimer mon besoin de ne pas supprimer la ligne en rapport avec la valeur de ma combobox...

Je vous remercie donc d'avance pour votre aide, un fichier est disponible en PJ et je reste à votre entière disposition pour toutes questions.

Bonjour

Mets ce code dans ton USF

Private Sub B_Test_Click()
'Dan pour Mica 81
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & i) <> ComboBox1 Then Rows(i).EntireRow.Delete
Next
End Sub

Une fois la combo complétée, clique sur ton bouton

Si ok, lors de ta réponse, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Dan a écrit :

Bonjour

Mets ce code dans ton USF

Private Sub B_Test_Click()
'Dan pour Mica 81
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & i) <> ComboBox1 Then Rows(i).EntireRow.Delete
Next
End Sub

Une fois la combo complétée, clique sur ton bouton

Si ok, lors de ta réponse, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Bonjour et merci pour ton aide.

Hors cela ne fonctionne pas car ce code efface les titres de mon tableau et double le résultat final...

Enfaite du coup c'est mon fichier de test qui ne vas pas... Je suis désolé en voici un plus adapté je vais essayé d'adapté ton code dessus

Re,

Ben oui si tu me donnes pas un bon fichier...

A la vue de ton code, c'est de la couleur qu'il faut ou supprimer une ligne ??

Là aussi tu as deux tableaux et pas 1. Si on doit supprimer toutes les lignes, on laisse le titre ou pas ??

sinon pour mettre en rouge

Private Sub B_Test_Click()
'Dan pour Mica 81
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & i) <> ComboBox1 And UCase(Range("A" & i)) <> "NOM" Then _
        Range("A" & i & ":B" & i).Interior.ColorIndex = 3
Next
End Sub

A te relire

Dan a écrit :

Re,

Ben oui si tu me donnes pas un bon fichier...

A la vue de ton code, c'est de la couleur qu'il faut ou supprimer une ligne ??

Là aussi tu as deux tableaux et pas 1. Si on doit supprimer toutes les lignes, on laisse le titre ou pas ??

sinon pour mettre en rouge

Private Sub B_Test_Click()
'Dan pour Mica 81
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & i) <> ComboBox1 And UCase(Range("A" & i)) <> "NOM" Then _
        Range("A" & i & ":B" & i).Interior.ColorIndex = 3
Next
End Sub

A te relire

C'est bien une suppression qu'il faut mais je test avec de la couleur à la place d'un delete sa m'évite de refaire le tableau à chaque fois que je me trompe.

En effet il y à bien deux tableau et je souhaiterais garder les titres, c'est dans cet option là que j'avais nommer les colonnes j'ai donc éssayer d'adapter ton code comme ceci :

'Dan pour Mica 81
For i = Range("Liste_Prenom" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("Liste_Prenom" & i) <> ComboBox1 Then Rows(i).EntireRow.Delete
Next

Mais sa ne fonctionne pas.

Merci pour ton aide et encore désolé pour l'erreur de fichier du début.

Private Sub B_Test_Click()
'Dan pour Mica 81
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & i) <> ComboBox1 And _
        UCase(Range("A" & i)) <> "NOM" And _
        Not IsEmpty(Range("A" & i)) Then _
        Rows(i).EntireRow.Delete
Next
Unload UserForm1
End Sub

Pas besoin de nommer tes colonnes là

Amicalement

En effet.

Merci beaucoup pour ton aide