MsgBox qui ne fonctionne pas correctement

[marcelio]

Bonjour,

Je vous met mon fichier qui explique mon petit souci
Merci de votre aide

Marcelio

 

[mercant76]

Re : MsgBox qui ne fonctionne pas correctement

bonjour,

ton premier end if, tu l'enlèves et le mets avant ou après (peu importe ) l'autre.

çà ne marchait pas parce que tu faisais deux if then différents au lieu de les faire imbriqués.

@+

 

[kjin]

Re : MsgBox qui ne fonctionne pas correctement

Bonjour,
Peux tu nous éclairé sur l'explication de ce qui devrait se passer et qui se passe, ce qui n'est pas normal 😱🙂
A+
kjin

 

[papapaul]

Re : MsgBox qui ne fonctionne pas correctement

Bonjour, 🙄
Peut-être en mettant ton 1er End If à la fin de la procédure ?
J'ai essayé vite fait, si ton chiffre est < à 0,
la macro ne fonctionne pas, on ne va plus sur la feuille année,
est-ce ce que tu veux ?
@+

 

[marcelio]

Re : MsgBox qui ne fonctionne pas correctement

Bonjour mercant76 et kjin,

mercant76 ta solution ne fonctionne pas

Si A1 dans feuil mois est Sup à 0 je doit aller dans la feuil annee et une macro se lance, et je ne doit pas voir le msgbox

Si A1 dans feuil mois est = ou inf à 0 si je répond oui je fait dans feuil annee sans effectuer la macro
et non je reste sur la feuil mois

merci de votre aide

 

[kjin]

Re : MsgBox qui ne fonctionne pas correctement

Re,
C'est déjà plus clair

Sub WordArt1_QuandClic()
Select Case Cells(1, 1)
Case Is > 0
    Sheets("annee").Activate
    Range("C5").Select
Case Is <= 0
    Msg = MsgBox("Vouler vous rajoutez une nouvelle année.", _
    vbYesNo, "INSERTION NOUVELLE ANNEE ")
        If Msg = vbYes Then Annees
End Select

End Sub

A+
kjin

 

[marcelio]

Re : MsgBox qui ne fonctionne pas correctement

Merci kjin

cela fonctionne mieux maintenant
désolé de mettre mal expliqué
Bonne journée à toi et au forum

 

[kjin]

Re : MsgBox qui ne fonctionne pas correctement

Re,

Merci kjin
cela fonctionne mieux maintenant
désolé de mettre mal expliqué
Bonne journée à toi et au forum

Sauf que c'est un coup de bol, parce que si tu relis ton dernier message, il me semble que ça ne correspond pas.Mais si tu le dis...
A+
kjin