Discussion :

[Eric26]

Bonjour à tous,

Voilà, j'ai une macro qui met en surbrillance une cellule de la ligne active :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Cells(1, 2).Interior.ColorIndex = 8
     Target.EntireRow.Cells(1, 2).Font.Bold = True
 
 End Sub

Ce code fonctionne lorsqu'il est appliqué directement sur la feuille.
Mon problème est qu'à chaque fermeture/ouverture du fichier, toutes les feuilles sont supprimées et recrées (il s'agit d'un traitement quotidien de données commerciales).
Du coup, le code qui était collée à la feuille est supprimé avec celle-ci mais ne ré-apparaît pas.
J'ai essayé d'appliquer le code sur toutes les feuilles en le collant sur ThisWorkbook, mais ça ne marche pas :

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
Sub MAJ()
 
Dim ws As Worksheet
 
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
 
'ws.Activate
 
'Macro
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Cells(1, 2).Interior.ColorIndex = 8
 
Next ws
 
End Sub

Est-ce que quelqu'un pourrait m'aiguiller.
Merci d'avance.

[unparia]

Bonjour
pas absolument certain d'avoir bien cerné ton besoin.

Il me semble que ceci (dans le module de code de Thisworkbook) devrait correspondre à ce que tu cherches à exprimer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub workbook_sheetselectionchange(byVal sh as object, byval target as range)
 if sh.name = "........" then
    .....
 end if
end sub

[Eric26]

Bonjour unparia,

Tu as parfaitement saisi mon problème, génial, ça fonctionne.
Le code s'applique tout le temps maintenant.
Merci mille fois et passe une excellente journée.