Macro excel

Merci vraiment lermitte 222, tu as raison, ta méthode est + interessante pour pouvoir revenir sur un mois
c'est génial d'avoir en face de soi un passionné, j'espère que tu ne m'en veux pas pour ta petite nuit (je vois que tu m'a envoyé les réponse assez tard)*

Bonne continuation

Mais moi je ne ferais pas comme ça.
Suppose que tu mémorise Janvier et qu'ensuite tu fait une modification, c'est reparti pour le faire en manuel.
Avec le système que j'emploie tu peu recopier le mois autant de fois que tu veux.

Ton classeur en retour
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

Problème de fonctionnement avec le XlToRight
Recopie le code ci-dessous.

Sub cumul_fonctionnement()
Dim Col As Integer
    
    With Sheets("Cumul Fonctionnement")
        Col = .Cells(4, 256).End(xlToLeft).Column + 1
        If Col > 6 Then
            .Range("C4:F5").Copy .Cells(4, Col)
            .Range("C6:F16").Copy
            .Cells(6, Col).PasteSpecial Paste:=xlFormats
        End If
    End With
    With Sheets("Tableau Fonctionnement")
        .Range("C5:D15").Copy
        Sheets("Cumul Fonctionnement").Cells(6, Col).PasteSpecial Paste:=xlPasteValues
        
        .Range("D21:D31").Copy
        Sheets("Cumul Fonctionnement").Cells(6, Col + 2).PasteSpecial Paste:=xlPasteValues
        
        .Range("D37:D47").Copy
        Sheets("Cumul Fonctionnement").Cells(6, Col + 3).PasteSpecial Paste:=xlPasteValues
    End With
End Sub

Cette fois je l'ai tester sur ton classeur.

L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

bonjour,
je te remercie vraiment pour ta patience
je n'ai pas dû t'expliquer assez clairement mais le tableau de la feuille fonctionnement s'ctualise tout les mois, et je dois récupérer chaque mois les 4 colonnes vers la feuille cumul et les données s'ajoutent par la droite, les 4 1eres colonnes concernent janvier, les 4 colonnes suivantes s'ajoutent et deviennent fevrier ... etc, la feuille cumul est en fait un historique
la formule que tu m'as transmis écrase les données càd que mars ne vient pas aprés février mais au dessus

j'espère que mon explication est compréhensible:)

merci encore

Essaye avec ...

Sub cumul_fonctionnement()   
Dim Col As Integer   
    With Sheets("Tableau Fonctionnement")   
        Col = .Range("C6").End(xlToRight).Column + 1   
        .Range("C5:D15").Copy   
        Sheets("Cumul Fonctionnement").Cells(6, Col).PasteSpecial Paste:=xlPasteValues   
           
        .Range("D21:D31").Copy   
        Sheets("Cumul Fonctionnement").Cells(6, Col + 2).PasteSpecial Paste:=xlPasteValues   
           
        .Range("D37:D47").Copy   
        Sheets("Cumul Fonctionnement").Cells(6, Col + 1).PasteSpecial Paste:=xlPasteValues   
    End With   
End Sub

Et si tu veux reporter le format...

Sub cumul_fonctionnement() 
Dim Col As Integer 
    With Sheets("Tableau Fonctionnement") 
        Col = .Range("C6").End(xlToRight).Column + 1 
        Sheets("Cumul Fonctionnement").Range("C5:F16").Copy 
        Sheets("Cumul Fonctionnement").Cells(5, Col).PasteSpecial Paste:=xlFormats 
        .Range("C5:D15").Copy 
        Sheets("Cumul Fonctionnement").Cells(6, Col).PasteSpecial Paste:=xlPasteValues 
         
        .Range("D21:D31").Copy 
        Sheets("Cumul Fonctionnement").Cells(6, Col + 2).PasteSpecial Paste:=xlPasteValues 
         
        .Range("D37:D47").Copy 
        Sheets("Cumul Fonctionnement").Cells(6, Col + 1).PasteSpecial Paste:=xlPasteValues 
    End With 
End Sub

A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

oui c'est bien ça, le total est a reporter également, mon souci est que les données s'ajoutent par la droite, alors qu'avec moi elles s'ecrasent

merci
Sonia

Tu veux ajouter les mêmes valeurs de la feuille Tableau Fonctionnement vers la feuille Cumul Fonctionnement mais en décalant les données sur 4 colonnes vers la droite ?
En répercutant les titres et le format ? (Cadre)
Le total est à reporter ou à faire autrement ?
Tu dis.
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

bonjour
ci dessous le line du fichier excel :
http://www.cijoint.fr/cjlink.php?file=cj201101/cijEs2lOta.xls
et le lien de la macro que j'ai légerement corrigé :
http://www.cijoint.fr/cjlink.php?file=cj201101/cijFawybGl.txt

désolé pour le MP, je n'avais pas lu la note

Merci pour ton aide
Sonia

Tu peu le déposer sur CiJoint.fr et mettre le lien dans un poste suivant.

merci pour ton aide mais ça me décale mes cellules vers le bas dans ma feuille cumul alors que je souhaiterais ajouter à chaque fois 4 colonnes à la suite vers la droite (les données s'ajoutent en colonne et non en ligne)
je sais que c'est un peu difficile à comprendre comme ça, je ne vois pas bien comment je pourrait t'envoyer mon fichier excel

Merci encore de voir

coucou !!
est ce que mon message est bien passé?!

Si c'est ce que tu veux faire..

Sub cumul_fonctionnement()
'
' cumul_fonctionnement Macro
' Macro enregistrée le 25/01/2011 par smarakch

    With Sheets("Tableau Fonctionnement")
        Range("C5:D15").Copy
        Sheets("Cumul Fonctionnement").Range("C6").PasteSpecial Paste:=xlPasteValues
        
        Range("D21:D31").Copy
        Sheets("Cumul Fonctionnement").Range("E6").PasteSpecial Paste:=xlPasteValues
        
        Range("D37:D47").Copy
        Sheets("Cumul Fonctionnement").Range("F6").PasteSpecial Paste:=xlPasteValues
    End With
End Sub

A+

voila ce que j'ai fait, j'ai arrété au moment ou il faut surement creer une boucle :
Sub cumul_fonctionnement()
'
' cumul_fonctionnement Macro
' Macro enregistrée le 25/01/2011 par smarakch
'

'
Sheets("Tableau Fonctionnement").Select
Range("C5:C15").Select
Selection.Copy
Sheets("Cumul Fonctionnement").Select
Range("C6").Select
ActiveSheet.Paste
Sheets("Tableau Fonctionnement").Select
Range("D5:D15").Select
Selection.Copy
Sheets("Cumul Fonctionnement").Select
Range("D6").Select
ActiveSheet.Paste
Sheets("Tableau Fonctionnement").Select
Range("D21:D31").Select
Selection.Copy
Sheets("Cumul Fonctionnement").Select
Range("E6").Select
ActiveSheet.Paste
Sheets("Tableau Fonctionnement").Select
Range("D37:D47").Select
Selection.Copy
Sheets("Cumul Fonctionnement").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
end sub

Bonjour,
Montre nous le code que tu a déjà créer, ou que tu a fait avec l'éditeur de macro.
Ce sera plus simple.
A+