message a l'ouverture d'une feuille

[Marion]

rebonjour au forum

je ne comprends toujours pas pourquoi ce code ne va pas en cellule 'B97'

ce code ci-dessous ouvre bien la feuille planning mais ne va pas cellule b97
j'ai une zone que je desire faire apparaître sur la feuille planning
('b88:d105')
je n'y arrive pas

pouvez-vous m'aider
Merci
A+Marion

Private Sub Worksheet_Activate()
res = MsgBox('avez vous pensez au bonjour', vbYesNo)

If res = vbNo Then

Sheets('planning').Select
Range('B97').Select

ElseIf res = vbYes Then
Exit Sub
End If


End Sub

 

[Baside]

Bonjour Marion, le Forum,

Avec cette modif, c'est bon

Private Sub Worksheet_Activate()
Sheets('planning').Select
Range('B97').Select
res = MsgBox('avez vous pensez au bonjour', vbYesNo)
If res = vbNo Then
ElseIf res = vbYes Then
Exit Sub
End If
End Sub

Bonn fin de journée, Baside

 

[Marion]

Merci Baside mais ça ne fonctionne pas.

je suis sur une feuille x je clique sur la feuille 'impression' le message apparaît si oui exit sub si non il faut ouvri la feuille planning et allez a la zone selectionée('b88:d105')

merci tout de même

A+Marion

 

[Baside]

Rebonjour Marion, le Forum,

Tu avais mis un post pour la feuille impression, il serait plus simple, je pense, de mettre une version light de ton fichier avec ce que tu souhaites.
Baside.

 

[Marion]

voici un fichier joint

merci [file name=marion1.zip size=7423]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/marion1.zip[/file]

 

[Baside]

Rebonjour Marion, le Forum,

Une autre version, qui fonctionne.

Baside. [file name=Marion U S F_20050424191501.zip size=11050]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion U S F_20050424191501.zip[/file]

 

[Marion]

merci a toi baside.
cette methode fonctionne a merveille

gros bisous
ps: je n'ai toujours pas pigé pourquoi ce code ne marche pas

A+Marion

 

[Baside]

Rebonsoir marion, le Forum,

Une version plus sympa et le code ne marche pas car il y a deux ordres après Then, il marche si on lui demande d'aller seulement à la page planning, mais lui dire d'aller en plus à la case B97 (deuxième ordre), il coince.

Bonne soirée, Baside. [file name=Marion U S F 2_20050424210924.zip size=11746]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion U S F 2_20050424210924.zip[/file]

 

[ChTi160]

Salut 'Marion
bonsoir le fil
bonsoir le Forum
je ne comprends pas le problème
j'ai mis ce code et celà selection la feuille Impression et ensuite la cellule B97
Private Sub CommandButton2_Click()

With Sheets('planning')
.Select
.Range('A97').Select
End With
Unload Me
End Sub
si j'ai bien compris la question biensûr
Amicalement
Jean Marie

 

[Berjean]

Bonsoir à tous ou RE

Désolé de vouloir jouer le prolo ACADEMIQUE mais on écrit

Avez-vous pensé et non Avez-vous pensez. C'est plus jolie


Parce qu'on écrit : Vous avez pensé. Pensez-vous donc !


Signé : le Prolo des Batteries.


Bonne soirée

Berjean