Ctrl-Alt-Suppr
XLDnaute Junior
Bonjour à tous.
Niveau débutant ; j'utilise depuis 2 mois un code que l'on m'a fourni ici sur XL-DL.
J'aimerai, si possible ajouter le même genre de code, pour d'autres colonnes.
Comment cumuler 2 codes (voir 3 ou 4 ...) dans une même feuille !?
Par avance, merci !
« ne fonctionne pas : »
« ne fonctionne pas : »
Niveau débutant ; j'utilise depuis 2 mois un code que l'on m'a fourni ici sur XL-DL.
Code:
Private Sub Worksheet_change(ByVal Target As Range)
Dim T As Range
If Not Intersect([_ETAPES_TABLEAU], Target) Is Nothing Then
On Error Resume Next
Set T = [_ETAPES].Find(Target, LookAt:=xlWhole)
'cellule modifiée agrandie sur une ligne d'environ 50 colonnes)
With Target.Offset(0, -1).Resize(1, 58)
'Couleur du fond
.Interior.ColorIndex = T.Interior.ColorIndex
'Police gras italique couleur
.Font.Bold = T.Font.Bold
.Font.Italic = T.Font.Italic
.Font.Color = T.Font.Color
End With
End If
End Sub
J'aimerai, si possible ajouter le même genre de code, pour d'autres colonnes.
Comment cumuler 2 codes (voir 3 ou 4 ...) dans une même feuille !?
Par avance, merci !
« ne fonctionne pas : »
Code:
Private Sub Worksheet_change(ByVal Target As Range)
Dim T As Range
If Not Intersect([_ETAPES_TABLEAU], Target) Is Nothing Then
On Error Resume Next
Set T = [_ETAPES].Find(Target, LookAt:=xlWhole)
'cellule modifiée agrandie sur une ligne d'environ 50 colonnes)
With Target.Offset(0, -1).Resize(1, 58)
'Couleur du fond
.Interior.ColorIndex = T.Interior.ColorIndex
'Police gras italique couleur
.Font.Bold = T.Font.Bold
.Font.Italic = T.Font.Italic
.Font.Color = T.Font.Color
End With
End If
End Sub
Private Sub Worksheet_change(ByVal Target As Range)
Dim TT As Range
If Not Intersect([_TYPES_TABLEAU], Target) Is Nothing Then
On Error Resume Next
Set TT = [_TYPES].Find(Target, LookAt:=xlWhole)
'cellule modifiée agrandie sur une ligne d'environ 50 colonnes)
With Target.Offset(0, -1).Resize(1, 2)
'Couleur du fond
.Interior.ColorIndex = T.Interior.ColorIndex
'Police gras italique couleur
.Font.Bold = T.Font.Bold
.Font.Italic = T.Font.Italic
.Font.Color = T.Font.Color
End With
End If
End Sub
Dernière édition: