Discussion :

[AgriPhilou]

Bonsoir,

Vous serait-il possible de m'aider ?

J'ai une zone de saisie C17:H52 je souhaite en cliquant sur un bouton de commande qu'une boîte de dialogue s'ouvre me demandant si je veux ou non mettre à jour ma zone, bien sûr en cliquant sur oui la zone serait mise à blanc puis la celulle C17 serait de nouveau active.

Je voudrais savoir également comment mettre un bouton de commande de façon plate, en deux D, voire une image qui pourrait jouer le même rôle.

Merci d'avance.

[fring]

Bonjour,

Une solution éventuelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Mess()
'MsgBox avex boutons Oui + Non
Select Case MsgBox("Voulez-vous mettre à jour votre zone de saisie ?", vbYesNo, "Mise à jour")
    Case vbYes
        Range("C17:H52").ClearContents '<-- procédure si Oui
    Case vbNo
        MsgBox "vous avez décider de ne pas la mettre à jour" '<-- procédure si Non
End Select
End Sub

Pour plus d'info sur la MsgBox tu peux jeter un oeil ICI

Concernant ton bouton, un bouton inséré sur la feuille ne possède pas de propriété permettant de changer son aspect 2D/3D
Tu peux le faire via une zone image que tu insères via la boîte à outils contrôles, click droit sur cette zone image et tu peux accéder à ses propriétés notamment pour définir l'image que tu veux insérer dans cette zone. Via le click droit --> visualiser le code tu peux définir la procédure qu'il faut exécuter en cliquant sur cette image, exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Image1_Click()
Mess
End Sub

[AgriPhilou]

Merci beaucoup pour ta réponse, ça fonctionne trés bien.

@+