Comment faire fonctionner cette macro depuis perso.xls
5 réponses
Emile
Bonjour à tous,
Heureux utilisateur de la macro ci-après, celle-ci me permet de séléctionner
toute une ligne (sur un clic de souris).
Ce qui me facilite la lisibilité dans les grandes feuilles de données.
Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant à
chaque fichier xls, la feuille du module VBA en question.
Je fais appelle à vous car je souhaiterais en disposer tout le temps depuis
ma barre d'outils,
et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la
feuille de mes macros personnelles (perso.xls) .
- Est-ce que quelqu'un pourrait m'indiquer une solution ?
Je vous remercie d'avance pour votre aide,
Cordialement,
Emile
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Selectionne une ligne complète + gras sur sel. de la souris
Cells.Interior.ColorIndex = xlNone
Cells.Font.Bold = False
With Range(Cells(Target.Row, 1), Cells(Target.Row, 18))
.Interior.ColorIndex = 3
.Font.Bold = True
End With
End Sub
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
Alain CROS
Bonjour,
Bien que ça me semble un peu craignos, dans le ThisWorkBook du perso.xls.
Public WithEvents App As Excel.Application
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ' Selectionne une ligne complète + gras sur sel. de la souris Cells.Interior.ColorIndex = xlNone Cells.Font.Bold = False With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) .Interior.ColorIndex = 3 .Font.Bold = True End With End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set App = Nothing End Sub
Private Sub Workbook_Open() Set App = Application End Sub
Alain CROS
"Emile" a écrit dans le message de news: # | Bonjour à tous, | | Heureux utilisateur de la macro ci-après, celle-ci me permet de séléctionner | toute une ligne (sur un clic de souris). | Ce qui me facilite la lisibilité dans les grandes feuilles de données. | Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant à | chaque fichier xls, la feuille du module VBA en question. | Je fais appelle à vous car je souhaiterais en disposer tout le temps depuis | ma barre d'outils, | et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la | feuille de mes macros personnelles (perso.xls) . | - Est-ce que quelqu'un pourrait m'indiquer une solution ? | Je vous remercie d'avance pour votre aide, | Cordialement, | Emile | | | Private Sub Worksheet_SelectionChange(ByVal Target As Range) | ' Selectionne une ligne complète + gras sur sel. de la souris | Cells.Interior.ColorIndex = xlNone | Cells.Font.Bold = False | With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) | .Interior.ColorIndex = 3 | .Font.Bold = True | End With | End Sub | | -- | Emile |
Bonjour,
Bien que ça me semble un peu craignos, dans le ThisWorkBook du perso.xls.
Public WithEvents App As Excel.Application
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
' Selectionne une ligne complète + gras sur sel. de la souris
Cells.Interior.ColorIndex = xlNone
Cells.Font.Bold = False
With Range(Cells(Target.Row, 1), Cells(Target.Row, 18))
.Interior.ColorIndex = 3
.Font.Bold = True
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set App = Nothing
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
Alain CROS
"Emile" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de news: #aPit7O9FHA.1844@TK2MSFTNGP11.phx.gbl...
| Bonjour à tous,
|
| Heureux utilisateur de la macro ci-après, celle-ci me permet de séléctionner
| toute une ligne (sur un clic de souris).
| Ce qui me facilite la lisibilité dans les grandes feuilles de données.
| Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant à
| chaque fichier xls, la feuille du module VBA en question.
| Je fais appelle à vous car je souhaiterais en disposer tout le temps depuis
| ma barre d'outils,
| et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la
| feuille de mes macros personnelles (perso.xls) .
| - Est-ce que quelqu'un pourrait m'indiquer une solution ?
| Je vous remercie d'avance pour votre aide,
| Cordialement,
| Emile
|
|
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
| ' Selectionne une ligne complète + gras sur sel. de la souris
| Cells.Interior.ColorIndex = xlNone
| Cells.Font.Bold = False
| With Range(Cells(Target.Row, 1), Cells(Target.Row, 18))
| .Interior.ColorIndex = 3
| .Font.Bold = True
| End With
| End Sub
|
| --
| Emile
|
Bien que ça me semble un peu craignos, dans le ThisWorkBook du perso.xls.
Public WithEvents App As Excel.Application
Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) ' Selectionne une ligne complète + gras sur sel. de la souris Cells.Interior.ColorIndex = xlNone Cells.Font.Bold = False With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) .Interior.ColorIndex = 3 .Font.Bold = True End With End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Set App = Nothing End Sub
Private Sub Workbook_Open() Set App = Application End Sub
Alain CROS
"Emile" a écrit dans le message de news: # | Bonjour à tous, | | Heureux utilisateur de la macro ci-après, celle-ci me permet de séléctionner | toute une ligne (sur un clic de souris). | Ce qui me facilite la lisibilité dans les grandes feuilles de données. | Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant à | chaque fichier xls, la feuille du module VBA en question. | Je fais appelle à vous car je souhaiterais en disposer tout le temps depuis | ma barre d'outils, | et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la | feuille de mes macros personnelles (perso.xls) . | - Est-ce que quelqu'un pourrait m'indiquer une solution ? | Je vous remercie d'avance pour votre aide, | Cordialement, | Emile | | | Private Sub Worksheet_SelectionChange(ByVal Target As Range) | ' Selectionne une ligne complète + gras sur sel. de la souris | Cells.Interior.ColorIndex = xlNone | Cells.Font.Bold = False | With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) | .Interior.ColorIndex = 3 | .Font.Bold = True | End With | End Sub | | -- | Emile |
Emile
Bonjour Alain et merci pour votre aide,
-Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ? si oui, comment je lui attribuer le bouton depuis la barre de menus? Telle quelle, ça n'a pas fonctionné.. :-(
Je vous remercie de votre aide et éclairage supplémentaire Cordialement,
Emile
"Alain CROS" a écrit dans le message de news:
| Bonjour, | | Bien que ça me semble un peu craignos, dans le ThisWorkBook du perso.xls. | | Public WithEvents App As Excel.Application | | Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) | ' Selectionne une ligne complète + gras sur sel. de la souris | Cells.Interior.ColorIndex = xlNone | Cells.Font.Bold = False | With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) | .Interior.ColorIndex = 3 | .Font.Bold = True | End With | End Sub | | Private Sub Workbook_BeforeClose(Cancel As Boolean) | Set App = Nothing | End Sub | | Private Sub Workbook_Open() | Set App = Application | End Sub | | Alain CROS | | "Emile" a écrit dans le message de news: # || Bonjour à tous, || || Heureux utilisateur de la macro ci-après, celle-ci me permet de séléctionner || toute une ligne (sur un clic de souris). || Ce qui me facilite la lisibilité dans les grandes feuilles de données. || Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant à || chaque fichier xls, la feuille du module VBA en question. || Je fais appelle à vous car je souhaiterais en disposer tout le temps depuis || ma barre d'outils, || et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la || feuille de mes macros personnelles (perso.xls) . || - Est-ce que quelqu'un pourrait m'indiquer une solution ? || Je vous remercie d'avance pour votre aide, || Cordialement, || Emile || || || Private Sub Worksheet_SelectionChange(ByVal Target As Range) || ' Selectionne une ligne complète + gras sur sel. de la souris || Cells.Interior.ColorIndex = xlNone || Cells.Font.Bold = False || With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) || .Interior.ColorIndex = 3 || .Font.Bold = True || End With || End Sub || || -- || Emile || | |
Bonjour Alain et merci pour votre aide,
-Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ?
si oui, comment je lui attribuer le bouton depuis la barre de menus?
Telle quelle, ça n'a pas fonctionné.. :-(
Je vous remercie de votre aide et éclairage supplémentaire
Cordialement,
Emile
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
edPM3vP9FHA.648@TK2MSFTNGP12.phx.gbl...
| Bonjour,
|
| Bien que ça me semble un peu craignos, dans le ThisWorkBook du perso.xls.
|
| Public WithEvents App As Excel.Application
|
| Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
Range)
| ' Selectionne une ligne complète + gras sur sel. de la souris
| Cells.Interior.ColorIndex = xlNone
| Cells.Font.Bold = False
| With Range(Cells(Target.Row, 1), Cells(Target.Row, 18))
| .Interior.ColorIndex = 3
| .Font.Bold = True
| End With
| End Sub
|
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
| Set App = Nothing
| End Sub
|
| Private Sub Workbook_Open()
| Set App = Application
| End Sub
|
| Alain CROS
|
| "Emile" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de
news: #aPit7O9FHA.1844@TK2MSFTNGP11.phx.gbl...
|| Bonjour à tous,
||
|| Heureux utilisateur de la macro ci-après, celle-ci me permet de
séléctionner
|| toute une ligne (sur un clic de souris).
|| Ce qui me facilite la lisibilité dans les grandes feuilles de données.
|| Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant
à
|| chaque fichier xls, la feuille du module VBA en question.
|| Je fais appelle à vous car je souhaiterais en disposer tout le temps
depuis
|| ma barre d'outils,
|| et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la
|| feuille de mes macros personnelles (perso.xls) .
|| - Est-ce que quelqu'un pourrait m'indiquer une solution ?
|| Je vous remercie d'avance pour votre aide,
|| Cordialement,
|| Emile
||
||
|| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
|| ' Selectionne une ligne complète + gras sur sel. de la souris
|| Cells.Interior.ColorIndex = xlNone
|| Cells.Font.Bold = False
|| With Range(Cells(Target.Row, 1), Cells(Target.Row, 18))
|| .Interior.ColorIndex = 3
|| .Font.Bold = True
|| End With
|| End Sub
||
|| --
|| Emile
||
|
|
-Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ? si oui, comment je lui attribuer le bouton depuis la barre de menus? Telle quelle, ça n'a pas fonctionné.. :-(
Je vous remercie de votre aide et éclairage supplémentaire Cordialement,
Emile
"Alain CROS" a écrit dans le message de news:
| Bonjour, | | Bien que ça me semble un peu craignos, dans le ThisWorkBook du perso.xls. | | Public WithEvents App As Excel.Application | | Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) | ' Selectionne une ligne complète + gras sur sel. de la souris | Cells.Interior.ColorIndex = xlNone | Cells.Font.Bold = False | With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) | .Interior.ColorIndex = 3 | .Font.Bold = True | End With | End Sub | | Private Sub Workbook_BeforeClose(Cancel As Boolean) | Set App = Nothing | End Sub | | Private Sub Workbook_Open() | Set App = Application | End Sub | | Alain CROS | | "Emile" a écrit dans le message de news: # || Bonjour à tous, || || Heureux utilisateur de la macro ci-après, celle-ci me permet de séléctionner || toute une ligne (sur un clic de souris). || Ce qui me facilite la lisibilité dans les grandes feuilles de données. || Toutefois sous cette forme, cette macro ne fonctionne qu'en l'attribuant à || chaque fichier xls, la feuille du module VBA en question. || Je fais appelle à vous car je souhaiterais en disposer tout le temps depuis || ma barre d'outils, || et pouvoir l'enclancher et la déclancher par un (seul) bouton depuis la || feuille de mes macros personnelles (perso.xls) . || - Est-ce que quelqu'un pourrait m'indiquer une solution ? || Je vous remercie d'avance pour votre aide, || Cordialement, || Emile || || || Private Sub Worksheet_SelectionChange(ByVal Target As Range) || ' Selectionne une ligne complète + gras sur sel. de la souris || Cells.Interior.ColorIndex = xlNone || Cells.Font.Bold = False || With Range(Cells(Target.Row, 1), Cells(Target.Row, 18)) || .Interior.ColorIndex = 3 || .Font.Bold = True || End With || End Sub || || -- || Emile || | |
Alain CROS
Bonjour,
"Emile" a écrit dans le message de news: e# | Bonjour Alain et merci pour votre aide, | | -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ?
Comme dit précédemment, dans le ThisWorkBook du perso.xls.
| si oui, comment je lui attribuer le bouton depuis la barre de menus?
Je ne comprends pas la question.
Alain CROS
Bonjour,
"Emile" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de news: e#F92AQ9FHA.472@TK2MSFTNGP15.phx.gbl...
| Bonjour Alain et merci pour votre aide,
|
| -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ?
Comme dit précédemment, dans le ThisWorkBook du perso.xls.
| si oui, comment je lui attribuer le bouton depuis la barre de menus?
"Emile" a écrit dans le message de news: e# | Bonjour Alain et merci pour votre aide, | | -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ?
Comme dit précédemment, dans le ThisWorkBook du perso.xls.
| si oui, comment je lui attribuer le bouton depuis la barre de menus?
Je ne comprends pas la question.
Alain CROS
Emile
Bonjour Alain,
En mettant ces procédures dans le ThisWorkBook de perso.xls, j'ai une "erreur de compilation" avec cette ligne: WithEvents App As Excel.Application :-(
D'autre part, je ne souhaite pas mettre des lignes en "surbrillance" sur tous les fichiers que j'ouvre avec Excel. - Je souhaite pouvoir activer et désactiver cette commande, sur besoin, par le biais d'un bouton de commande ajouté à une barre d'outils.
Merci pour votre aide et votre disponibilité. ;-) Emile
"Alain CROS" a écrit dans le message de news:
| Bonjour, | | "Emile" a écrit dans le message de news: e# || Bonjour Alain et merci pour votre aide, || || -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ? | | Comme dit précédemment, dans le ThisWorkBook du perso.xls. | || si oui, comment je lui attribuer le bouton depuis la barre de menus? | | Je ne comprends pas la question. | | Alain CROS | |
Bonjour Alain,
En mettant ces procédures dans le ThisWorkBook de perso.xls, j'ai une
"erreur de compilation"
avec cette ligne: WithEvents App As Excel.Application :-(
D'autre part, je ne souhaite pas mettre des lignes en "surbrillance" sur
tous les fichiers que j'ouvre avec Excel.
- Je souhaite pouvoir activer et désactiver cette commande, sur besoin, par
le biais d'un bouton de commande ajouté à une barre d'outils.
Merci pour votre aide et votre disponibilité. ;-)
Emile
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
uyhp9rQ9FHA.2364@TK2MSFTNGP12.phx.gbl...
| Bonjour,
|
| "Emile" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de
news: e#F92AQ9FHA.472@TK2MSFTNGP15.phx.gbl...
|| Bonjour Alain et merci pour votre aide,
||
|| -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ?
|
| Comme dit précédemment, dans le ThisWorkBook du perso.xls.
|
|| si oui, comment je lui attribuer le bouton depuis la barre de menus?
|
| Je ne comprends pas la question.
|
| Alain CROS
|
|
En mettant ces procédures dans le ThisWorkBook de perso.xls, j'ai une "erreur de compilation" avec cette ligne: WithEvents App As Excel.Application :-(
D'autre part, je ne souhaite pas mettre des lignes en "surbrillance" sur tous les fichiers que j'ouvre avec Excel. - Je souhaite pouvoir activer et désactiver cette commande, sur besoin, par le biais d'un bouton de commande ajouté à une barre d'outils.
Merci pour votre aide et votre disponibilité. ;-) Emile
"Alain CROS" a écrit dans le message de news:
| Bonjour, | | "Emile" a écrit dans le message de news: e# || Bonjour Alain et merci pour votre aide, || || -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ? | | Comme dit précédemment, dans le ThisWorkBook du perso.xls. | || si oui, comment je lui attribuer le bouton depuis la barre de menus? | | Je ne comprends pas la question. | | Alain CROS | |
michdenis
Bonjour Émile,
Copie tout le code soumis par Alain dans le ThisWorkbook de ton Classeur Perso.xls. Sauvegarde ton perso.
Ferme Excel et à sa réouverture, cela devrait fonctionner ! La procédure Workbook_Open que tu copies dans le perso.xls doit s'exécuter pour que cela fonctionne et cette procédure le fait au démarrage du classeur.
Salutations!
"Emile" a écrit dans le message de news: Bonjour Alain,
En mettant ces procédures dans le ThisWorkBook de perso.xls, j'ai une "erreur de compilation" avec cette ligne: WithEvents App As Excel.Application :-(
D'autre part, je ne souhaite pas mettre des lignes en "surbrillance" sur tous les fichiers que j'ouvre avec Excel. - Je souhaite pouvoir activer et désactiver cette commande, sur besoin, par le biais d'un bouton de commande ajouté à une barre d'outils.
Merci pour votre aide et votre disponibilité. ;-) Emile
"Alain CROS" a écrit dans le message de news:
| Bonjour, | | "Emile" a écrit dans le message de news: e# || Bonjour Alain et merci pour votre aide, || || -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ? | | Comme dit précédemment, dans le ThisWorkBook du perso.xls. | || si oui, comment je lui attribuer le bouton depuis la barre de menus? | | Je ne comprends pas la question. | | Alain CROS | |
Bonjour Émile,
Copie tout le code soumis par Alain dans le ThisWorkbook de ton Classeur Perso.xls. Sauvegarde ton perso.
Ferme Excel et à sa réouverture, cela devrait fonctionner ! La procédure Workbook_Open que tu copies dans
le perso.xls doit s'exécuter pour que cela fonctionne et cette procédure le fait au démarrage du classeur.
Salutations!
"Emile" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de news: elRGj3X9FHA.1420@TK2MSFTNGP09.phx.gbl...
Bonjour Alain,
En mettant ces procédures dans le ThisWorkBook de perso.xls, j'ai une
"erreur de compilation"
avec cette ligne: WithEvents App As Excel.Application :-(
D'autre part, je ne souhaite pas mettre des lignes en "surbrillance" sur
tous les fichiers que j'ouvre avec Excel.
- Je souhaite pouvoir activer et désactiver cette commande, sur besoin, par
le biais d'un bouton de commande ajouté à une barre d'outils.
Merci pour votre aide et votre disponibilité. ;-)
Emile
"Alain CROS" <Personne@ICI> a écrit dans le message de news:
uyhp9rQ9FHA.2364@TK2MSFTNGP12.phx.gbl...
| Bonjour,
|
| "Emile" <emile63_noSpam@noSpam_isuisse.com> a écrit dans le message de
news: e#F92AQ9FHA.472@TK2MSFTNGP15.phx.gbl...
|| Bonjour Alain et merci pour votre aide,
||
|| -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ?
|
| Comme dit précédemment, dans le ThisWorkBook du perso.xls.
|
|| si oui, comment je lui attribuer le bouton depuis la barre de menus?
|
| Je ne comprends pas la question.
|
| Alain CROS
|
|
Copie tout le code soumis par Alain dans le ThisWorkbook de ton Classeur Perso.xls. Sauvegarde ton perso.
Ferme Excel et à sa réouverture, cela devrait fonctionner ! La procédure Workbook_Open que tu copies dans le perso.xls doit s'exécuter pour que cela fonctionne et cette procédure le fait au démarrage du classeur.
Salutations!
"Emile" a écrit dans le message de news: Bonjour Alain,
En mettant ces procédures dans le ThisWorkBook de perso.xls, j'ai une "erreur de compilation" avec cette ligne: WithEvents App As Excel.Application :-(
D'autre part, je ne souhaite pas mettre des lignes en "surbrillance" sur tous les fichiers que j'ouvre avec Excel. - Je souhaite pouvoir activer et désactiver cette commande, sur besoin, par le biais d'un bouton de commande ajouté à une barre d'outils.
Merci pour votre aide et votre disponibilité. ;-) Emile
"Alain CROS" a écrit dans le message de news:
| Bonjour, | | "Emile" a écrit dans le message de news: e# || Bonjour Alain et merci pour votre aide, || || -Est-ce qu'il faut mettre ces 3 proc. dans le ThisWorkBook ? | | Comme dit précédemment, dans le ThisWorkBook du perso.xls. | || si oui, comment je lui attribuer le bouton depuis la barre de menus? | | Je ne comprends pas la question. | | Alain CROS | |