XL 2016 copier la couleur de fond d'une base de donnée vers une autre feuille

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 !

yule bwinner

XLDnaute Nouveau
Bonjour, je cherche à reporter les couleurs de fond en fonction de la valeur depuis une base de donnée.
j ai cette formule mais elle ne marche pas....

Sub couleur()

' On désactive la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = 2 To 26
boite = Sheets("Epissures a remplir").Range("A" & i).Value

Sheets("Etiquette et").Activate


Dim FL1 As Worksheet, Cell As Range
Dim Var1 As String

Set FL1 = Worksheets("Etiquette et")
With FL1
For Each Cell In Range("A1:T340")

'Valeur de la cellule lue
Var1 = Cell.Value
If Var1 = boite Then
Sheets("Epissures a remplir").Activate
Range("A" & i).Select
Sheets("Etiquette et").Activate
Cell.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End If

Next

End With

Next

Fin = True

' On active la mise à jour de l'écran afin d'accélérer l'exécution de la macro
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub


Je pense que le fichier joint sera plus parlant que mes explications.

Merci à vous
 

Pièces jointes

Hello

Comme les films de Yul : "en noir et blanc ou en couleur" !

VB:
Dim R As Range, C As Range
Private Sub Neutre_Click()
    For Each C In [A1:H15].SpecialCells(2)
        C.Interior.ColorIndex = xlNone
     Next
End Sub

Private Sub Coul_Click()
    For Each C In [A1:H15].SpecialCells(2)
        For Each R In Feuil1.[A1:A7]
            If R = C Then C.Interior.Color = R.Interior.Color
        Next
    Next
End Sub

(pour les plages, versions à moderniser en fonction du scénario)
 

Pièces jointes

Merci pour vos réponses,

Malheureusement ça ne fonctionne pas chez moi ( mais très bien chez vous^^).
Le fichier que je vous ai envoyé est une version allégée(beaucoup plus d'onglets en réalité), l idéal serait que je puisse nommer les "sheets"(à copier et la destination) dans la formule.
Effectivement cette formule sera reportée dans plusieurs dossiers.
 
- 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

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Retour