Bonjour à tous
J'ai une procédure qui me reformate complètement un tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub FORMAT_STATS_BDD()
 
 
    '----------------------------------------
    ' -- LANCE MACRO MISE EN FORME TABLEAU --
    '----------------------------------------
 
    Selection.CurrentRegion.Select
    Application.Run "PERSONAL.XLSB!tableau"
 
 
    '----------------------------------------
    ' -- RENOMINATION DES COLONNES ET MEF  --
    '----------------------------------------
 
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "ID"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "CHANTIER"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "STATUT" 
    .... etc ....
je souhaiterais pouvoir ajouter à cette procédure une fonction
qui me permet de mettre en surbrillance toute la ligne à partir d'une cellule active.
Cette fonction fonctionne très bien seule, mais ne marcher pas quand j'essaie de l'appeler ou de l'ajouter au code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
  Set champ = Range("A13:CZ2000")
  If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
     champ.Interior.ColorIndex = xlNone
     col1 = champ.Column
     col2 = col1 + champ.Columns.Count - 1
     Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 40
 
  End If
End Sub
Pourriez-vous me conseiller pour que je puisse l'utiliser une fois le formatage de mon tableau
effectué ; dans l'idée
1. je récupère mes données brutes
2. je lance ma macro FORMAT_STATS_BDD()
3. une fois ma macro effectuée la fonction de surbrillance de ligne s'applique sur le classeur

je précise que tout est enregistré dans les macros personnelles
Merci d'avance pour votre aide précieuse
Belle journée à tous

Benoit