EXCEL pb sur bouton
Fermé
Toots
-
4 mai 2007 à 11:22
xjl Messages postés 232 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 12 juin 2007 - 7 mai 2007 à 08:14
xjl Messages postés 232 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 12 juin 2007 - 7 mai 2007 à 08:14
A voir également:
- EXCEL pb sur bouton
- Liste déroulante excel - Guide
- Formule excel - Guide
- Bouton on off ✓ - Forum Loisirs / Divertissements
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
2 réponses
xjl
Messages postés
232
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
12 juin 2007
183
4 mai 2007 à 11:43
4 mai 2007 à 11:43
Salut,
alors d'abord, il faut que tu fasses Affichage\Barres d'outils\Boite à outils Contrôles pour afficher la barre d'outils et ainsi créer ton bouton..
Ensuite tu sélectionne l'outil bouton (petit rectangle gris) et tu clique sur la feuille où tu veux créer le bouton, tu lui donne le nom que tu veux (ex: Copie) et tu double-clique dessus.
Tu vois apparaitre l'éditeur VB avec deux lignes de code, et tu colles ceci entre les deux lignes:
ActiveSheet.Copy After:=ActiveSheet
Worksheets(2).Name = Worksheets(2).Cells(1, 1).Value
Tu remplace 1,1 par les numéros de ligne et de colonne de la cellule dont tu veux que le nom de ta nouvelle feuille prenne la valeur
Tu peux alors refermer l'éditeur VB, quitter le mode création en cliquant sur l'icône en haut à gauche de ta Boite à outils Contrôles et t'as plus qu'à cliquer sur le bouton pour constater que ça fonctionne... ;-)
alors d'abord, il faut que tu fasses Affichage\Barres d'outils\Boite à outils Contrôles pour afficher la barre d'outils et ainsi créer ton bouton..
Ensuite tu sélectionne l'outil bouton (petit rectangle gris) et tu clique sur la feuille où tu veux créer le bouton, tu lui donne le nom que tu veux (ex: Copie) et tu double-clique dessus.
Tu vois apparaitre l'éditeur VB avec deux lignes de code, et tu colles ceci entre les deux lignes:
ActiveSheet.Copy After:=ActiveSheet
Worksheets(2).Name = Worksheets(2).Cells(1, 1).Value
Tu remplace 1,1 par les numéros de ligne et de colonne de la cellule dont tu veux que le nom de ta nouvelle feuille prenne la valeur
Tu peux alors refermer l'éditeur VB, quitter le mode création en cliquant sur l'icône en haut à gauche de ta Boite à outils Contrôles et t'as plus qu'à cliquer sur le bouton pour constater que ça fonctionne... ;-)
Merci beaucoup, ca marche . Par contre est ce que c'est possible de copier une autre feuille que celle où est placé le bouton ?
xjl
Messages postés
232
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
12 juin 2007
183
7 mai 2007 à 08:14
7 mai 2007 à 08:14
Oui, bien sûr !
Il suffit de remplacer ActiveSheet par Worksheets(i) où i est le numéro de la feuille que tu veux copier... De même, tu peux choisir de la placer après la feuille que tu veux avec After:= Worksheets(i)
Si la feuille que tu souhaites copier a un nom, tu peux également la désigner par Worksheets("Nom_de_ta_feuille")
Bon courage !
Il suffit de remplacer ActiveSheet par Worksheets(i) où i est le numéro de la feuille que tu veux copier... De même, tu peux choisir de la placer après la feuille que tu veux avec After:= Worksheets(i)
Si la feuille que tu souhaites copier a un nom, tu peux également la désigner par Worksheets("Nom_de_ta_feuille")
Bon courage !