Effacer plusieurs plages de données en un seul clic sur une
Boujour à toutes et à tous,
J'ai réalisé une feuille de prise de tension artérielle et je voudrais pouvoir effacer toutes les donnée contenues dans les zones en grisé avec un simple clic dans la case "Remise à 0", mais je ne maitrise pas assez VBA pour pouvoir le faire.
Pouvez-vous m'aider ?
D'avance merci,
Cordialement,
Alban
Merci, mais je ne vois pas comment adapter ces codes à mon problème
Salut Alban 56,
Toujours les mêmes cellules qui sont gisées?
Dams
Pour Dams : Oui ce sont toujours les mêmes plages
Pour JFL : Tout d'abord merci: Le système fonctionne, mais je n'arrive pas à déplacer votre bouton de RAZ pour le mettre à la place sur ma feuille, et la RAZ efface les encadrements et le fond grisé
Alban 56 a écrit :Pour JFL : Tout d'abord merci: Le système fonctionne, mais je n'arrive pas à déplacer votre bouton de RAZ pour le mettre à la place sur ma feuille, et la RAZ efface les encadrements et le fond grisé
Déplacement du bouton :
Clic droit sur le bouton
Touche escape pour effacer le menu qui apparait
Et ensuite avec la souris (clic gauche) vous placez le bouton où bon vous semble.
Effets de la RAZ
Sur mon micro, la RAZ n'efface que les valeurs. Rien d'autre...
Votre version excel (2003) est peut-être à l'origine de ce dysfonctionnement.
J'ai modifié mon code. Merci de tester cette nouvelle proposition.
Votre code efface bien les données en préservant les cadres ainsi que la couleur grisée des plages.
Mais je n'ai pas réussi à transférer votre bouton de RAZ sur l'emplacement prévu sur ma feuille de calcul.
J'ai mis le nouveau fichier en pièce jointe avec les modifs
Salut Alban, jfl,
Voilà un bouton bien placé et un code plus léger!
'
Range("E5:O31").ClearContents
'A+
Bonjour,
Voici le bouton.... bien en place ! Enfin......j'espère !
curulis57 a écrit :Voilà un bouton bien placé et un code plus léger!
'Range("E5:O31").ClearContents'
J'ai déjà proposé ce code (voir fichier antérieur) mais notre ami ne dispose que d'Excel 2003 et le ClearContents date de 2013. Cela semble se traduire par un comportement équivalent à Clear avec un effacement de la mise en forme, ce qui n'est pas souhaité.
Bonjour Jfl,
ah, évidemment!
Dans ce cas...
Range("E5:O31").Value = ""Bon dimanche!
A+
curulis57 a écrit :ah, évidemment!
Dans ce cas...
Range("E5:O31").Value = ""
Evidemment !
Le système fonctionne 5/5; un grand merci à tous ceux qui me sont venus en aide principalement à JFL.
Bon dimanche à toutes et à tous,
Bien cordialement,
ALBAN