Création bouton raz
Fermé
ronaud
Messages postés
16
Date d'inscription
lundi 1 mars 2010
Statut
Membre
Dernière intervention
10 janvier 2019
-
22 déc. 2014 à 12:07
via55 Messages postés 14502 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2024 - 22 déc. 2014 à 15:24
via55 Messages postés 14502 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 9 décembre 2024 - 22 déc. 2014 à 15:24
A voir également:
- Bouton remise à zéro excel
- Remise a zero pc - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
2 réponses
pio923
Messages postés
36
Date d'inscription
dimanche 8 mars 2009
Statut
Membre
Dernière intervention
12 décembre 2015
85
22 déc. 2014 à 12:48
22 déc. 2014 à 12:48
Bonjour,
Lorsque vous insérez un bouton, une fenêtre s'affiche pour affecter une macro.
Cliquez sur "nouvelle", puis lorsque vous êtes dans la page de code tapez:
Sub Bouton1_Clic()
Range("A5").Clear
Range("A10").Clear
Range("A16").Clear
Range("D22").Clear
End Sub
(avec une ligne pour chaque cellule à remettre à zéro)
Et il ne reste plus qu'à enregistrer.
Lorsque vous insérez un bouton, une fenêtre s'affiche pour affecter une macro.
Cliquez sur "nouvelle", puis lorsque vous êtes dans la page de code tapez:
Sub Bouton1_Clic()
Range("A5").Clear
Range("A10").Clear
Range("A16").Clear
Range("D22").Clear
End Sub
(avec une ligne pour chaque cellule à remettre à zéro)
Et il ne reste plus qu'à enregistrer.
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 247
Modifié par eriiic le 22/12/2014 à 14:15
Modifié par eriiic le 22/12/2014 à 14:15
Bonjour,
est-bien nécessaire de poster dans plusieurs forum sans attendre 24h sans réponse ?
Tu fais chercher plusieurs personnes alors que la réponse est déjà ailleurs. Ce temps pourrait servir à d'autres demandeurs.
Remercier les intervenants après leur réponses par contre ça ça se fait...
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
est-bien nécessaire de poster dans plusieurs forum sans attendre 24h sans réponse ?
Tu fais chercher plusieurs personnes alors que la réponse est déjà ailleurs. Ce temps pourrait servir à d'autres demandeurs.
Remercier les intervenants après leur réponses par contre ça ça se fait...
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
22 déc. 2014 à 13:11
22 déc. 2014 à 13:33
Comme il y beaucoup de cellules à effacer , rentrer toutes les instructions dans la macro peut se révéler fastidieux; de plus si on veut modifier une adresse de cellule à changer il faut modifier la macro
Pour éviter cela on peut dans une feuille nommée Donnes entrer en colonne A les références sous la forme A5, A10 etc puis dans la macro faire boucler sur ces cellules pour récupérer l'adresse correspondante et effacer dans la Feuil2
Sub Bouton1_Clic For n = 1 To 35 'nombre maxi à modifier en fonction du nombre de références ad = Sheets("Donnees").Range("A" & n) Sheets("Feuil2").Range(ad).Clear ' nom de la feuille à adapter Next n End subCdlmnt
22 déc. 2014 à 14:32
encore un grand merci pour intervention précédente.
je me permets de revenir vers toi afin de voir si tu aurais une piste pour création d'un bouton qui ferait l'addition de cellules réparties sur une feuille.
Il y a le bouton et son action mais la cellule ou devrait se trouver le total.
peux tu m'expliquer la façon de le réaliser?
un grand merci
22 déc. 2014 à 15:24
En modifiant la macro précédente on peut faire additionner les valeurs des cellules référencées et placer le résultat dans une cellule déterminée de la feuille 2
Sub Bouton2_Clic total=0 For n = 1 To 35 'nombre maxi à modifier en fonction du nombre de références ad = Sheets("Donnees").Range("A" & n) total=total + Sheets("Feuil2").Range(ad) ' nom de la feuille à adapter Next n Sheets("Feuil2").range("A1")=total 'place le total en A1, référence de cellule à adapter de même que le nom de la feuille End subCdlmnt