Microsoft 365 Cell.value qui contient deux valeurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bubl

XLDnaute Nouveau
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
 
Bonjour à rous,

Essayer:
VB:
 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 :
VB:
ElseIf InStr(1,Cells(18, i), "ntreprise",vbTextCompare ) * InStr(Cells(18, i), "2") >0 Then

Ou dans votre logique :
VB:
ElseIf Cells(18, i) like "*ntreprise*" and  Cells(18, i) like "*2*" Then

si casse indiférente:
VB:
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 ???
 
Dernière édition:
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 ???
@mapomme Merci beaucoup, ça marche. J'ai juste remplacé le 1 par i dans InStr(Cells(18, 1)
Bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
956
Retour