Mettre une boucle dans ma macro

Bonjour Claude et Dan,

Je vais essayer d'être plus clair si toutefois ce n'était pas le cas)

La macro fonctionne parfaitement en terme de calcul.

Mon calcul commence à la ligne 2 (la ligne 1 étant l entete de colonne (du texte)

Concernant la mise en couleur (en- tete comprise), le remplissage ne se fait qu à partir de ligne 2 alors que je souhaite que le remplissage se fasse aussi sur la ligne d en tete (la ligne 1)

Voilà voilà,

Je reste à votre dispo si à nouveau je n'étais pas assez clair.

Pour claude : Mon fichier est loin d etre secret mais simplement la derniere macro me convient, mis à part le pbl de couleurs décrit si dessus.

On touche donc presque au but ! !

Ben la mise en forme de tes en-têtes, c'est pas à la macro de la faire...

Tu la fais au début et tu n'y touche plus

Ou alors on n'a toujours pas compris le fichier que tu ne veux pas envoyer...

re,

Même commentaire que Sylvain...

Comme on ne connait pas ton fichier, juste avant --> end sub mets --> Range("X1").interior.ColorIndex = 35

C'est pas très "propre" mais bon...

Dan

Bonjour à tous,

rere77,

Ton fil ne méritait pas trois pages et une vingtaine de réponses !!

Si tu avais envoyé 3 lignes de fichier, ce serait "résolu" depuis mercredi.

et c'est pas fini !

On touche donc presque au but ! !

Bonne journée à tous

Claude.

Je remercie l ensemble des participants de ne pas me tirer dessus à boulets rouges, je ne penses pas que ça apporte quoi que se soit . . .

Pouvez vous me dire comment joindre mon fichier ou un extrait de mon fichier excel dans un message

Merci de votre compréhension.

re,

Lorsque tu es dans le forum "Question", clique sur le deuxième lien "Comment joindre un fichier à vos messages..."

Dan

ok ok

alors voila mon fichier (j ai laissé 20 lignes pour l exemple)

La macro s appelle macro4.

https://www.excel-pratique.com/~files/doc/MACRO_2008_quat.zip

En espérant que cela vous éclairera + que mes explications

Merci encore

re,

Ta macro adaptée :

Sub Macro4()
Dim fm As Range
Sheets("fresult brut").Copy After:=Sheets(1)
Activesheet.Name = "fichier w"
Range("HE1").NumberFormat = "#,##0"
Columns("X:X").Insert Shift:=xlToRight
Range("X1").Value = "% Marge Brute + RRRO"
Set fm = Range("w2", Range("w65536").End(xlUp))
With Range("X2")
    .NumberFormat = "0.0%"
    .FormulaR1C1 = "=RC[-1]/RC[-18]"
    .AutoFill Destination:=fm.Offset(0, 1)
 End With
fm.Offset(0, 1).Interior.ColorIndex = 35h
Range("X1").Interior.ColorIndex = 35
End Sub

Amicalement

Dan

re,

tu nous avez pas parler de l'insertion colonne X !

nouveau code :

Sub test()
Dim fm As Range
Sheets("fresult brut").Copy After:=Sheets(1)
ActiveSheet.Name = "fichier w"

 On Error Resume Next
    Rows("1:1").Select
    Selection.AutoFilter 'retire le filtre auto
    Columns("X:X").Insert
 On Error GoTo 0
    Set fm = Range("w2", Range("w65536").End(xlUp))
        With Range("X2")
            .Select
            .NumberFormat = "0.0%"
            .FormulaR1C1 = "=RC[-1]/RC[-18]"
            .Interior.ColorIndex = 35
            .AutoFill Destination:=fm.Offset(0, 1)
        End With

        Rows("1:1").Select
        Selection.AutoFilter 'remet le filtre auto
    With Range("X1")
        .Select
        .Interior.ColorIndex = 35
        .Value = "% Marge Brute + RRRO"
    End With
End Sub

Claude.

édit: retiré End With en trop

C est ok, tout fonctionne (avec vos deux macros) et mon tableau a tout de même une autre allure.

Dan, pour la couleur j ai juste enlevé le h de 35h qui plantait la macro, (et oui, on nous dit que les 35 heures sont mortes .....)

En tous cas merci encore de votre coup de main.

@ +

Salut le forum

Rere77, il ne te reste qu'une petite formalité ...

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :