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

VBA : if avec conditions complexes

  • Initiateur de la discussion Initiateur de la discussion thomasmbai
  • 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 !

thomasmbai

XLDnaute Nouveau
Bonjour,


Je sollicite votre aide, parce que j'ai un problème avec mes conditions; actuellement j'ai le code suivant :

Code:
ElseIf Cells(I, H) & Cells(I, K) & Cells(I, J) = Cells(I - 1, H) & Cells(I - 1, K) & Cells(I - 1, J) And WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M And Cells(I - 1, A3) <> 3 And Cells(I, E) + Cells(I - 1, D2) <= M Then

Ce code fonctionne très bien. Cependant j'aurais besoin de faire la modification suivante :
Code:
WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M
ou bien
Code:
Cells(I - 1, A2) = 2

Ce qui m'ennui c'est comment écrire que c'est l'une des deux conditions sus-mentionnées tout en gardant les autres conditions "and" obligatoires.

Merci d'avance de votre aide...
 
Re : VBA : if avec conditions complexes

Bonjour thomas,

Peut-être

Code:
ElseIf Cells(I, H) & Cells(I, K) & Cells(I, J) = Cells(I -  1, H) & Cells(I - 1, K) & Cells(I - 1, J) And  (WorksheetFunction.RoundUp(Cells(I - 1, D1), 0) = M Or Cells(I - 1, A2) = 2) And Cells(I - 1, A3)  <> 3 And Cells(I, E) + Cells(I - 1, D2) <= M Then
 
- 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
4
Affichages
470
Réponses
9
Affichages
694
Réponses
6
Affichages
625
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…