macro commande maj-minu

Staple1600

XLDnaute Barbatruc

• 7 Avril 2010

• #2

Re : macro commande maj-minu

Bonsoir


EDITION : plus simple

Code:

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

Code:

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

 

Dernière édition: 7 Avril 2010

Vote positif 0 Vote négatif

L

limagerit

XLDnaute Occasionnel

• 7 Avril 2010

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Avril 2010

• #4

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:

Code:

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

 

Vote positif 0 Vote négatif

L

limagerit

XLDnaute Occasionnel

• 7 Avril 2010

• #5

Re : macro commande maj-minu

Merci bcp

bonne soirée

 

Vote positif 0 Vote négatif