ouverture fenêtre qd case cochée

[Annie77]

Bonjour,


J'aurai besoin de créer une macro, dans une feuille donnée ('TOTO') qui réalise les choses suivantes :
- qd la case N22 est cochée (X ou x)
- ouverture d'une boîte de dialogue posant la question suivante 'Question ? (oui/non)'
Si oui mettre une croix en AA22
Si non, mettre une croix en AB22

D'avance merci bcp de votre aide... Je coule avec le VBA !

A.

 

[Riddick]

Bonjour annie

Jete un oiel et dis moi je pense que le soucis est pour effacer il faut commencer par celle en N22
Dis moi!

 

[Annie77]

Merci bcp de ta réponse très rapide. le seul soucis c'est que l'image ne s'affiche pas...

A.

 

[Abel]

Bonjour Annie77, Riddick,

Juste pour info :

Annie : l'image de Riddick ne concerne pas la solution. C'est une image incluse dans sa signature (ne s'affiche pas chez moi non plus, d'ailleurs).

Riddick : tu as du vouloir mettre une pièce jointe mais elle n'est pas passée.


Abel.

 

[Riddick]

Bonjour abel
Excusez moi je sais pas ou j'ai la tete aujourd'hui

Olalalala Annie 77.zip ca marche pô??????

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

Message édité par: riddick, à: 17/06/2005 14:42

 

[Annie77]

Mille mercis... C'est exactement ce qu'il me faut !

Comment as-tu fait ? Sans macros?

D'avance merci bcp.


Annie

 

[Abel]

Re,

Riddick, 'Annie 77' ne marchera pas mais 'Annie77' oui.

Pas d'espace ni accent ni caractère de ponctuation dans les noms des pièces jointes qui doivent faire moins de 50 ko.

Voili voilou.

Bonne fin de journée.


Abel.

 

[Riddick]

il y a des macros!!

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets('TOTO').Range('AA22') = '' And Sheets('TOTO').Range('AB22') = '' Then
If Sheets('TOTO').Range('N22').Value = 'X' Or Sheets('TOTO').Range('N22').Value = 'x' Then
If MsgBox('Question?', vbYesNo, Question) = vbYes Then
Sheets('TOTO').Range('AA22') = 'X'
Else
Sheets('TOTO').Range('AB22') = 'X'
End If
End If
End If
End Sub

Dans VBA Worsheet TOTO

 

[Annie77]

Des millions de mercis, Riddick !!!!


C'est génial !


Très bon WE.


Annie