Autres if deux conditions

[dadaze]

Bonjour,

Sans solution,Je viens vers vous car je tourne en rond depuis un bon moment.
Si l'un d'entre vous peut me consacrer quelques instants ,je l'en remercie d'avance.

la condition if et le code ci dessous fonction très bien.

Feuil1.Select 'Com 2
For L = 3 To Feuil1.Range("a" & Rows.Count).End(xlUp).Row
If Cells(L, 6).Value = "Anonyme" And Cells(L, 10) = "Liste d'attente" Then

Feuil1.Cells.Rows(L).Copy

Ligne = Feuil15.Range("a" & Rows.Count).End(xlUp).Row + 1
Feuil15.Cells(Ligne, 1).PasteSpecial xlPasteValuesAndNumberFormats
End If.

En revanche lorsque je modifie la condition if en remplaçant le signe égal = "Anomyme" par différent <> "Anomyme"
ça n'a aucune incidence

le code ci dessous fonctionne la ligne est bien copiée
If Cells(L, 6).Value = "Anonyme" And Cells(L, 10) = "Liste d'attente"

le code ci dessous ne fonctionne pas ou plutôt continue de fonctionner comme ci dessus alors que je souhaite copier les lignes uniquement si Cells(L, 6).Value <>"Anonyme" et Cells(L, 10) = "Liste d'attente"

If Cells(L, 6).Value <>"Anonyme" And Cells(L, 10) = "Liste d'attente"

cordialement

 

[TooFatBoy]

Bonjour,

Pourtant, vu d'ici, tout semble correcte, que ce soit le contenu de la cellule F3 ou celui de la cellule J3, donc ça devrait sûrement fonctionner...

 

[Gégé-45550]

Bonsoir dadaze, bonsoir l'ami TooFatBoy,
même chose, le code semble correct ... mais, perso, j'écrirais plutôt :

Feuil1.Select 'Com 2
Ligne = Feuil15.Range("a" & Rows.Count).End(xlUp).Row
For L = 3 To Feuil1.Range("a" & Rows.Count).End(xlUp).Row
    If Cells(L, 6).Value <> "Anonyme" And Cells(L, 10) = "Liste d'attente" Then
        Ligne = Ligne + 1
        Feuil1.Cells.Rows(L).Copy
        Feuil15.Cells(Ligne, 1).PasteSpecial xlPasteValuesAndNumberFormats
    End If
...
Next L

en calculant la variable Ligne une seule fois puis en l'incrémentant à chaque tour, mais ce n'est qu'un détail.
Cordialement

 

[Phil69970]

Bonjour à tous

@dadaze
Et si tu mettais le fichier qu'on regarde.....

 

[dadaze]

Bonsoir ,

Merci à tous. Vos observations m'ont permis de sortir de l'impasse.

En effet, mon code fonctionne bien. Le bug était en amont dans ma macro et me crever les yeux.
Comme quoi lorsque on est fatigué et pressé, mieux vaut s’arrêter.

En tout cas, je vous remercie encore et vous souhaite une bonne soirée.