Boucle avec 2 conditions fausses

Bonjour à tous,

je souhaite passer les lignes qui contiennent soit la valeur "début de zone" ou fin de "fin de zone" pour se faire j'ai écrit le code suivant:

Sub g_Concatener()
' concatener données pour colonnes Description pour feuil "SANNER"
Worksheets("SANNER").Select
    For I = Range("U" & Rows.Count).End(xlUp).Row To 8 Step -1
        If Range("U" & I).Value <> "*début de zone*" Or Range("U" & I).Value <> "*fin de zone*" Then
        Range("D" & I) = Range("P" & I) & " " & Range("Q" & I) & " " & Range("R" & I) & " qu: " & Range("O" & I)
        End If
    Next I
End Sub

Mais il ne fonctionne pas...

A votre bon coeur.

Bonjour

As tu un petit fichier, car perso, à première vue, ????je ne comprends pas où cela pêche

Merci

A+

Bjr,

ça marche !

edit = supprimé, j'étais à côté de mes pompes !!

RE

il ne faut pas tester

OR

mais

AND

oups

Patty5046 a écrit :

RE

il ne faut pas tester

OR

mais

AND

oups

J'ai remis mon fichier par acquit de conscience...

Je teste avec And et reviens vers vous

A tout de suite...

ah ben oui ... là j'étais à côté de la plaque !! je vais me coucher

Bonsoir Steelson

Eh oui Oh my god

Bonne soirée bonne nuit, cela ira mieux demain

Je viens de tester avec And mais la macro modifie quand même la valeur en D si il rencontre "début de zone" ou "fin de zone", ce que je ne veux pas bien sur....

Ça ne fonctionne pas non plus avec Or..

Mais peut être ne suis je pas assez clair!!!

A vous lire..

Re

Ecoute , envoie ton fichier, cela sera plus simple

OK ??

Désolé il est là, moi aussi je devrais aller me coucher!!

Sub g_Concatener()
' concatener données pour colonnes Description pour feuil "SANNER"
Worksheets("SANNER").Select
    For I = Range("U" & Rows.Count).End(xlUp).Row To 8 Step -1
        If Not (Range("U" & I).Value Like "*début de zone*") And Not (Range("U" & I).Value Like "*fin de zone*") Then
            Range("D" & I) = Range("P" & I) & " " & Range("Q" & I) & " " & Range("R" & I) & " qu: " & Range("O" & I)
        End If
    Next I
End Sub

Re

vois ce code

Sub g_Concatener()
' concatener données pour colonnes Description pour feuil "SANNER"
Worksheets("SANNER").Select
    For I = Range("U" & Rows.Count).End(xlUp).Row To 8 Step -1
        If Range("U" & I).Value <> "*début de zone*" And Range("U" & I).Value <> "*fin de zone*" _
          And Range("U" & I).Value <> "début de zone" And Range("U" & I).Value <> "fin de zone" Then
        Range("D" & I) = Range("P" & I) & " " & Range("Q" & I) & " " & Range("R" & I) & " qu: " & Range("O" & I)
        End If
    Next I
End Sub

Cela marche cette fois YES

Dis-moi quand même

A+

Merci Patty5046 et Steelson pour votre aide, vos deux solutions fonctionnent.

A bientôt car mon projet n'est pas encore fini..

mais quelle galère sans fichier ... on est obligé de le reconstituer soi-même