bout de code "if end if" à tranformer

[pascal21]

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

 

[skoobi]

Re : bout de code "if end if" à tranformer

Bonsoir pascal,

voici:

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

 

[pascal21]

Re : bout de code "if end if" à tranformer

bonsoir skoobi, le forum
je viens d'essayer le code et j'ai une erreur "erreur définie par l'application ou par l'objet"

 

[Pierrot93]

Re : bout de code "if end if" à tranformer

Bonsoir Pascal, Skoobi

modifies peut être comme suit :

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

à tester...

bonne soirée
@+

 

[pascal21]

Re : bout de code "if end if" à tranformer

  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

 

[Lii]

Re : bout de code "if end if" à tranformer

Bonsoir,

  End If
  If Range("i8") > "1" Then Exit Sub
  If Range("l5") <> "" Then MsgBox "   coucou3"
End Sub

devrait suffire !