XL 2013 Ajout de colonnes (2) + formule à appliquer

OOLIVE

XLDnaute Occasionnel
Hello le forum,

Comme généralement les réponses apportées dépassent mes espérances, je me permet de revenir vers vous pour obtenir un peu de votre aide.

J'ai un tableau dans lequel je souhaite ajouter 2 colonnes à droite de chaque colonne (afin d'y introduire des formules).
1er pb: les colonnes créées viennent d'insérer à gauche de ma colonne malgré le code suivant :
Columns(n).Resize(, 2).Insert shift:=xlToRight
Quelqu'un saurait m'expliquer pourquoi ?

Par ailleurs, est-il possible, lors de l'insertion des colonnes, d'y ajouter également les formules ?
Ce sont des formules simples.
1er colonne ajoutée, rapport valeur colonne existante/total la ligne (exp :=B13/DD13)
2eme colonne ajoutée, =SOMME($B$3:B13)/SOMME($DD$3:DD13)

La colonne DD étant la dernière colonne de mon tableau (trouvée via dercol1 = Cells.Find("*", , , , xlByColumns, xlPrevious).Column )

Merci pour votre temps :)
 

Discussions similaires