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

bout de code "if end if" à tranformer

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

pascal21

XLDnaute Barbatruc
Code:
If Range("l5") = "" Then
  MsgBox "coucou 1"
 Worksheets(22).Select [COLOR=YellowGreen]' et clic droit droit pour  renseigner L5[/COLOR]
 MsgBox "coucou 2"
    End If
    [COLOR=Red]If Range("i8") <> "" Then
    [COLOR=Black](Pas de msgbox"coucou3")[/COLOR][/COLOR]
[COLOR=Red]If Range("l5") <> "" Then
    MsgBox " coucou 3" 
 End If
 End If
End Sub[/COLOR]
bonsoir à tous
j'ai ce bout de code dans le worksheet_activate
dans la partie en rouge j'aimerais le fonctionnement suivant:
si la cellule I8 n'est pas vide alors pas de message "coucou 3" et sortir de la macro
si la cellule L5 n'est pas vide alors message "coucou3"
je ne trouve pas comment transformer le code
pouvez-vous m'aider
merci
 
Dernière édition:
Re : bout de code "if end if" à tranformer

Bonsoir pascal,

voici:

Code:
Sub test()
If Range("l5") = "" Then
  MsgBox "coucou 1"
 Worksheets(22).Select ' et clic droit droit pour  renseigner L5
 MsgBox "coucou 2"
End If
If Range("i8") <> "" Then
  [COLOR=Blue][B]Exit Sub
ElseIf Range("l5") <> "" Then
  MsgBox " coucou 3"
End If[/B][/COLOR]
End Sub
 
Re : bout de code "if end if" à tranformer

Bonsoir Pascal, Skoobi

modifies peut être comme suit :

Code:
If Range("i8") <> "" Then
  Exit Sub
      ElseIf Range("l5") <> "" Then  MsgBox " coucou 3"
End If

à tester...

bonne soirée
@+
 
Re : bout de code "if end if" à tranformer

Code:
  End If
  If Range("i8") > "1" Then
  Exit Sub
  Else: If Range("l5") <> "" Then MsgBox "   coucou3"         
End If
End Sub
bonsoir pierrot
ça fonctionne merci
 
- 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
788
Réponses
4
Affichages
281
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…