Excel: confirmation de remise à zéro

Résolu
axion -  
eriiic Messages postés 24603 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


A voir également:

1 réponse

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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
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
axion
 
re,

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