Double condition dans une macro

[Philippe Château]

Bonjour à toutes et tous,

Voilà j'ai un macro qui tourne très bien, et ce grâce au FORUM (encore une fois merci) mais je rencontre un autre souci, en effet elle fait une extraction de la ligne commençant par "ListOwner" et j'aimerais rajouter une autre ligne qui commence par "ListName"

Dim I As Long
Dim Plage As Range
Set Plage = Range("A:A")
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value <> "ListOwner" Then
Plage.Cells(I).EntireRow.Delete
End If
Next

Pour information, la première rencontrée est "ListOwner" et la seconde est ListName", et à quelques lignes d'intervalle.

Merci à toutes et tous

 

[Raja]

Re : Double condition dans une macro

Bonjour,

Si je comprends bien, essaye ce code :

If Plage.Cells(I).Value <> "ListOwner" Or Plage.Cells(I).Value <> "ListName" Then

à la place de :

If Plage.Cells(I).Value <> "ListOwner" Then

 

[Philippe Château]

Re : Double condition dans une macro

Bonjour Raja,

Merci pour ta réponse HYPER RAPIDE, en fait j'avais commencé mais ai omis de placer Plage.Cells(I).Value <> devant la deuxième condition.

Encore merci à toi et au FORUM.

 

[Philippe Château]

Re : Double condition dans une macro

Re-bonjour Raja,

Puis je abuser, maintenant j'ai mes deux lignes (SUPER) :

ListOwner
ListName
ListOwner
ListName
....

X fois, mais ce que je voudrais c'est de pouvoir couper toutes les "ListName" et les mettre en colonne B, en face de "ListOwner".

Merci et bonsoir

 

[Raja]

Re : Double condition dans une macro

Re,

Merci de transmettre le fichier à traiter pour une meilleure compréhension de ton problème. Et aussi ce que tu veux obtenir comme résultat final.

 

[Philippe Château]

Re : Double condition dans une macro

Bonsoir Raja,

J'ai été un peu rapide pour te répondre sur ta solution, en fait ma colonne devient vide ! OUPS plus rien tout "deleter", pourtant à la lecteur cela me semblait bien, il doit y avoir un grain de sable...

A+ si tu peux bien sur

 

[Philippe Château]

Re : Double condition dans une macro

Bonjour Raja,

Merci de ta préocupation sur mon sujet, voilà je t'adresse mon TEST.

Et encore super sympa