Discussion :

[Freud44]

Bonjour,

Question relativement simple, mais je cherche un moyen pour m'en sortir.
J'ai un tableau avec 2 colonnes. A & B
A est une colonne où je saisis des données, B est la colonne "totale".

J'ai besoin d'insérer via un bouton une colonne C, entre A & B. Ça, ça marche.
Par contre, quand j'ajoute ma colonne, je voudrai que les lignes de ma colonne B (totale) contiennent des fonctions SOMME des colonnes A & C

Est-ce possible ?

Car je pourrais avoir un calcul automatique dès que je modifie une valeur quelque part, mais ce n'est pas ce que je cherche.
Je veux pouvoir insérer autant de colonne que nécessaire, et que ma colonne totale se mette à jour en fonction. et qu'après encore, je commence à saisir mes valeurs dans mes lignes de A & C etc...

merci

[mercatog]

Ligne 1 celle des titres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim LastLig As Long
Dim LastCol As Integer
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'à adapter
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    .Columns(2).Insert
    .Cells(2, LastCol + 1).Resize(LastLig - 1).FormulaR1C1 = "=SUM(RC[" & -LastCol & "]:RC[-1])"
End With
End Sub