VBA Procédure disponible au niveau du classeur

[bakman]

Bonjour,

J'ai adapté une procédure qui pour l'instant donne satisfaction. Elle doit cependant être collée dans chaque objet worksheet. J'aimerais que cette procédure soit disponible en tant que module ou au niveau du workbook. Pourriez-vous m'aider à la modifier en conséquence ?

Je suis également preneur de toute modification qui vous semblera pertinente pour l'améliorer.

Cordialement.

---
La procédure en question :

Private Sub Worksheet_Change(ByVal Target As Range)
coloration Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
coloration Target
End Sub
Sub coloration(cellule)
On Error GoTo Fin
For Each code In Application.Range("formats")
If code.Value = cellule.Value Then
cellule.Interior.ColorIndex = code.Offset(0, 1).Interior.ColorIndex
cellule.Interior.Pattern = code.Offset(0, 1).Interior.Pattern
cellule.Interior.PatternColor = code.Offset(0, 1).Interior.PatternColor
cellule.Font.Color = code.Offset(0, 1).Font.Color
cellule.Font.Size = code.Offset(0, 1).Font.Size
cellule.Font.Bold = code.Offset(0, 1).Font.Bold
Exit Sub
End If
Next
cellule.Interior.ColorIndex = Application.Range("Nontrouvé").Interior.ColorIndex
Fin:
End Sub

 

[Pierrot93]

Re : VBA Procédure disponible au niveau du classeur

Bonjour,

essaye en placant ton code dans le module "thisworkbook", dans l'événement ci-dessous, le code se déclenchera sur les modif effectuées sur toutes les feuilles...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

bonne journée
@+

 

[Pierrot93]

Re : VBA Procédure disponible au niveau du classeur

Re,

pour la selection :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

 

[Guest]

Re : VBA Procédure disponible au niveau du classeur

Bonjour,

Mets tes appel de macro dans le module 'ThisWorkbook' dans les procédures:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End Sub

Où le paramètre sh représente la feuille active

A+
[Edit] Hello Pierrot;-)