Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres if deux conditions

dadaze

XLDnaute Nouveau
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
 

Gégé-45550

XLDnaute Accro
Bonsoir dadaze, bonsoir l'ami TooFatBoy,
même chose, le code semble correct ... mais, perso, j'écrirais plutôt :
VB:
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
 

dadaze

XLDnaute Nouveau
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.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…