Excel 2003 surbrillance ligne désactivable

Question

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

Mike-31 · Accepted Answer

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.

Mike-31 · Answer

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.

f894009 · Answer

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+

f894009 · Answer

Re,  

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+

Excel 2003 surbrillance ligne désactivable

4 réponses

Discussions similaires

Newsletters