macro commande maj-minu

[limagerit]

Bonjour à tous,

J'ai un soucis avec un petit bout de code qui reagit en minuscule mais pas en majuscule,

If f.Cells(Lig, 11).Value = "sa" Then Cells(Lig, 1).EntireRow.Copy

si la cellule contient sa alors il copie

je voudrais que la macro agisse si "SA" ou "sa"


Merci de votre aide

 

[Staple1600]

Re : macro commande maj-minu

Bonsoir


EDITION : plus simple

Sub a()
If InStr(1, ActiveCell, "sa", 1) Then
MsgBox "Sa ou SA ou sa sA dans cette cellule"
End If
End Sub

Ce qui appliqué à ton code donnerait

If InStr(1, f.Cells(Lig, 11), "sa", 1) Then Cells(Lig, 1).EntireRow.Copy

 

[limagerit]

Re : macro commande maj-minu

Merci pour la piste

si tu as une idée de la syntaxe car pour le moment j'ai essayé ca et cela ne donne rien

If f.Cells(Lig, 11).Value = "sa" Then Cells(Lig, 1).EntireRow.Copy
or f.Cells(Lig, 11).Value = "SA" Then Cells(Lig, 1).EntireRow.Copy


Merci du coup de pouce

 

[Staple1600]

Re : macro commande maj-minu

Re

J'ai édité mon précédent message avec une autre méthode plus simple et plus courte.

PS: si tu veux utiliser Or
C'est comme ceci:

If f.Cells(Lig, 11).Value = "sa" Or f.Cells(Lig, 11).Value = "SA" Then Cells(Lig, 1).EntireRow.Copy

 

[limagerit]

Re : macro commande maj-minu

Merci bcp

bonne soirée