Moyen pour étendre une formule en fonction d'un nombre n de colonnes

Bonjour à tous, voici mon nouveau problème

J'ai un tableau à une colonne et 10 lignes auxquels j'ai affecté un bouton "ajouter une colonne" qui me permet d'ajouter un nombre n de colonne.(cf fichier en pj)

13pbexcel-3.xlsx (12.88 Ko)

Je me sers de cette colonne pour cocher des critères avec des caractères de texte comme "x" et "X".

Sous cette colonne j'ajoute une formule qui me compte le nombre de coches par colonnes.

Je voudrais savoir si il est possible que lorsque je clique sur le bouton ajouter colonne, la formule qui compte mes coches s'étende en même temps

Merci d'avance pour votre aide

Cdt

Peux tu me mettre ta macro ici ? je ne l'ai pas avec ton fichier !

Voila ma macro "ajout de colonne"

Sub Macro1()
'Ajout colonne sur un tableau mise en forme
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, dercol + 1).Value = Cells(1, dercol).Value + 1

End Sub

Bonjour,

Une proposition ?

Cdlt.

2pbexcel-3.xlsm (20.83 Ko)
Public Sub AddColumnInTable()
Dim lc As ListColumn, lCol As Long
    With Range("Tableau1").ListObject
        lCol = .ListColumns.Count
        Set lc = .ListColumns.Add
        lc.Name = lCol + 1
        .TotalsRowRange(lCol + 1).Formula = _
                "=COUNTIF(" & lc.DataBodyRange.Address & ",""x"")"
    End With
End Sub

Bonjour,

Cela semble fonctionner mais j'aimerais comprendre,

Il y a deux modules le premier avec votre macro mais je ne comprend pas a quoi sert le deuxième ?

Bonjour,

Le module2 peut-être supprimé. Il n'est pas utile (tests !?)

Cdlt.

2pbexcel-3.xlsm (19.75 Ko)

D'accord, mais du coup deuxième petite question:

Lorsque j'exécute la macro, il m'ajoute une colonne, "m'entend" ma formule et m'ajoute +1 au nom de ma colonne.

En revanche si je ne par pas de la colonne 1 (exemple: nom de la première colonne= 10) et que j'exécute, il ne fait pas l'incrémentation ?

2pbexcel-3-1.xlsm (19.68 Ko)

j'ai réussi à résoudre mon problème merci pour la solution !

Cdt

Rechercher des sujets similaires à "moyen etendre formule fonction nombre colonnes"