Microsoft 365 Cell.value qui contient deux valeurs

 ElseIf InStr(Cells(18, i), "ntreprise" ) * InStr(Cells(18, i), "2" ) >0 Then

ElseIf InStr(1,Cells(18, i), "ntreprise",vbTextCompare ) * InStr(Cells(18, i), "2") >0 Then

ElseIf Cells(18, i) like "*ntreprise*" and  Cells(18, i) like "*2*" Then

ElseIf lcase(Cells(18, i)) like "*ntreprise*" and  Cells(18, i) like "*2*" Then

bubl à dit:

A noter qu'avec 1 seul terme "*ntreprise*", c'est ok

Cliquez pour agrandir...

JBARBE à dit:

, "*ntreprise*" And Cells(18, i).Value,

Cliquez pour agrandir...

mapomme à dit:

Bonjour à rous,

Essayer:

VB:

 ElseIf InStr(Cells(18, i), "ntreprise" ) * InStr(Cells(18, 1), "2" ) >0 Then

Si on ne doit pas tenir compte de casse (majuscule ou minuscule), alors :

VB:

ElseIf InStr(1,Cells(18, i), "ntreprise",vbTextCompare ) * InStr(Cells(18, 1), "2") >0 Then

Ou dans votre logique :

VB:

ElseIf Cells(18, i) like "*ntreprise*" and  Cells(18, 1) like "*2*" Then

si casse indiférente:

VB:

ElseIf lcase(Cells(18, i)) like "*ntreprise*" and  Cells(18, 1) like "*2*" Then

Remarques:


J'en doute, INSTR n’interprète pas les caractères joker.



Bonjour @JBARBE ,
Un opérateur boolean avec des opérandes au format String ???

Cliquez pour agrandir...