XL 2013 (RESOLU) Copier plusieurs colonnes

[chaelie2015]

Bonjour forum
Comment puis-je copier les données de la ligne jaune (par exemple 50 COLONNE), y compris leurs formules, dans la ligne verte (qui est une cellule fusionnée 2X50 COLONNES)?
Merci

 

[sylvanu]

Bonjour Chaelie,
1- Cette formule en GL64 :

=SOMME(GL13:GL62)

Copiée en AO64 doit elle être :

=SOMME(AO13:AO62)
ou
=SOMME(AO13:AP62)

Doit on faire la somme d'une colonne ou des deux colonnes pour lesquelles les cellules vertes sont fusionnées ?
2- Cette formules es elle immuable ou est elle appelée à changée ?
Car si la formule est immuable, on peut faire :

Sub Formule()
    Range("AO64:AP64").FormulaLocal = "=SOMME(AO13:AO62)"
    Range("AO64:AP64").Copy
    Range("AO64:EJ64").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Si la formule peut changer, alors on peut faire :

Sub Formule()
    Range("GL64").Copy
    Range("AO64:AP64").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("AO64:AP64").Copy
    Range("AO64:EJ64").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[chaelie2015]

Bonjour sylvanu
Je désire reproduire toutes les formules de la ligne jaune, telles que SOMME(GL13:GL62), SOMME(GM13:GM62), SOMME(GN13:GN62), etc., jusqu'à SOMME(II13:IIL62), dans les cellules de la ligne verte, c'est-à-dire la cellule fusionnée AO64=SOMME(GL13:GL62), AQ64=SOMME(GM13:GM62), et ainsi de suite.
Nota : avec formule
A+

 

[sylvanu]

Re,
Cela revient en AO64 de faire "=GL64", on peut donc faire pour tenir compte des cellules fusionnées :

Sub ColleFormule()
For C = 41 To 140 Step 2
    Cells(64, C).FormulaLocal = "=INDEX(64:64;0.5*COLONNE()+173.5)"
Next C
End Sub

 

[job75]

Bonjour chaelie2015, sylvanu,

Formule en AO64, à tirer vers la droite :

=SOMME(DECALER($GL13:$GL62;;(COLONNES($AO:AO)-1)/2))

A+

 

[chaelie2015]

Re
Merci sylvanu, c'est parfait comme formule.
A+

 

[chaelie2015]

Bonjour chaelie2015, sylvanu,

Formule en AO64, à tirer vers la droite :

=SOMME(DECALER($GL13:$GL62;;(COLONNES($AO:AO)-1)/2))

A+

Bonjour Job, sylvanu
Désolé, je viens de m'apercevoir que je n'avais pas lu ta réponse de job. Merci pour la formule.
A+

 

[chaelie2015]

Re
Dans le même contexte, cette fois-ci, je souhaite copier les colonnes impaires du tableau (la première colonne impaire étant AO12 du tableau A012:EJ62) dans le tableau (EM12:GJ62) avec des formules.
Merci

 

[job75]

En EM12, à tirer à droite et vers le bas :

=DECALER($AO12;;2*COLONNES($EM12:EM12)-2)

La formule créera des zéros dans les cellules vides.

 

[chaelie2015]

Bonsoir Job
Merci pour la réponse. C'est excellent, mais j'aimerais afficher des cellules vides à la place des zéros dans le cas où il n'y a aucune valeur dans le premier tableau (les colonnes impaire). Est-ce réalisable ?
a+

 

[job75]

Il suffit de tester la valeur :

=SI(DECALER($AO12;;2*COLONNES($EM12:EM12)-2)="";"";DECALER($AO12;;2*COLONNES($EM12:EM12)-2))