Supprimer ligne d'un classeur à partir d'une listbox1

C

croft

XLDnaute Nouveau

• 1 Février 2011

• #16

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Bonsoir Nyko283,

Avant tout merci pour ta patience.
J'ai supprimé exit for mais cela fait un moment que mon classeur clignote comme si il travaillait, j'ai d'ailleurs le sablier.
J'ai l'impression qu'il tourne en boucle.

Merci

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 1 Février 2011

• #17

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Combien de nom a tu dans ta listbox car pour chaque nom le code doit faire le tour de toutes les cellules de la colone C ce qui peut prendre un certain temps .

 

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 1 Février 2011

• #18

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Nyko283,

Dans ma listbox j'en ai une vingtaine et dans le classeur Excel au moins 150.

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 1 Février 2011

• #19

Re : Supprimer ligne d'un classeur à partir d'une listbox1

et la il tourne toujours

 

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 1 Février 2011

• #20

Re : Supprimer ligne d'un classeur à partir d'une listbox1

il a tourné pendant 5 minutes, j'ai du l'arrêter par le gestionnaire de tâches 🙂

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 1 Février 2011

• #21

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Je regarde demain et te tient au courant mais je viens de m'appercevoir que ma macro n'aimais pas le fait que 2 nom identique soit l'un après l'autre.

Bonne nuit

 

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 1 Février 2011

• #22

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Merci beaucoup.

Bonne nuit à toi également.

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 2 Février 2011

• #23

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Bonjour Croft,

Suivant le dicton qui dit que la nuit porte conseille, cela vient de se vérifier,

En effet j'avais déjà été confronter à un refus de la méthode FInd de fonctionner, tout simplement parceque j'éssaiyé de la faire tourner directement sur le code d'un userform et apparament elle n'aime pas.

Alors je suis passé par un appel de fonction pour pallier à ça et maintenant cela tourne comme il faut.

je te joint mon fichier exemple quand même...

Sinon pour le code du bouton sur l'userform

Code:

Dim cell As Range, nomClient As String, n As Integer, I As Integer, c As Integer
I = ListBox1.ListCount - 1
For n = 0 To I
    Me.ListBox1.ListIndex = 0 'selectionne dans la listbox1 l'element n
    nomClient = Me.ListBox1.Value ' affecte a la variable nomClient l'élément selectionné de la listbox
    c = 1
    While c <> 0 ' La boucle tourne tant qu'elle trouve une occurence du nom
        c = trouve(nomClient) 'trouve la ligne ou il y a une occurence du nom client
        If c <> 0 Then ThisWorkbook.Worksheets("Feuil1").Range("C" & c).EntireRow.Delete ' si une occurence a été trouvé on supprime la ligne concernée
    Wend
    Me.ListBox1.RemoveItem 0 'une fois qu'il n'y a plus d'occurence alors on efface le nom de la listbox1
Next n

et le code a inserer dans un module

Code:

Function trouve(nomClient)
Dim c As Integer
On Error Resume Next
With ActiveWorkbook.Worksheets("Feuil1").Range("C1:C1634")
 c = .Find(nomClient).Row
 
 
End With
trouve = c
End Function

je pense que maintenant ton bonheur est là.

 

Pièces jointes

• Classeur2.xls

  41 KB · Affichages: 47
• Classeur2.xls

  41 KB · Affichages: 53
• Classeur2.xls

  41 KB · Affichages: 42

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 2 Février 2011

• #24

RESOLU : Supprimer ligne d'un classeur à partir d'une listbox1

Bonsoir le forum, Nyko283,

Avant tout un GRAND MERCI pour le temps que tu as passé sur mon problème.

Je ne sais comment te dire si ce n'est que tu es un CHEF, c'est grandiose.

Ca fonctionne à merveille et j'obtiens bien le résultat attendu.

Super à vous et super le forum.

Bonne continuation et bravo.

 

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 2 Février 2011

• #25

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Re le forum,

Je rencontre un tout petit souci.

Le code de Nyko283 fonctionne, mais je ne sais pas pour quelle raison parfois il me supprime tous les noms même ceux que je n'ai pas sélectionné dans la listbox1.

Or je souhaite supprimer que les noms de la listbox1.

Si vous avez une idée d'amélioration.

Merci.

 

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 2 Février 2011

• #26

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Re,

Je viens de comprendre pourquoi certain nons s'effacent.
En fait dans ma colonne je peux avoir Dupont et Dupont.C, si j'ai Dupont dans ma listbox 1, le code me supprime Dupont et Dupont.C de mon classeur Excel, bien que Dupont.C n'est pas dans la listbox1 et ne doit donc pas être supprimé.

Comment mettre dans le code que je souhaite que le nom exact de la listbox soit supprimé ?

Par avance, merci.

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 2 Février 2011

• #27

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Re,

alors la raison est que la méthode FIND peut avoir plusieurs paramètres et on la facheuse tendances à garder en mémoire la dernière recherche effectuer donc en utilisant find on devrait avoir

Find(What:=nomClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
pour plus d'info sur la valeur que peut prendre chaque paramètres rend toi dans l'aide intégrer à ton editeur vb.
Là le paramètre qui te pose problème est "LookAt" qui définit si seulement une partie ou toute la valeur de la cellule doit correspondre

donc en remplacent

 

Vote positif 0 Vote négatif

nyko283

XLDnaute Occasionnel

• 2 Février 2011

• #28

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Re,

alors la raison est que la méthode FIND peut avoir plusieurs paramètres et on la facheuse tendances à garder en mémoire la dernière recherche effectuer donc en utilisant find on devrait avoir

Find(What:=nomClient, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns)
pour plus d'info sur la valeur que peut prendre chaque paramètres rend toi dans l'aide intégrer à ton editeur vb.
Là le paramètre qui te pose problème est "LookAt" qui définit si seulement une partie ou toute la valeur de la cellule doit correspondre

donc en remplacent

Code:

 .Find (nonclient).row

par

Code:

.Find(What:=nomClient, LookIn:=xlValues, LookAt:=xlWhole,_
SearchOrder:=xlByColumns).Row

tout devrait rentrer dans l'ordre

 

Vote positif 0 Vote négatif

C

croft

XLDnaute Nouveau

• 3 Février 2011

• #29

Re : Supprimer ligne d'un classeur à partir d'une listbox1

Nyko 283,

MILLE MILLE MERCI.
Je l'ai testé dans tous les sens et je dis que c'est la BONNE.

Chapeau, je vais pouvoir aller me coucher.

Passes une bonne nuit.

 

Vote positif 0 Vote négatif