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