Excel 2003 surbrillance ligne désactivable
Fermé
etoile_mymi
Messages postés
4
Date d'inscription
jeudi 13 septembre 2012
Statut
Membre
Dernière intervention
14 septembre 2012
-
13 sept. 2012 à 14:16
Ashlis - 21 juil. 2015 à 13:14
Ashlis - 21 juil. 2015 à 13:14
A voir également:
- Excel 2003 surbrillance ligne désactivable
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
4 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 14/09/2012 à 10:02
Modifié par Mike-31 le 14/09/2012 à 10:02
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.
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
Modifié par Mike-31 le 13/09/2012 à 15:01
Modifié par Mike-31 le 13/09/2012 à 15:01
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.
etoile_mymi
Messages postés
4
Date d'inscription
jeudi 13 septembre 2012
Statut
Membre
Dernière intervention
14 septembre 2012
14 sept. 2012 à 09:49
14 sept. 2012 à 09:49
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!!
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
14 sept. 2012 à 10:11
14 sept. 2012 à 10:11
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+
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 076
14 sept. 2012 à 10:20
14 sept. 2012 à 10:20
Salut f894009,
Intéressant ton code je me permet de le mettre au chaud.
Je n'avais pas vu passer cette discussion
Cordialement
Mike-31
Intéressant ton code je me permet de le mettre au chaud.
Je n'avais pas vu passer cette discussion
Cordialement
Mike-31
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
Modifié par f894009 le 14/09/2012 à 10:51
Modifié par f894009 le 14/09/2012 à 10:51
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+
10 déc. 2013 à 01:58
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!
21 juil. 2015 à 13:14