Discussion :

[jomaly56]

Bonjour à tous,

Je souhaite supprimer les lignes d'une feuilles dans lesquelles ne figure pas certaines valeurs d'une colonne (colonne avec des noms).

Pour cela j'ai fait un tableau dans lequel j'indique les noms des membres que je souhaite visualiser.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TabMember(0) = "Jacques Mayol"
 TabMember(1) = "Sebastien Dupont"

J'ai écrit dans cette macro, qui ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    For i = 30 To 1 Step -1 ' le fichier a 30 lignes dans cet exemple
    For j = 0 To 1 Step 1
    If Cells(i, 3).Value = <> TabMember(j) Then Cells(i, 3).EntireRow.Delete
    Next
    Next

J'arrive à faire ce que je souhaite seulement pour un nom précis et sans espace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = 30 To 1 Step -1
    If Cells(i, 4).Value <> "TOTO" Then Cells(i, 4).EntireRow.Delete
    Next

Avez vous une idée de comment je pourrais m'en sortir ?
P-e avec un OU dans le if, du genre "TOTO" or "TATA" or ... ? Embêtant car les noms que je veux visualiser ne sont pas 'fixe' (doivent être modifiable).
Avec un vision plus simpliste, c'est un peu le principe du filtre. Mais je veux supprimer les lignes que je ne souhaite pas voir.

Merci d'avance pour votre aide

[Marc-L]

Bonjour,

juste filtrer sur ce qui doit être supprimé,
la méthode Delete tenant compte uniquement des cellules visibles, c'est simple comme on dit chez Renault !
Les boucles sont donc totalement inutiles …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[Menhir]

Ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 = <>

Je ne connais pas comme comparateur.
Une erreur d'inattention ?

Le problème, c'est que tu vas supprimer toutes les lignes ne répondant pas à au moins une de ces conditions.
Et je n'ai pas l'impression que c'est ce que tu souhaites.

Donc, il faudrait plutôt écrire ça dans ta boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Test = True
For j = 0 To 1 Step 1
    If Cells(i, 3).Value = TabMember(j) Then Test = False
Next j
If Test Then Rows(i).Delete

Précédé en début de code d'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Test As Boolean

Juste un détail pour ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, 3).EntireRow.Delete

Il est plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(i).Delete

[Marc-L]

Ah oui, j'ai oublié d'indiquer que je ne regardais que les codes balisés conformément aux règles de ce forum !

[jomaly56]

j'ai testé ta solution comme ceci Menhir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  Dim TabMember(2) As String
    TabMember(0) = "Jacques Mayol"
    TabMember(1) = "Sebastien Dupont"
 
    Test = True
    For j = 0 To 1 Step 1
        If Cells(i, 3).Value = TabMember(j) Then Test = False
    Next j
    If Test Then Rows(i).Delete

Une erreur d’exécution intervient à la ligne 7. Problème au niveau de la valeur du tableau je pense.
J'ai testé avec des chaines de caractères sans espaces et le problème reste le même...

[jeanmidudu]

Avant de parler d'erreur dans le tableau, revérifie tes variables...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(i),3.value = TabMember(j) Then Test = False

Ta variable i n'est ni déclarée, ni initialisée. Je pense que tu l'as confondue avec j. De même pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Test Then Rows(i).Delete

[jomaly56]

Effectivement...

Je ne comprends toujours pas pour cette solution ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
     Dim TabMember(2) As String
    TabMember(0) = "TOTO"
    TabMember(1) = "TATA"
 
    For j = 1 To 0 Step -1
    For i = 30 To 2 Step -1
        If Cells(i, 4).Value <> TabMember(j) Then Rows(i).Delete
    Next i
    Next j

Marc-L, je n'ai pas bien saisi ta méthode Delete...(désolé pour les balises)

[Menhir]

Etant donnée qu'aucune cellule ne peut être égale à "TOTO" et "TATA" EN MEME TEMPS, ton code va supprimé toutes les lignes.
Je t'ai donné une méthode pour que ça marche. Si tu veux persister avec un algorithme qui ne marche pas, libre à toi.

[jomaly56]

Menhir, ca fonctionne ! Merci beaucoup !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim Test As Boolean
    Dim TabMember(2) As String
    TabMember(0) = "TOTO"
    TabMember(1) = "TATA"
 
    For i = 30 To 2 Step -1
    Test = True
    For j = 0 To 1 Step 1
        If Cells(i, 3).Value = TabMember(j) Then Test = False
    Next j
    If Test Then Rows(i).Delete
    Next

Cependant ca fonctionne que pour une chaine de caractère sans espace...
Fonctionnel pour "TOTO" mais pas pour "Jacques Mayol" par exemple

[Menhir]

Cependant ca fonctionne que pour une chaine de caractère sans espace...
Fonctionnel pour "TOTO" mais pas pour "Jacques Mayol" par exemple

Je viens de tester : même avec des espaces, ça marche.
Il doit y avoir une différence entre ce que tu mets dans tes variables et ce qu'il y a dans les cellules (un espace à la fin ou autre carabistouille du même genre).

[jomaly56]

En effet, merci

Maintenant je vais devoir trouver comment supprimer ces fichues espaces en fin de chaine

[Menhir]

Fonction SUPPRESPACE() puis copier/coller valeur.

[MacKay77]

Tu peux aussi utiliser les fonctions right et left

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if right(Cells(i, 3), 1) = " " then Cells(i, 3) = Left(Cells(i, 3), Len(Cells(i, 3)) - 1)
'traduction : si le premier caractère en partant de la droite du contenu de la cellule est un espace, alors le contenu de la cellule sera la même valeur sans le dernier caractère en partant de la gauche

[Menhir]

Tu as raison, c'est tellement plus simple que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cells(i, 3) = Trim(Cells(i, 3))
' Traduction : supprimer tous les espaces à droite et à gauche quel que soit leur nombre

[MacKay77]

Chaque méthode a ses avantages, la tienne est plus rapide/simple, la mienne est plus personnalisable.
(On se défend comme on peut )