macro excel decalage colonne à droite Résolu/Fermé

Question

Bonjour,

 ca fait un moment que je bloque :
Je voudrais ajouter les mêmes cellules : C3 :C15 et D3 :D15 et C19 :C31 et D37 :D47 (ce sont des données qui se mettent automatiquement à jour tout les mois)  de la feuille Tableau Fonctionnement vers la feuille Cumul Fonctionnement dans les plages C4 :F16 pour janvier, ensuite de G4 :J16 pour février et ainsi de suite jusqu'en décembre : donc à chaque fois je colle 4 colonnes plus loin vers la droite répercutant les titres et le format 

mon souci est que les données doivent s'ajouter par la droite, alors qu'avec moi elles s'écrasent

Merci de votre aide
Configuration: Windows XP / Internet Explorer 7.0

pijaku · Answer

Bonjour, 
Tu as plusieurs solutions pour résoudre ton problème.  
Si tu le souhaites, tu peux placer ton code vba ici dans une réponse (n'oublie pas les balises "codes" à côté de souligné S) et on sera à même de te le corriger. 
Sinon, disais je donc, tu peux utiliser : 

1- Numéro de la première colonne vide à droite :Dim PremiereColonneVideADroite As Integer 
    PremiereColonneVideADroite = Range("IV1").End(xlToLeft).Column + 1
2- Issu de : cette excellente source...
- Dernière ligne renseignée de la feuille de calculs  
Dim Derlig As Long 
DerLig = Split(Worksheets("Feuil2").UsedRange.Address, "$")(4)- donne la lettre de la dernière colonne renseignée de la feuille de calculs  
Dim Dercol As String 
Dercol = Split(Worksheets("Feuil2").UsedRange.Address, "$")(3)- Donne le numéro de la dernière Colonne de la feuille de calculs  
Dim Dercol As Long 
Dercol = Range(Split(Worksheets("Feuil2").UsedRange.Address, "$")(3) & 1).column
3- Une boucle peut être également utilisée.
Pour boucler toutes les 4 colonnes : 
Dim Col As Integer 
For Col = 1 To 37 Step 4 
    MsgBox Cells(1, Col).Address 
NextTu dis... 
"Laissez-moi deviner... Votre surnom, c'est «Bande Passante»? " 
- Le Tribunal des flagrants délires-  P.Desproges -

soniatouns777 · Answer

bonjour pijaku, merci pour ta réponse
en fait j'ai déjà un debut de code (ca fait 3 jours que je suis dessus et je suis pas super calé), je dois ajouter une boucle à mon code et je ne sais pas comment !! 
ci dessous mon code <Sub Macro()

Dim i As Integer

With Sheets("Tableau Fonctionnement")
        i = .Range("C5").End(xlToRight).Column + 1
        Sheets("Cumul Fonctionnement").Range("C5:F16").Copy
        Sheets("Cumul Fonctionnement").Cells(6, i).PasteSpecial Paste:=xlFormats
        .Range("C5:D15").Copy
        Sheets("Cumul Fonctionnement").Cells(6, i + 1).PasteSpecial Paste:=xlPasteValues
         
        .Range("D21:D31").Copy
        Sheets("Cumul Fonctionnement").Cells(6, i + 2).PasteSpecial Paste:=xlPasteValues
         
        .Range("D37:D47").Copy
        Sheets("Cumul Fonctionnement").Cells(6, i + 3).PasteSpecial Paste:=xlPasteValues

    End With
  End Sub>

soniatouns777 · Answer

salut pijaku
la macro s'exécute sans fin  et toujours sur la même plage !!

merci encore de ton aide

soniatouns777 · Answer

ca y 'est j'ai corrigé mon code, ca marche allélouya
je crois que c'était moi qui n'étais pas réveillé !!
merci encore pijaku pour ta précieuse collaboration

Macro excel decalage colonne à droite

4 réponses

Discussions similaires