Supprimer des cellules d'une colonne en fonction d'une liste

Jacky67

XLDnaute Barbatruc

• 18 Novembre 2016

• #2

Bonjour,
Avec une liste de mots nommée dynamiquement "liste"
et 3 variantes🙂

Code:

Sub nettoyage()
Dim i As Long
With Feuil1
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsNumeric(Application.Match(.Range("a" & i).Value, [liste], 0)) Then
.Range("a" & i) = "" ' efface le contenu
' .Range("a" & i).Delete Shift:=xlUp 'pour supprimer la cellule
' .Rows(i).Delete ' pour supprimer la ligne
End If
Next
End With
End Sub

 

Pièces jointes

• nettoyage.xlsm

  16.7 KB · Affichages: 33

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 18 Novembre 2016

• #3

Merci pour ta réponse Jacky67,

Cela fonctionne, mais je ne comprend pas ce que tu appel : "liste de mots nommée dynamiquement "liste""

et a quoi sert cette formule =DECALER(Feuil1!$G$1;;;NBVAL(Feuil1!$G:$G))

 

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 18 Novembre 2016

• #4

Bon une rapide recherche et j'ai trouvé la réponse a mes questions ... 🙂

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 18 Novembre 2016

• #5

RE...
Sur la feuille même cette formule ne sert que visuellement pour te montrer qu'elle existe.

Dans l'exemple donné, la liste de mots nommée dynamiquement est celle située en G1:G3
On dit "dynamiquement" parce que l'on peut
-Rajouter des mots
-La déplacer
-Même sur une autre feuille
-Le tout sans avoir a modifier le code vba
Dans le code 'exemple' on lui fait appel par son nom entouré de crochet [liste] (qui peut aussi s'écrire range("liste"))
Cette plage nommée est conçue par le menu ==> Formules==>gestionnaire de noms
Elle a comme nom "liste" et fait référence à la formule =DECALER(Feuil1!$G$1;;;NBVAL(Feuil1!$G:$G))

Bon courage
et
bonne nuit

 

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 18 Novembre 2016

• #6

Merci pour tes explications. Effectivement cela fonctionne bien

MAis j'ai du coup une autre question.

Pour alimenter ma liste , est-il possible de copier-coller des cellules sélectionnées et les ajouter à la liste,

ActiveCell ne prenant que la cellule "active" et non l'ensemble des cellules sélectionnées

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 18 Novembre 2016

• #7

eric57 à dit:

Merci pour tes explications. Effectivement cela fonctionne bien

MAis j'ai du coup une autre question.

Pour alimenter ma liste , est-il possible de copier-coller des cellules sélectionnées et les ajouter à la liste,

ActiveCell ne prenant que la cellule "active" et non l'ensemble des cellules sélectionnées

Cliquez pour agrandir...

Re...
De quelle liste parles-tu ?
Que Souhaites-tu faire exactement ?

 

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 18 Novembre 2016

• #8

La liste dynamique doit être alimentée avec les mots à supprimer. ( en colonne G)
Actuellement on fait tout" bêtement" un copier coller des mots . Ils sont au départ dans la colonne "A" .
Idéalement il faudrait qu'on fasse une sélection des cellules non adjacentes, et que cette sélection se rajoute en bas de la Liste .

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 18 Novembre 2016

• #9

eric57 à dit:

La liste dynamique doit être alimentée avec les mots à supprimer. ( en colonne G)
Actuellement on fait tout" bêtement" un copier coller des mots . Ils sont au départ dans la colonne "A" .
Idéalement il faudrait qu'on fasse une sélection des cellules non adjacentes, et que cette sélection se rajoute en bas de la Liste .

Cliquez pour agrandir...

Re...
Si j'ai bien compris...
Ceci ajoute à la liste des noms (Nommée "liste") ceux sélectionnés dans la colonne A, sans faire de doublon.

VB:

Sub AjoutDesExclut()
Dim C As Range
With Feuil1
For Each C In Selection
If Not IsNumeric(Application.Match(C, [liste], 0)) And C.Column = 1 Then
.Range("G" & .Cells(.Rows.Count, "g").End(xlUp).Row + 1) = C
End If
Next
End With
End Sub

 

Vote positif 0 Vote négatif

eric57

XLDnaute Occasionnel

• 18 Novembre 2016

• #10

TRop Fort, c'est exactement ce qu'il me fallait

Merci Jacky67

 

Vote positif 0 Vote négatif