Si valeur case alors...

[piegre]

Bonjour à tous,

J'ai un code qui fonctionne très bien, il recherche dans une colonne D, la 1ère valeur de case, si elle est égale à "A" , elle colle les deux cases de droite dans un autre onglet, le voici :

With Sheets("PLAN")
        For Each Cell In .Range("D1:D" & .Range("D655536").End(xlUp).Row)
            Select Case UCase(Left(Cell.Offset(0, 0), 1))
                Case "A"
                    Sheets("PLAN").Range(Cell.Offset(0, 1), Cell.Offset(0, 2)).Copy Destination:=Sheets("PLAN donnée").Range("F" & Cell.Row + 2)
             End Select
        Next
End With

Cependant, je me suis rendu compte que la seule valeurs de "A" ne répondait pas totalement à ma demande. Maintenant je souhaite rechercher dans la colonne G si la case contient "n 15 A TRAVERS TOUT" et si oui je copie colle les deux cases de gauche dans un autre onglets.

J'ai éssayé de faire ça mais cela ne fait rien du tout :

With Sheets("PLAN")
        For Each Cell In .Range("G1:G" & .Range("G655536").End(xlUp).Row)
            Select Case UCase(Left(Cell.Offset(0, 0), 1))
                Case "n 15 A TRAVERS TOUT"
                    Sheets("PLAN").Range(Cell.Offset(0, -2), Cell.Offset(0, -1)).Copy Destination:=Sheets("PLAN donnée").Range("F" & Cell.Row + 2)
            End Select
        Next
End With

 

[pierrejean]

Re : Si valeur case alors...

bonjour

sans aller plus loin:
Aucun Ucase ne peut être = à "n 15 A ...." because le n qui s'obstine a être minuscule

 

[piegre]

Re : Si valeur case alors...

D'accord, donc le problème, c'est qu'il y a un mélange de minuscules,majuscules,espace et chiffre ?

Je dois changer le Ucase ?

 

[pierrejean]

Re : Si valeur case alors...

Re

Essaie déjà de le supprimer

 

[piegre]

Re : Si valeur case alors...

Négatif, cela ne fonctionne pas non plus, pourtant j'ai bien la valeur de la variable qui est égale à "n 15 A TRAVERS TOUT" mais cela ne fait rien. Je ne comprend pô.

 

[gilbert_RGI]

Re : Si valeur case alors...

Bonjour,

comme ceci

With Sheets("PLAN")
        For Each Cell In .Range("G1:G" & .Range("G655536").End(xlUp).Row)
        'Debug.Print UCase(Cell.Value)
            Select Case UCase(Cell.Value)
            
                Case "N 15 A TRAVERS TOUT"
                    Sheets("PLAN").Range(Cell.Offset(0, -2), Cell.Offset(0, -1)).Copy Destination:=Sheets("PLAN donnée").Range("F" & Cell.Row + 2)
            End Select
        Next
End With

 

[piegre]

Re : Si valeur case alors...

Gilbert, you are a génie 😀, tout marche bien navette.