XL 2016 vbacopiercouleur

  • Initiateur de la discussion Initiateur de la discussion YOUYOU25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

YOUYOU25

XLDnaute Junior
Bonsoir à tous,

J'ai un tableau de suivi de personnel au travail et je souhaiterais svp lorsque je sélectionne une donnée issue d'une liste déroulante en colonne à partir de a2, valeurs auxquelles j'ai ajoutés des mises en formes conditionnelles si texte égale remplissage , que la même couleur de remplissage se reporte en colonne à partir de b2 lorsque je rempli une cellule de cette dernière et que l'insertion d'une nouvelle ligne soit prise en compte

Serait il possible d'avoir la solution en vba avec bouton serait super

j'ai mis en pj un exemple

merci d'avance et bonne soirée à tous
 

Pièces jointes

Bonsoir Youyou,
Pourquoi ne pas supprimer la MFC et faire tout en VBA, tant qu'à faire, avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A2:A100]) Is Nothing Then
        If Target = "" Then Range(Target.Address).Interior.Color = xlNone
        Select Case UCase(Target)
            Case "A": Range(Target.Address).Interior.Color = RGB(0, 112, 192)
            Case "B": Range(Target.Address).Interior.Color = RGB(255, 0, 0)
            Case "C": Range(Target.Address).Interior.Color = RGB(255, 255, 0)
            Case "D": Range(Target.Address).Interior.Color = RGB(0, 176, 80)
            Case "E": Range(Target.Address).Interior.Color = RGB(255, 192, 0)
        End Select
    End If
    If Not Intersect(Target, [B2:B100]) Is Nothing Then
        If Cells(Target.Row, "A") = "" Then Range(Target.Address).Interior.Color = xlNone
        If Target = "" Then
            Range(Target.Address).Interior.Color = xlNone
        Else
            Range(Target.Address).Interior.Color = Cells(Target.Row, "A").Interior.Color
        End If
    End If
Fin:
Application.ScreenUpdating = True
End Sub
Sinon vous pouvez utiliser DisplayFormat pour lire le format de la MFC, mais sur non vieux XL2007 et VBA 6.3cette fonction n'est pas connue.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
208
Réponses
6
Affichages
198
  • Question Question
Microsoft 365 INDEX equiv
Réponses
1
Affichages
114
Réponses
2
Affichages
272
Réponses
1
Affichages
124
Retour