Excel: confirmation de remise à zéro

Résolu
axion -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je recherche en vain un moyen de confirmer une commande de remise à zéro d'un tableau.
j'ai essayé par la validation de données, sans succès.
la macro est déclenchée par une forme et concerne plusieurs plages non adjacentes de listes déroulantes: B et C, E et F, I à M, sur n lignes identiques d'une même feuille.

l'enregistrement de macro donne ceci :

RAZ_Tarots Macro
'

'
Range("B12:C52").Select
ActiveWindow.LargeScroll Down:=-3
Range("B12:C52,E12:F52").Select
Range("E12").Activate
ActiveWindow.LargeScroll Down:=-3
Range("B12:C52,E12:F52,I12:M52").Select
Range("I12").Activate
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-3
Range("C3").Select
End Sub

je désirerais créer une fenêtre de confirmation ou annulation de cette commande,
par sécurité...

je remercie par avance tous ceux qui pourront m'aider
cordialement
axion

PS: j'ai oublié: il s'agit d'excel 2010, mais compatible pour 2003

1 réponse

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    essaie avec ça : 
    Sub raz() 
    If MsgBox("Confirmez-vous la raz ?", vbYesNo, "Confirmation") = vbYes Then 
        [B12:C52,E12:F52,I12:M52].ClearContents 
        [C3].Select 
    End If 
End Sub

    eric
    1
    1. axion
       
      bonsoir, Eric

      merci de ta réponse diligente et de la simplification du laïus : efficace et parfait !!

      bonne continuation et encore bravo !
      cordialement
      axion
      0
    2. axion
       
      re,

      je n'ai pas pu mettre la question résolue,
      merci d'y concourir
      axion
      0
    3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      C'est en haut, vers le titre.
      C'est fait
      eric
      0