Etendre formule avec colonne variable VBA

[Gregh74]

Bonjour à tous,

Je suis un grand adepte de ce forum, j'en use et abuse en tant que lecteur 🙂 mais là, c'est mon premier post.

Le problème est le suivant:
J'ai une feuille "IW**" (**=numéro de semaine, exemple IW31) où une personne rentre des chiffres dans le tableau. Dans la ligne '4' ce sont les entêtes des dates, la colonne 'E' ce sont les critères, la colonne 'G' fait le total des lignes.
En double cliquant sur une case, une macro créée une nouvelle feuille "IW**" (avec le numéro de semaine suivante, exemple IW32) et copie la colonne 'G' de la feuille "IW31" dans la feuille "Info. Input cumulative" au numéro de semaine correspondant.
De la même manière, dans la feuille "Info. Input cumulative" la ligne '4' ce sont les entêtes des dates, la colonne 'E' ce sont les critères, la colonne 'G' fait le total des lignes [ G6=SOMME(H6:V6) et ainsi de suite jusqu'à G48=SOMME(H48:V48) ].

Question:
Comment étendre automatiquement ma formule de somme lorsqu'une nouvelle colonne est créée? C'est-à-dire passer de G6=SOMME(H6:V6) à G6=SOMME(H6:W6) lorsque que la colonne total 'G' de ma feuille "IW31" est copiée dans "Info. Input cumulative" (en l’occurrence colonne 'W' dans mon cas). A noter, le numéro de colonne est alors variable.

J'ai tenté d'utiliser ce que j'ai vu sur le forum mais je ne trouve que pour étendre une formule dans le sens vertical... et non horizontal... J'ai retourné le problème de partout mais je ne m'en sors pas !

En espérant avoir été clair 🙂 en pièce jointe vous trouverez mon fichier.

Merci d'avance pour vos réponses,
Greg

 

[Caillou]

Re : Etendre formule avec colonne variable VBA

Bonjour,

Regardes si cette formule pourrait convenir :
=SOMME(DECALER($H$5;LIGNE()-LIGNE($H$5);0;1;NBVAL($H$5:$XFD$5)))

Caillou

 

[Dranreb]

Re : Etendre formule avec colonne variable VBA

Bonjour.
Après avoir copié votre dernière colonne, au lieu de la coller sur la suivante, ne pourriez vous pas l'insérer devant elle même ?

With Sheets("Info. Input cumulative").Columns(i).EntireColumn: .Copy: .Insert: End If

Ainsi les références à la dernière colonne seraient corrigées automatiquement.
À +

 

[Gregh74]

Re : Etendre formule avec colonne variable VBA

Re bonjour,

Je viens de tester et ça marche parfaitement! Je vous remercie pour vos réponses! Ca a l'air tellement plus simple maintenant, une fois la réponse sous les yeux 🙂

Merci à tout les deux,

Greg