XL 2019 Macro pour plusieurs feuilles

Peychris · 14 Juin 2021

Bonjour, débutant en macro; j'ai réussi la macro suivante qui marche pour une feuille. Ayant d'autres feuilles similaire, j'ai reproduit pour chaque feuille cette macro en modifiant uniquement le nom de la feuille pour que çà marche.
J'aimerais si possible faire une seule macro qui marche pour toutes mes feuilles excepté une feuille de mon fichier.
Merci de me venir en aide.
Ci-joint ma macro (en PJ également)
Sub Colorisertableau()

Application.ScreenUpdating = False

Set F1 = Worksheets("202")

With F1
Set Plage = .Range("C3:G20")

End With

For Z = 22 To 31 Step 1

For Each cell In Plage

cell.Select
If cell.Value = Cells(Z, 1).Value Then Selection.Interior.Color = F1.Cells(Z, 1).Interior.Color
If cell.Value = Cells(Z, 1).Value Then Selection.Font.Color = F1.Cells(Z, 1).Font.Color

Next

Next Z

Application.ScreenUpdating = True

End Sub

Bernard_XLD · 14 Juin 2021

Bonjour peychris, le forum

à tester ! et il ne peut y avoir qu'une seule macro avec ce nom "colorisertableau" tu as laissé le même nom pour toutes tes macros, pas bon, il doit y avoir unicité du nom pour une sub.

Bien cordialement, @+

VB:

Sub Coloriser_tableaux()
    Application.ScreenUpdating = False
    Dim F1 As Worksheet, Cell As Range
    For Each F1 In ThisWorkbook.Worksheets
        With F1
            If Not .Name = "General" Then
                Set Plage = .Range("C3:G20")
                For Z = 22 To 31 Step 1
                    For Each Cell In Plage
                        If Cell.Value = Cells(Z, 1).Value Then
                            Cell.Interior.Color = .Cells(Z, 1).Interior.Color...

Bernard_XLD · 14 Juin 2021

Bonjour peychris, le forum

à tester ! et il ne peut y avoir qu'une seule macro avec ce nom "colorisertableau" tu as laissé le même nom pour toutes tes macros, pas bon, il doit y avoir unicité du nom pour une sub.

Bien cordialement, @+

VB:

Sub Coloriser_tableaux()
    Application.ScreenUpdating = False
    Dim F1 As Worksheet, Cell As Range
    For Each F1 In ThisWorkbook.Worksheets
        With F1
            If Not .Name = "General" Then
                Set Plage = .Range("C3:G20")
                For Z = 22 To 31 Step 1
                    For Each Cell In Plage
                        If Cell.Value = Cells(Z, 1).Value Then
                            Cell.Interior.Color = .Cells(Z, 1).Interior.Color
                            Cell.Font.Color = .Cells(Z, 1).Font.Color
                        End If
                    Next
                Next Z
            End If
        End With
    Next F1
    Application.ScreenUpdating = True
End Sub

Peychris · 14 Juin 2021

Génial; çà marche comme je le souhaite.
Tous mes remerciements.
Bravo pour votre réactivité.
Cordialement

Peychris · 18 Juin 2021

Demande effacée; pour ouvrir un autre sujet.
Ne plus suivre
Désolé

Bernard_XLD · 18 Juin 2021

Bonjour Peychris, le forum

@Peychris , nouvelle question -> nouvelle discussion
je te conseille un petit tour par la charte Xld, tu y apprendras les us et coutumes du forum.

Bien cordialement, @+

XL 2019 Macro pour plusieurs feuilles

Peychris

XLDnaute Nouveau

Pièces jointes

Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc

Peychris

XLDnaute Nouveau

Peychris

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires