Discussion :

[robbynash]

Bonsoir
Je suis débutant en VBA
En fouinant un peu partout, j'ai réussi à créer une macro qui me réinitialise la feuille de calcul. Mais comme cette ne sera pas utilisé par ma personne, je voudrais en cliquant sur le bouton "fatal" un message d'avertissement du type :
"ATTENTION!!!!!! vous allez effacez vos données. Etes vous sure de vous...........OUI / NON " Réponse
Puis un deuxième message : Vous perdrez irrémédiablement vos données....... OUI / NON " Réponse
Si oui cela enclenche l’effacement
Si non je sors de ma macro d’effacement.
Je n'arrive pas à faire ce message et je ne trouve rien la dessus. Quelqu'un pourrait-il m'aider ?
MERCI A VOUS
Robby

[Nicolas JACQUIN]

Bonjour, d'après ce que j'ai compris, tu devrais trouver ton bonheur ici

http://fring.developpez.com/vba/excel/msgbox/

Bon courage

[Nicolas JACQUIN]

Bonjour,
J'avais un peu de temps à passer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub effacer_plage()
Dim rep As Integer
Application.ScreenUpdating = False
rep = MsgBox("ATTENTION!!!!!! vous allez effacez vos données. Etes vous sure de vous ?", vbYesNo + vbExclamation + vbDefaultButton2, "Attention")
    If rep = vbNo Then
    MsgBox ("Opération annulée")
        Exit Sub
        End If
    If rep = vbYes Then
            rep = MsgBox("Vous perdrez irrémédiablement vos données !!!!", vbYesNo + vbExclamation + vbDefaultButton2, "Attention")
            If rep = vbNo Then
            MsgBox ("Opération annulée")
            Exit Sub
            End If
                If rep = vbYes Then
                ActiveCell.Offset.Clear 'A adapter au besoin voulu
                MsgBox ("Données effacées")
                End If
End If
End Sub

A bientôt.

[unparia]

Bonjour Nicolas
Regarde cette autre manière de traiter ce genre :

Code :

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

1
2
3
4
5
6
7
8
 Dim insiste As Integer, titi As Byte, msg As String
  insiste = vbYes: titi = 0
  Do While insiste = vbYes And titi < 2
     msg = IIf(titi = 0, "ATTENTION!!!!!! vous allez effacez vos données. Etes vous sure de vous ?", "Vous perdrez irrémédiablement vos données !!!!")
    insiste = MsgBox(msg, vbYesNo + vbExclamation + vbDefaultButton2, "Attention")
    titi = titi + 1
  Loop
  If insiste = vbYes Then ' ..... instructions d'effacement ....

Amitiés

[Nicolas JACQUIN]

Bonjour Jacques,
oui c'est beaucoup plus compact, les iff j'ai un peu de mal mais commence à piger, mais si tu veux rajouter MsgBox ("Opération annulée") tu place ou ?
Merci

[Nicolas JACQUIN]

C'est bon, du premier coup

Code :

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

1
2
3
4
5
6
7
8
9
 Dim insiste As Integer, titi As Byte, msg As String
  insiste = vbYes: titi = 0
  Do While insiste = vbYes And titi < 2
     msg = IIf(titi = 0, "ATTENTION!!!!!! vous allez effacez vos données. Etes vous sure de vous ?", "Vous perdrez irrémédiablement vos données !!!!")
    insiste = MsgBox(msg, vbYesNo + vbExclamation + vbDefaultButton2, "Attention")
    titi = titi + 1
    If insiste = vbNo Then MsgBox ("Opération annulée")
  Loop
  If insiste = vbYes Then ActiveCell.Offset.Clear

Merci Jacques