Appliquer une macro pour toutes les feuil

svp je sollicite votre aide pour effectuer une MFC sur toute les feuil de rame-101 jusqu au feuil rame 130

j'ai realisé une macro mais je n'arrive pas a appliquer LA MFC ci-joint le fichier

merci d'avance .

Bonjour,

sans passer par les macros, on s’aperçoit que le menu MFC n'est pas accessible lorsqu'il y a plusieurs feuilles de sélectionnées...

Donc l'idée est de faire une boucle de la première feuille à modifier jusqu'à la dernière, et à chaque boucle vous mettez en place la MFC par VBA.

@ bientôt

LouReeD

bonjour Merci pour la réponse est ce que il y a pas d'autre solution?????? et pkoi pas vba

y a personne!!!!!!!!!!!!!!!!!!!

si, moi ....

Enregistre par apprentissage une macro sur une seule feuille (je pense que tu l'avais fait en sélectionnant plusieurs feuilles)

Ensuite, entoure le code comme suit (c'est une idée, pas testée)

    Dim ws As Worksheet
    For Each ws In Worksheets
        If Left(ws.Name, 5) = "CIORN" Then 
        ws.Select
        ' ICI TON CODE ENREGISTRE
        EndIf
    Next

appliqué à ta macro1

Sub Macro1()

Dim ws As Worksheet
    For Each ws In Worksheets
        If Left(ws.Name, 5) = "CIORN" Then
        ws.Select
        MsgBox ws.Name

    Range("C4:P4,C13:P13").Select

    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
        Formula1:="=533"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
        Formula1:="=533"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

        End If
    Next

End Sub

Bonsoir,

voilà qui est bien dit :

la MFC ne marche pas avec plusieurs feuilles :

on s’aperçoit que le menu MFC n'est pas accessible lorsqu'il y a plusieurs feuilles de sélectionnées...

Et il suffit de faire une boucle :

Donc l'idée est de faire une boucle de la première feuille à modifier jusqu'à la dernière, et à chaque boucle vous mettez en place la MFC par VBA

Steelson a très bien mis en forme à ceci de plus qu'il recherche uniquement les feuilles qui commence par "CIORN".

Bravo à lui

@ bientôt

LouReeD

D'ailleurs, je n'ai pas compris pourquoi ou pkoi amiway écrivait

amiway a écrit :

il y a pas d'autre solution?????? et pkoi pas vba

alors que c'est ce que tu proposais

LouReeD a écrit :

vous mettez en place la MFC par VBA.

Bonjour Steelson,

vous ne dormez donc jamais ?

Ce doit d'être du au calumet...

@ bientôt

LouReeD

il faut que j'arrête de fumer la moquette !

coucher = 9h

lever = 5h

si insomnie, j'excelle ...

bonjour à tout le monde

Le code fonctionne parfaitement

Merci à vous le problème est résolu.

Merci à LouReeD qui m'a indiqué la direction

Ne m'appelle-t-on pas "Bison Futé" ?

@ bientôt

LouReeD

@ bientôt

LouReeD