Discussion :

[hadrien4789]

Bonjour,


J'ai le code ci dessous que devrait supprimer les lignes si elles sont différentes des deux valeurs indiquées.

Cela fonctionne pour une valeur mais pas pour deux.

A terme je voudrait pouvoir faire cette suppression avec des valeurs d'une liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro1()
Application.ScreenUpdating = False
Dim i As Integer
For i = 2 To 5000
Sheets("HI1").Select
If Range("A" & i).Value <> "CISC000002" Or "CISC000005" Then
Range("A" & i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Merci pour votre aide

[Marc-L]

Bonjour,

la Logique exige de remonter de la dernière ligne vers la première !

Et ce n'est pas une question « Général VBA » mais particulière à une application …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[unparia]

Bonjour
et cette ligne de code :

Code :

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

If Range("A" & i).Value <> "CISC000002" Or "CISC000005" Then

est aussi erronée que le serait une ligne disant :

Code :

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

If "toto" <> "titi" or "tata" then

qui génèrerait bien évidemment une erreur de type ("titi" or "tata" ne pouvant être traités de cette manière par une expression OR qui, employée ainsi, ne saurait s'appliquer qu'à deux numériques pour en faire une comparaison au niveau du bit)

Conseil : ouvrir son aide VBA à la rubrique Or, opérateur, exemple


EDIT : et cette ligne de code :

Code :

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

Range("A" & i).Delete

ne supprime pas la ligne i, mais la seule cellule "A" & i, en faisant remonter (par décalage) la cellule "A" & i + 1
Conseil : ouvrir son aide VBA à la ruprique Range.EntireRow, propriété