XL 2013 (RESOLU) Copier plusieurs colonnes

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2024

• #2

Bonjour Chaelie,
1- Cette formule en GL64 :

VB:

=SOMME(GL13:GL62)

Copiée en AO64 doit elle être :

Code:

=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 :

Code:

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 :

VB:

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Mars 2024

• #3

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+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2024

• #4

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

VB:

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

 

Pièces jointes

• Charlie copier formule cel fusionnée (1).xlsm

  81.6 KB · Affichages: 2

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 26 Mars 2024

• #5

Bonjour chaelie2015, sylvanu,

Formule en AO64, à tirer vers la droite :

Code:

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

A+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Mars 2024

• #6

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Mars 2024

• #7

job75 à dit:

Bonjour chaelie2015, sylvanu,

Formule en AO64, à tirer vers la droite :

Code:

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

A+

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Mars 2024

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2024

• #9

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

Code:

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

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 26 Mars 2024

• #10

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2024

• #11

Il suffit de tester la valeur :

Code:

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

 

Vote positif 0 Vote négatif