Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Bouton de commande

Bouton de commande

7 réponses
Avatar
gb
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils "Commande"
auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la même
macro
Comment faire ??
D'avance merci
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
sabatier
bonjour gb
et si tu associes ce bouton de la feuil2 à la macro en question, ça ne
marche pas?
jps (qui a dû mal comprendre (chut! philippe R...dors))

gb a écrit:
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils "Commande"
auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la même
macro
Comment faire ??
D'avance merci




Avatar
Philippe.R
Bonjour gb,
Une piste : Enregistrer le code de recopie dans un module ordinaire, sous le nom de Sub Copie_mes_vals()
par exemple et dans le code du bouton de la feuille 1 :

Private Sub CommandButton1_Click()
Copie_mes_vals
End Sub

tu crées un autre bouton dans la feuille 2 et tu y colles le même code
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402dd63a$0$28153$
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils "Commande"
auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la même
macro
Comment faire ??
D'avance merci




Avatar
Philippe.R
jps (qui a dû mal comprendre (chut! philippe R...dors))
C'est qu'il m'a réveillé, tiens !

;o))))))))))))))))
--
Amicales Salutations

"sabatier" a écrit dans le message de news:
bonjour gb
et si tu associes ce bouton de la feuil2 à la macro en question, ça ne
marche pas?
jps (qui a dû mal comprendre (chut! philippe R...dors))

gb a écrit:
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils "Commande"
auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la même
macro
Comment faire ??
D'avance merci







Avatar
gb
Rebonjour,
Cela ne marche pas dés que je sélectionne une plage de la Feuil1, même en
rendant celle-ci active !!!!

"Philippe.R" a écrit dans le message de
news:%
Bonjour gb,
Une piste : Enregistrer le code de recopie dans un module ordinaire, sous
le nom de Sub Copie_mes_vals()

par exemple et dans le code du bouton de la feuille 1 :

Private Sub CommandButton1_Click()
Copie_mes_vals
End Sub

tu crées un autre bouton dans la feuille 2 et tu y colles le même code
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402dd63a$0$28153$
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils
"Commande"


auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la même
macro
Comment faire ??
D'avance merci








Avatar
Philippe.R
Re,
Peux tu publier ici même le code utilisé (pas le classeur), histoire de voir où cela peut clocher ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402e571d$0$28146$
Rebonjour,
Cela ne marche pas dés que je sélectionne une plage de la Feuil1, même en
rendant celle-ci active !!!!

"Philippe.R" a écrit dans le message de
news:%
Bonjour gb,
Une piste : Enregistrer le code de recopie dans un module ordinaire, sous
le nom de Sub Copie_mes_vals()

par exemple et dans le code du bouton de la feuille 1 :

Private Sub CommandButton1_Click()
Copie_mes_vals
End Sub

tu crées un autre bouton dans la feuille 2 et tu y colles le même code
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402dd63a$0$28153$
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils
"Commande"


auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la même
macro
Comment faire ??
D'avance merci












Avatar
gb
Private Sub CommandButton1_Click()
With Sheets("immodetails")
l = 4
Sheets("immobilisations").Activate
Sheets("immobilisations").Range(Cells(4, 1), Cells(400,
11)).ClearContents
For x = 1 To 400
If .Cells(3 + x, 1) <> "" Then
For y = 1 To 11
Sheets("immobilisations").Cells(l, y) = .Cells(3 + x, y)
Next y
l = l + 1
End If
Next x
.Activate
End With
End Sub
Cela marche avec le bouton de la feuille "immobilisations" mais pas avec le
bouton de la feuille "immodétails"
"Philippe.R" a écrit dans le message de
news:
Re,
Peux tu publier ici même le code utilisé (pas le classeur), histoire de
voir où cela peut clocher ?

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402e571d$0$28146$
Rebonjour,
Cela ne marche pas dés que je sélectionne une plage de la Feuil1, même
en


rendant celle-ci active !!!!

"Philippe.R" a écrit dans le message de
news:%
Bonjour gb,
Une piste : Enregistrer le code de recopie dans un module ordinaire,
sous



le nom de Sub Copie_mes_vals()
par exemple et dans le code du bouton de la feuille 1 :

Private Sub CommandButton1_Click()
Copie_mes_vals
End Sub

tu crées un autre bouton dans la feuille 2 et tu y colles le même code
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402dd63a$0$28153$
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils
"Commande"


auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la
même




macro
Comment faire ??
D'avance merci
















Avatar
Philippe.R
Bonsoir,
Essaies en copiant ceci dans un module ordinaire :

Sub Copie_moi_ca()
With Sheets("immodetails")
l = 4
Sheets("immobilisations").Activate
Range(Cells(4, 1), Cells(400, 11)).ClearContents
For x = 1 To 400
If .Cells(3 + x, 1) <> "" Then
For y = 1 To 11
Sheets("immobilisations").Cells(l, y) = .Cells(3 + x, y)
Next y
l = l + 1
End If
Next x
.Activate
End With
End Sub

et dans tes modules de feuilles respectifs, tu copies alors :

Private Sub CommandButton1_Click()
Copie_moi_ca
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402e62fd$0$28124$
Private Sub CommandButton1_Click()
With Sheets("immodetails")
l = 4
Sheets("immobilisations").Activate
Sheets("immobilisations").Range(Cells(4, 1), Cells(400,
11)).ClearContents
For x = 1 To 400
If .Cells(3 + x, 1) <> "" Then
For y = 1 To 11
Sheets("immobilisations").Cells(l, y) = .Cells(3 + x, y)
Next y
l = l + 1
End If
Next x
.Activate
End With
End Sub
Cela marche avec le bouton de la feuille "immobilisations" mais pas avec le
bouton de la feuille "immodétails"
"Philippe.R" a écrit dans le message de
news:
Re,
Peux tu publier ici même le code utilisé (pas le classeur), histoire de
voir où cela peut clocher ?

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402e571d$0$28146$
Rebonjour,
Cela ne marche pas dés que je sélectionne une plage de la Feuil1, même
en


rendant celle-ci active !!!!

"Philippe.R" a écrit dans le message de
news:%
Bonjour gb,
Une piste : Enregistrer le code de recopie dans un module ordinaire,
sous



le nom de Sub Copie_mes_vals()
par exemple et dans le code du bouton de la feuille 1 :

Private Sub CommandButton1_Click()
Copie_mes_vals
End Sub

tu crées un autre bouton dans la feuille 2 et tu y colles le même code
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"gb" a écrit dans le message de
news:402dd63a$0$28153$
Bonjour,
Avec excel 97
J'ai créé un bouton dans la feuil1 à partir de la barre d'outils
"Commande"


auquel j'ai associé une macro
(Private Sub CommandButton1_Click())
Cette macro recopie des cellules de la feuil2 vers cette feuil1
Je voudrais créer un nouveau bouton dans la feuil2 pour agir sur la
même




macro
Comment faire ??
D'avance merci