Microsoft 365 Cell.value qui contient deux valeurs

[bubl]

Bonjour,

J'ai tenté ça pour repérer la cellule qui contiendrait "ntreprise" et "2" :

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

A noter qu'avec 1 seul terme "*ntreprise*", c'est ok. Avec deux, ça ne fonctionne pas...

Merci d'avance si vous pouvez m'aider

 

[JBARBE]

Bonjour à tous,
Peut-être ceci :
ElseIf InStr(1, Cells(18, i).Value, "*ntreprise*" And Cells(18, i).Value, "*2*") > 0 Then

bonne journée !

 

[mapomme]

Bonjour à rous,

Essayer:

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

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

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

Ou dans votre logique :

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

si casse indiférente:

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

Remarques:

bubl à dit:

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

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

JBARBE à dit:

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

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

 

[bubl]

Bonjour à rous,

Essayer:

 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 :

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

Ou dans votre logique :

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

si casse indiférente:

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 ???

@mapomme Merci beaucoup, ça marche. J'ai juste remplacé le 1 par i dans InStr(Cells(18, 1)
Bonne journée

 

[job75]

Bonjour bubi, JBARBE, mapomme,

C'est évident mais bon si le "2" est toujours placé après "ntreprise" :

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

LCase permet d'ignorer la casse.

A+