Excel 2003 surbrillance ligne désactivable
etoile_mymi
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Ashlis -
Ashlis -
Bonjour à tous,
Voilà, j'ai cherché sur le net une macro qui me permettrai de mettre la ligne active en surbrillance, sans que ça ne modifie la mise en forme de mon tableau.
J'ai trouvé cette discussion :
https://forums.commentcamarche.net/forum/affich-20715652-macro-vba-pour-surligner-une-ligne
Elle est très clair, bien expliquée pour quelqu'un qui comme moi n'a jamais fait de macro, sauf que la macro en question modifie ma mise en forme de mon tableau et elle est active tout le temps.
Le tableau que j'utilise est très simple, il me sert à contrôler ce que je fais sur la paie du personnel que je gère. Je le rempli pendant le mois et à la fin, je contrôle si ce que j'ai fait est bien pris en compte dans mon logiciel de paie (c'est un suivi de codification).
J'aimerai donc que pendant le mois je puisse le compléter sans que la macro se mette en route et que lors du contrôle de paie je puisse activer la macro (via un bouton par exemple).
Quelqu'un aurait-il une solution pour mon tableau?
(je voulais le joindre à ma demande mais ni suis pas arrivé).
Je vous remercie grandement pour votre aide.
A très bientot
Mymi
Voilà, j'ai cherché sur le net une macro qui me permettrai de mettre la ligne active en surbrillance, sans que ça ne modifie la mise en forme de mon tableau.
J'ai trouvé cette discussion :
https://forums.commentcamarche.net/forum/affich-20715652-macro-vba-pour-surligner-une-ligne
Elle est très clair, bien expliquée pour quelqu'un qui comme moi n'a jamais fait de macro, sauf que la macro en question modifie ma mise en forme de mon tableau et elle est active tout le temps.
Le tableau que j'utilise est très simple, il me sert à contrôler ce que je fais sur la paie du personnel que je gère. Je le rempli pendant le mois et à la fin, je contrôle si ce que j'ai fait est bien pris en compte dans mon logiciel de paie (c'est un suivi de codification).
J'aimerai donc que pendant le mois je puisse le compléter sans que la macro se mette en route et que lors du contrôle de paie je puisse activer la macro (via un bouton par exemple).
Quelqu'un aurait-il une solution pour mon tableau?
(je voulais le joindre à ma demande mais ni suis pas arrivé).
Je vous remercie grandement pour votre aide.
A très bientot
Mymi
A voir également:
- Excel 2003 surbrillance ligne désactivable
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Partager photos en ligne - Guide
- Word et excel gratuit - Guide
- Formule somme excel ligne - Guide
4 réponses
Re,
Alors une autre technique, supprime les code VBA et met la plage concernée en surbrillance exemple A1 à O50
Mise en forme conditionnelle
Format/Mise en forme conditionnelle
la formule est
=LIGNE()=CELLULE("ligne")
format et choisir une couleur
clic droit sur l'onglet de ta feuille et colle ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
il est possible de mettre également la colonne active en couleur voire ligne et colonne
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Alors une autre technique, supprime les code VBA et met la plage concernée en surbrillance exemple A1 à O50
Mise en forme conditionnelle
Format/Mise en forme conditionnelle
la formule est
=LIGNE()=CELLULE("ligne")
format et choisir une couleur
clic droit sur l'onglet de ta feuille et colle ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
il est possible de mettre également la colonne active en couleur voire ligne et colonne
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Salut,
colle ce code dans les propriétés de ta feuille (clic droit sur l'onglet/visualiser le code)
tout déplacement sur ta feuille mettra la ligne de la colonne A à O et ligne de 2 à 50 en couleur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect([A2:O50], Target) Is Nothing And .Count = 1 Then
[A2:O50].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 15)).Interior.ColorIndex = 36
End If
End With
End Sub
Il est possible de déclencher ce code avec un simple clic droit sur la ligne à traiter ce qui sera peut être moins fatiguant pour les yeux, dans ce cas teste ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect([A2:O50], Target) Is Nothing And .Count = 1 Then
[A2:O50].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 15)).Interior.ColorIndex = 37
End If
End With
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
colle ce code dans les propriétés de ta feuille (clic droit sur l'onglet/visualiser le code)
tout déplacement sur ta feuille mettra la ligne de la colonne A à O et ligne de 2 à 50 en couleur
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect([A2:O50], Target) Is Nothing And .Count = 1 Then
[A2:O50].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 15)).Interior.ColorIndex = 36
End If
End With
End Sub
Il est possible de déclencher ce code avec un simple clic droit sur la ligne à traiter ce qui sera peut être moins fatiguant pour les yeux, dans ce cas teste ce code
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target
If Not Intersect([A2:O50], Target) Is Nothing And .Count = 1 Then
[A2:O50].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 15)).Interior.ColorIndex = 37
End If
End With
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
j'ai essayé votre technique, elle marche super!
Le seul "hic" c'est que ça me change la mise en forme de mon tableau. (là où mes cellules sont déjà colorées, dès que je fais un clic droit, cela me met la ligne en surbrillance et tout le reste sauf mes 2 premières lignes sont blanches).
Est-il possible de faire que ça ne change pas la jolie mise en forme que j'ai faite?
Je vous remercie par avance pour votre aide!!
Le seul "hic" c'est que ça me change la mise en forme de mon tableau. (là où mes cellules sont déjà colorées, dès que je fais un clic droit, cela me met la ligne en surbrillance et tout le reste sauf mes 2 premières lignes sont blanches).
Est-il possible de faire que ça ne change pas la jolie mise en forme que j'ai faite?
Je vous remercie par avance pour votre aide!!
Bonjour Mike-31
Deux fois le sujet
Excel 2003 surbrillance ligne désactivable
etoile_mymi - 13 sept. 2012 à 14:16
Surbrillance ligne désactivable
etoile_mymi - 13 sept. 2012 à 14:19
Je retiens le click droit a la place du Bouton Activation/Desactivation dans l'exemple que j'ai donne. Merci
A+
Deux fois le sujet
Excel 2003 surbrillance ligne désactivable
etoile_mymi - 13 sept. 2012 à 14:16
Surbrillance ligne désactivable
etoile_mymi - 13 sept. 2012 à 14:19
Je retiens le click droit a la place du Bouton Activation/Desactivation dans l'exemple que j'ai donne. Merci
A+
Re,
Enlever le bouton et le code,
Remplacer:
par
Une plage de cellules peut etre definie au lieu de la ligne complete
A+
Enlever le bouton et le code,
Remplacer:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cmd_Active_macro.Caption = "DéActive_Macro" Then
'Selection ligne actuelle
Lig_Cour = Target.Row
Rows(Lig_Cour).Select
End If
End Sub
par
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'Empeche popup format, copier.... 'Modif double click sur cellule ou aller dans barre de formule!! Cancel = True 'Selection ligne actuelle Lig_Cour = Target.Row Rows(Lig_Cour).Select End Sub
Une plage de cellules peut etre definie au lieu de la ligne complete
A+
moi j'avais une autre formule mais elle m'empêchait de verrouiller ma feuille et elle effaçait mes mises en forme!
merci pour ton aide grandiose!