insérrer une instruction supplémentaire à l'ouverture d'un message

[pascal21]

Private Sub Worksheet_Activate()
If Range("b1").Value = "2" then

rep = MsgBox("Souhaitez-vous sélectionner la cellule B10", vbYesNoCancel, "Titre Message")
If rep = vbYes Then
   Sheets(2).Select
Else
   If rep = vbNo Then
      Range("A1").Select
   End If
End If

End Sub

bonjour le forum
je viens de dénicher ce bout de code sur le web que je cherche à arranger pour un de mes classeurs
en fait j'aimerais rajouter une 2eme condition à l'ouverture du message
si feuille2 cellule a1 = "1" alors pas de message
je n'arrive pas à trouver pour inserrer cette ligne
pouvez-vous m'aider
merci

 

[phlaurent55]

Re : insérrer une instruction supplémentaire à l'ouverture d'un message

Salut pascal21

If Range("b1").Value = "2" And Sheets(2).Range("a1").Value = "1" Then
[COLOR="Red"]End If[/COLOR]

je pense que cela irait mieux si tu utilisait Exit Sub
à te lire

 

[Bebere]

Re : insérrer une instruction supplémentaire à l'ouverture d'un message

bonjour Pascal,PhLaurent
essaye comme suit

Private Sub Worksheet_Activate()

If Range("b1").Value = "2" And Sheets(2).Range("a1").Value <> "1" Then
rep = MsgBox("Souhaitez-vous sélectionner la cellule B10", vbYesNoCancel, "Titre Message")
End If

If rep = vbYes Then
Sheets(2).Select
Else
If rep = vbNo Then
Range("A1").Select
End If
End If

End Sub

à bientôt

 

[pascal21]

Re : insérrer une instruction supplémentaire à l'ouverture d'un message

ok merci c'est bien ça
maintenant que le message s'affiche, est-il possible de faire en sorte que si la réponse est "yes" que ce message n'apparraisse plus pendant une certaine période (disons 10 jours)
car si je réponds "yes" j'aurai fais ce que le message demandait donc plus d'interet de réapparaitre
merci

 

[pascal21]

Re : insérrer une instruction supplémentaire à l'ouverture d'un message

pour faire remonter

 

[pascal21]

Re : insérrer une instruction supplémentaire à l'ouverture d'un message

bonjour
quelqu'un pour m'aider ce dimanche?