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)