Sujet Précédent Sujet Suivant

Excel: confirmation de remise à zéro

Résolu/Fermé
axion - Modifié par axion le 12/12/2011 à 19:49
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 12 déc. 2011 à 20:59
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

Réponse 1 / 1
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
Modifié par eriiic le 12/12/2011 à 19:54
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
12 déc. 2011 à 20:03
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
12 déc. 2011 à 20:11
re,

je n'ai pas pu mettre la question résolue,
merci d'y concourir
axion
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 214
12 déc. 2011 à 20:59
C'est en haut, vers le titre.
C'est fait
eric
0