Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

fonction "ou" VBA

  • Initiateur de la discussion Initiateur de la discussion Yohan05
  • Date de début Date de début

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 !

Yohan05

XLDnaute Occasionnel
Bonjour à tous et bonne année,

J'ai un petit problème pour cette fonction qui je pense est simple mais je n'y arrive pas.

Le but :
Si b4 contient OF c'est OK si pas la macro s'arrete et indique le msg mais si B4 contient CV c'est aussi OK.


If LCase(Sheets("Commande").Range("B4").Value) Like Not "*of*" Then
MsgBox ("Vous devez indiquer la référence (CV) ou (OF) dans la case B4")
Exit Sub
Else
End If
If LCase(Sheets("Commande").Range("B4").Value) Like Not "*cv*" Then
MsgBox ("Vous devez indiquer la référence (CV) ou (OF) dans la case B4")
Exit Sub
End If


Voici mon code mais je ne vois pas comment exprimer cela autrement pour l’instant j'ai le message "incompatibilité"

Merci pour votre aide...

YoHan
 
Re : fonction "ou" VBA

Bonjour,

peut être comme ceci :
Code:
If Not LCase(Sheets("Commande").Range("B4").Value) Like "*of*" And _
    Not LCase(Sheets("Commande").Range("B4").Value) Like "*cv*" Then
    MsgBox ("Vous devez indiquer la référence (CV) ou (OF) dans la case B4")
    Exit Sub
End If
bonne journée
@+
 
Re : fonction "ou" VBA

Bonjour Yohan

Moi j'ecrirais:

Code:
If InStr(LCase(Sheets("Commande").Range("B4").Value), "ok") <> 0 Or InStr(LCase(Sheets("Commande").Range("B4").Value), "cv") <> 0 Then
  Exit Sub
Else
  MsgBox ("Vous devez indiquer la référence (CV) ou (OF) dans la case B4")
End If

Arf : A la bourre moi !!!

Salut Pierrot
 
- 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
15
Affichages
779
Réponses
2
Affichages
411
Réponses
4
Affichages
521
Réponses
2
Affichages
588
Réponses
2
Affichages
272
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…