Création bouton raz
ronaud
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je souhaiterais créer pour une feuille excel un bouton raz et sa macro.
Malgré mes recherches, impossible d'y parvenir. le bouton oui, mais quelle est la différence entre formulaire et activex?
Et la macro, même après plusieurs tentative pas concluant. Serait il possible d'avoir une petit éclaircissement et le détail de la manoeuvre à réaliser.
Il y a plusieurs cellules à remttre à zéro :
A5,A10,A16,D22,C23,A38,A44,A50,A56,A64,A70,A76,A82,A88,A94,A100,A106,G3,G10,G16,G22,G28,G38,G44,G50,G56,G62,G66,G70,G76,G82,G88,G94,G100,G106
D'avance, un grand merci
Je ne connais pas la version d'Excel car nouveau mini pc avec Windows 8
je souhaiterais créer pour une feuille excel un bouton raz et sa macro.
Malgré mes recherches, impossible d'y parvenir. le bouton oui, mais quelle est la différence entre formulaire et activex?
Et la macro, même après plusieurs tentative pas concluant. Serait il possible d'avoir une petit éclaircissement et le détail de la manoeuvre à réaliser.
Il y a plusieurs cellules à remttre à zéro :
A5,A10,A16,D22,C23,A38,A44,A50,A56,A64,A70,A76,A82,A88,A94,A100,A106,G3,G10,G16,G22,G28,G38,G44,G50,G56,G62,G66,G70,G76,G82,G88,G94,G100,G106
D'avance, un grand merci
Je ne connais pas la version d'Excel car nouveau mini pc avec Windows 8
A voir également:
- Bouton remise à zéro excel
- Remise a zero pc - Guide
- Liste déroulante excel - Guide
- Remise a zero chromecast - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
2 réponses
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.
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
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
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
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