Bonjour,
Je souhaite enchainer 2 codes VBA complètement différents sur une même feuille mais cela ne fonctionne pas.
Voici mes 2 souhaits :
1. Changer la couleur d'une feuille en fonction du texte de la cellule D1.
2. Masquer les colonnes X à AE si la cellule I17 est cochée d'un X.
Voici mes 2 codes que je n'arrive pas à enchainer. Mon niveau étant assez faible, Il doit y avoir un problème dans le texte.
Seuls, ils fonctionnent très bien mais sur la même feuille cela ne fonctionne pas.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$D$1" Then
Select Case Target.Value
Case "Non validé"
Me.Tab.Color = vbRed
Case "Validé"
Me.Tab.Color = vbGreen
Case "En cours"
Me.Tab.Color = vbBlue
Case "A faire"
Me.Tab.Color = vbYellow
Case "En attente"
Me.Tab.Color = vbOrange
End Select
Next
If Target.Count = 1 Then
If Target.Address(0, 0) = "I17" Then Range("x:ae").EntireColumn.Hidden = UCase(Target) = "X"
End Select
Next
End Sub
Merci à vous
Je souhaite enchainer 2 codes VBA complètement différents sur une même feuille mais cela ne fonctionne pas.
Voici mes 2 souhaits :
1. Changer la couleur d'une feuille en fonction du texte de la cellule D1.
2. Masquer les colonnes X à AE si la cellule I17 est cochée d'un X.
Voici mes 2 codes que je n'arrive pas à enchainer. Mon niveau étant assez faible, Il doit y avoir un problème dans le texte.
Seuls, ils fonctionnent très bien mais sur la même feuille cela ne fonctionne pas.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$D$1" Then
Select Case Target.Value
Case "Non validé"
Me.Tab.Color = vbRed
Case "Validé"
Me.Tab.Color = vbGreen
Case "En cours"
Me.Tab.Color = vbBlue
Case "A faire"
Me.Tab.Color = vbYellow
Case "En attente"
Me.Tab.Color = vbOrange
End Select
Next
If Target.Count = 1 Then
If Target.Address(0, 0) = "I17" Then Range("x:ae").EntireColumn.Hidden = UCase(Target) = "X"
End Select
Next
End Sub
Merci à vous