Modifier la couleur d'un bouton apres execution de la macro
8 réponses
Patcas
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier
individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de données,serait
il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été exécutée...
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
Papyjac
Bonjour Patcas,
Pour cela tu crées une image qui te conviennne 16x16 en format bmp, sous PAINT par exemple, Puis tu forces l'image dans le code avec l'instruction Stdole.stdfunctions.loadpicture
-- P a p y j a c
Je ne sais pas exactement comment le faire en VB6, moi je le fais en VB Excel, Word ou PowerPoint avec succès "Patcas" a écrit dans le message de news:f1v0k.15$
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Bonjour Patcas,
Pour cela tu crées une image qui te conviennne 16x16 en format bmp, sous
PAINT par exemple,
Puis tu forces l'image dans le code avec l'instruction
Stdole.stdfunctions.loadpicture
--
P a p y j a c
Je ne sais pas exactement comment le faire en VB6, moi je le fais en VB
Excel, Word ou PowerPoint avec succès
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news:f1v0k.15$_V3.45@nntpserver.swip.net...
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un
fichier individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de
données,serait il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été
exécutée...
Pour cela tu crées une image qui te conviennne 16x16 en format bmp, sous PAINT par exemple, Puis tu forces l'image dans le code avec l'instruction Stdole.stdfunctions.loadpicture
-- P a p y j a c
Je ne sais pas exactement comment le faire en VB6, moi je le fais en VB Excel, Word ou PowerPoint avec succès "Patcas" a écrit dans le message de news:f1v0k.15$
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Patcas
Merci pour cette rapide réponse mais comme je ne suis pas une expert en macro (merci l'enregistreur) je ne vois pas comment faire ce que tu me proposes Cordialement
Patcas
"Papyjac" a écrit dans le message de news:
Bonjour Patcas,
Pour cela tu crées une image qui te conviennne 16x16 en format bmp, sous PAINT par exemple, Puis tu forces l'image dans le code avec l'instruction Stdole.stdfunctions.loadpicture
-- P a p y j a c
Je ne sais pas exactement comment le faire en VB6, moi je le fais en VB Excel, Word ou PowerPoint avec succès "Patcas" a écrit dans le message de news:f1v0k.15$
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Merci pour cette rapide réponse mais comme je ne suis pas une expert en
macro (merci l'enregistreur)
je ne vois pas comment faire ce que tu me proposes
Cordialement
Patcas
"Papyjac" <jacques.alardet@free.fr> a écrit dans le message de news:
3F6D3B24-F0F2-4C20-A182-9D91A314C491@microsoft.com...
Bonjour Patcas,
Pour cela tu crées une image qui te conviennne 16x16 en format bmp, sous
PAINT par exemple,
Puis tu forces l'image dans le code avec l'instruction
Stdole.stdfunctions.loadpicture
--
P a p y j a c
Je ne sais pas exactement comment le faire en VB6, moi je le fais en VB
Excel, Word ou PowerPoint avec succès
"Patcas" <nospam_artenio49_nospam@hotmail.com> a écrit dans le message de
news:f1v0k.15$_V3.45@nntpserver.swip.net...
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un
fichier individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de
données,serait il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été
exécutée...
Merci pour cette rapide réponse mais comme je ne suis pas une expert en macro (merci l'enregistreur) je ne vois pas comment faire ce que tu me proposes Cordialement
Patcas
"Papyjac" a écrit dans le message de news:
Bonjour Patcas,
Pour cela tu crées une image qui te conviennne 16x16 en format bmp, sous PAINT par exemple, Puis tu forces l'image dans le code avec l'instruction Stdole.stdfunctions.loadpicture
-- P a p y j a c
Je ne sais pas exactement comment le faire en VB6, moi je le fais en VB Excel, Word ou PowerPoint avec succès "Patcas" a écrit dans le message de news:f1v0k.15$
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
JB
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JB http://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fi chier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,ser ait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exéc utée...
Merci pour votre aide
Patcas
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click()
...
Me.CommandButton1.BackColor = vbRed
End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel()
nomshape = Application.Caller
ActiveSheet.Buttons(nomshape).Font.Color = vbWhite
End Sub
JB
http://boisgontierjacques.free.fr
On 1 juin, 12:41, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fi chier
individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de données,ser ait
il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été exéc utée...
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JB http://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fi chier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,ser ait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exéc utée...
Merci pour votre aide
Patcas
Patcas
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module -------- Sub transfertrecapannuelle() Sheets("RepartCompte").Select Range("B57:CS57").Select Selection.Copy Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate Sheets("reports").Select Range("c65000").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False ActiveWorkbook.Save Range("C4").Select End Sub --------
Autre possibilité si plus simple, on peut utiliser du texte genre: texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effectué"
Cordialement
Patcas
"JB" a écrit dans le message de news:
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JB http://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle
Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module
--------
Sub transfertrecapannuelle()
Sheets("RepartCompte").Select
Range("B57:CS57").Select
Selection.Copy
Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate
Sheets("reports").Select
Range("c65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
Range("C4").Select
End Sub
--------
Autre possibilité si plus simple,
on peut utiliser du texte genre:
texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effectué"
Cordialement
Patcas
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
a0c8c36b-5cb5-4de8-92a1-84ee04ec67bb@m73g2000hsh.googlegroups.com...
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click()
...
Me.CommandButton1.BackColor = vbRed
End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel()
nomshape = Application.Caller
ActiveSheet.Buttons(nomshape).Font.Color = vbWhite
End Sub
JB
http://boisgontierjacques.free.fr
On 1 juin, 12:41, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un
fichier
individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de
données,serait
il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été
exécutée...
j'ai créé un bouton par boite a outil controle Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module -------- Sub transfertrecapannuelle() Sheets("RepartCompte").Select Range("B57:CS57").Select Selection.Copy Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate Sheets("reports").Select Range("c65000").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False ActiveWorkbook.Save Range("C4").Select End Sub --------
Autre possibilité si plus simple, on peut utiliser du texte genre: texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effectué"
Cordialement
Patcas
"JB" a écrit dans le message de news:
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JB http://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
JB
Sub MaMacro() NomShape = Application.Caller ActiveSheet.Buttons(NomShape).Font.Color = vbRed ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Wait ...." DoEvents '--- le vrai programme ici For i = 1 To 60000000 i = i Next i '---- ActiveSheet.Buttons(NomShape).Font.Color = vbBlack ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Go..." End Sub
http://cjoint.com/?gbopZaI0yG
JB
On 1 juin, 13:36, "Patcas" wrote:
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module -------- Sub transfertrecapannuelle() Sheets("RepartCompte").Select Range("B57:CS57").Select Selection.Copy Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate Sheets("reports").Select Range("c65000").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False ActiveWorkbook.Save Range("C4").Select End Sub --------
Autre possibilité si plus simple, on peut utiliser du texte genre: texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effect ué"
Cordialement
Patcas
"JB" a écrit dans le message de news:
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JBhttp://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub MaMacro()
NomShape = Application.Caller
ActiveSheet.Buttons(NomShape).Font.Color = vbRed
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text =
"Wait ...."
DoEvents
'--- le vrai programme ici
For i = 1 To 60000000
i = i
Next i
'----
ActiveSheet.Buttons(NomShape).Font.Color = vbBlack
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Go..."
End Sub
http://cjoint.com/?gbopZaI0yG
JB
On 1 juin, 13:36, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle
Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module
--------
Sub transfertrecapannuelle()
Sheets("RepartCompte").Select
Range("B57:CS57").Select
Selection.Copy
Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate
Sheets("reports").Select
Range("c65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
Range("C4").Select
End Sub
--------
Autre possibilité si plus simple,
on peut utiliser du texte genre:
texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effect ué"
Cordialement
Patcas
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
a0c8c36b-5cb5-4de8-92a1-84ee04ec6...@m73g2000hsh.googlegroups.com...
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click()
...
Me.CommandButton1.BackColor = vbRed
End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel()
nomshape = Application.Caller
ActiveSheet.Buttons(nomshape).Font.Color = vbWhite
End Sub
JBhttp://boisgontierjacques.free.fr
On 1 juin, 12:41, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un
fichier
individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de
données,serait
il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été
exécutée...
Merci pour votre aide
Patcas- Masquer le texte des messages précédents -
Sub MaMacro() NomShape = Application.Caller ActiveSheet.Buttons(NomShape).Font.Color = vbRed ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Wait ...." DoEvents '--- le vrai programme ici For i = 1 To 60000000 i = i Next i '---- ActiveSheet.Buttons(NomShape).Font.Color = vbBlack ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Go..." End Sub
http://cjoint.com/?gbopZaI0yG
JB
On 1 juin, 13:36, "Patcas" wrote:
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module -------- Sub transfertrecapannuelle() Sheets("RepartCompte").Select Range("B57:CS57").Select Selection.Copy Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate Sheets("reports").Select Range("c65000").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False ActiveWorkbook.Save Range("C4").Select End Sub --------
Autre possibilité si plus simple, on peut utiliser du texte genre: texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effect ué"
Cordialement
Patcas
"JB" a écrit dans le message de news:
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JBhttp://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Jac
Bonjour Parcas,
autre solution avec des blocs de texte :
http://cjoint.com/?gboUohCINt
Même concept avec des images à rendre visibles ou non.
Jac
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Bonjour Parcas,
autre solution avec des blocs de texte :
http://cjoint.com/?gboUohCINt
Même concept avec des images à rendre visibles ou non.
Jac
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier
individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de données,serait
il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Même concept avec des images à rendre visibles ou non.
Jac
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Patcas
Merci beaucoup C'est agéable d'avoir des pros pour crier "à l''aide" Bon dimanche je continue mon petit boulot
Cordialement
Patcas
"JB" a écrit dans le message de news:
Sub MaMacro() NomShape = Application.Caller ActiveSheet.Buttons(NomShape).Font.Color = vbRed ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text "Wait ...." DoEvents '--- le vrai programme ici For i = 1 To 60000000 i = i Next i '---- ActiveSheet.Buttons(NomShape).Font.Color = vbBlack ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Go..." End Sub
http://cjoint.com/?gbopZaI0yG
JB
On 1 juin, 13:36, "Patcas" wrote:
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module -------- Sub transfertrecapannuelle() Sheets("RepartCompte").Select Range("B57:CS57").Select Selection.Copy Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate Sheets("reports").Select Range("c65000").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False ActiveWorkbook.Save Range("C4").Select End Sub --------
Autre possibilité si plus simple, on peut utiliser du texte genre: texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effectué"
Cordialement
Patcas
"JB" a écrit dans le message de news:
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JBhttp://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci beaucoup
C'est agéable d'avoir des pros pour crier "à l''aide"
Bon dimanche
je continue mon petit boulot
Cordialement
Patcas
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
bb235487-52bb-448d-b160-171901f8606d@m73g2000hsh.googlegroups.com...
Sub MaMacro()
NomShape = Application.Caller
ActiveSheet.Buttons(NomShape).Font.Color = vbRed
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text "Wait ...."
DoEvents
'--- le vrai programme ici
For i = 1 To 60000000
i = i
Next i
'----
ActiveSheet.Buttons(NomShape).Font.Color = vbBlack
ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Go..."
End Sub
http://cjoint.com/?gbopZaI0yG
JB
On 1 juin, 13:36, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle
Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module
--------
Sub transfertrecapannuelle()
Sheets("RepartCompte").Select
Range("B57:CS57").Select
Selection.Copy
Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate
Sheets("reports").Select
Range("c65000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveWorkbook.Save
Range("C4").Select
End Sub
--------
Autre possibilité si plus simple,
on peut utiliser du texte genre:
texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effectué"
Cordialement
Patcas
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
a0c8c36b-5cb5-4de8-92a1-84ee04ec6...@m73g2000hsh.googlegroups.com...
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click()
...
Me.CommandButton1.BackColor = vbRed
End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel()
nomshape = Application.Caller
ActiveSheet.Buttons(nomshape).Font.Color = vbWhite
End Sub
JBhttp://boisgontierjacques.free.fr
On 1 juin, 12:41, "Patcas" <nospam_artenio49_nos...@hotmail.com>
wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un
fichier
individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de
données,serait
il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été
exécutée...
Merci pour votre aide
Patcas- Masquer le texte des messages précédents -
Merci beaucoup C'est agéable d'avoir des pros pour crier "à l''aide" Bon dimanche je continue mon petit boulot
Cordialement
Patcas
"JB" a écrit dans le message de news:
Sub MaMacro() NomShape = Application.Caller ActiveSheet.Buttons(NomShape).Font.Color = vbRed ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text "Wait ...." DoEvents '--- le vrai programme ici For i = 1 To 60000000 i = i Next i '---- ActiveSheet.Buttons(NomShape).Font.Color = vbBlack ActiveSheet.Shapes(NomShape).TextFrame.Characters.Text = "Go..." End Sub
http://cjoint.com/?gbopZaI0yG
JB
On 1 juin, 13:36, "Patcas" wrote:
Merci mais je vois pas comment m'en servir
j'ai créé un bouton par boite a outil controle Comment dois-je mettre ton texte? et ou?
voilà ma macro qui est dans un module -------- Sub transfertrecapannuelle() Sheets("RepartCompte").Select Range("B57:CS57").Select Selection.Copy Windows("aaaa RECAPITULATIF ANNUEL.xls").Activate Sheets("reports").Select Range("c65000").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Link:=True Application.CutCopyMode = False ActiveWorkbook.Save Range("C4").Select End Sub --------
Autre possibilité si plus simple, on peut utiliser du texte genre: texte de base du bouton : "Transfert en attente" (je sais faire :-).....)
et quand la macro est réalisée, c'est remplacé par "Transfert effectué"
Cordialement
Patcas
"JB" a écrit dans le message de news:
Bonjour,
Bouton avec BO contrôles:
Private Sub CommandButton1_Click() ... Me.CommandButton1.BackColor = vbRed End Sub
Bouton BO formulaires:
A ma connaissance, on ne peut pas modifier la couleur de fond:
Sub appel() nomshape = Application.Caller ActiveSheet.Buttons(nomshape).Font.Color = vbWhite End Sub
JBhttp://boisgontierjacques.free.fr On 1 juin, 12:41, "Patcas" wrote:
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Patcas
Merci je mets de coté pour une prochaine fois
J'ai réussi à adapter la proposition de JB à mon probleme donc je suis un papy heureux
Merci à tous pour votre aide
Cordialement
Patcas
"Jac" a écrit dans le message de news:
Bonjour Parcas,
autre solution avec des blocs de texte :
http://cjoint.com/?gboUohCINt
Même concept avec des images à rendre visibles ou non.
Jac
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
Merci pour votre aide
Patcas
Merci je mets de coté pour une prochaine fois
J'ai réussi à adapter la proposition de JB à mon probleme
donc je suis un papy heureux
Merci à tous pour votre aide
Cordialement
Patcas
"Jac" <Jsansp@mfra.net> a écrit dans le message de news:
mn.0b777d86c79f10c8.89607@mfra.net...
Bonjour Parcas,
autre solution avec des blocs de texte :
http://cjoint.com/?gboUohCINt
Même concept avec des images à rendre visibles ou non.
Jac
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un
fichier individuel mensuel dans un fichier recap annuel
Pour etre certain de ne pas oublier de faire le transfert de
données,serait il possible de modifier la couleur du bouton?
genre le bouton est rouge et passe au vert quand la macro a été
exécutée...
J'ai réussi à adapter la proposition de JB à mon probleme donc je suis un papy heureux
Merci à tous pour votre aide
Cordialement
Patcas
"Jac" a écrit dans le message de news:
Bonjour Parcas,
autre solution avec des blocs de texte :
http://cjoint.com/?gboUohCINt
Même concept avec des images à rendre visibles ou non.
Jac
Bonjour
J'ai un bouton auquel j'ai lié une macro qui copie des données d'un fichier individuel mensuel dans un fichier recap annuel Pour etre certain de ne pas oublier de faire le transfert de données,serait il possible de modifier la couleur du bouton? genre le bouton est rouge et passe au vert quand la macro a été exécutée...
