Somme de colonnes

Bonjour Lils_Bis,

Tu as écrit que le nombre de colonnes peut varier d'un questionnaire à l'autre ; peux-tu me dire si pour chacun, la 1ère colonne utilisée est toujours la colonne A ?

============================================================

Tu ne dis rien à propos des lignes !

Quelle est la 1ère ligne de départ ? C'est peut-être la ligne 1, mais pas
forcément : s'il y a une ligne d'en-têtes en ligne 3 (par exemple), alors les données à additionner commenceront en ligne 4.

Est-ce que pour tous les questionnaires la 1ère ligne de départ est toujours la même ? Si oui, ça simplifiera le problème.

Je pense que le nombre de lignes est probablement différent d'un questionnaire à l'autre.

Si tu me dis que c'est toujours le même nombre de lignes, cela aussi simplifiera. Si oui, quel est ce nombre de lignes ?

Si pour chaque questionnaire et pour chaque colonne :
- le 1er nombre à additionner est en ligne 4
- il y a 10 lignes

Alors, pour un nombre variable de colonnes, il faudra toujours additionner les nombres de la ligne 4 à la ligne 13 et le résultat de la colonne sera juste en-dessous, en ligne 14.

============================================================

Tu n'as pas parlé du nombre de feuilles, mais je pense qu'il y a 1 questionnaire par feuille ! Si oui, combien en as-tu en tout ?

Il se peut aussi que pour chaque questionnaire, il y aie
un classeur Excel d'une seule feuille chacun ?

============================================================

Enfin, quel est le format numérique des données à additionner ? Est-ce toujours des nombres entiers ? Ou des nombres avec 2 chiffres après la virgules ? Ou autre ?

Peut-être est-ce variable sur un même questionnaire ? Sauf dans ce cas, ta réponse sera-t-elle valable pour tous les questionnaires ?

Ces questions sur le format numérique sont uniquement pour me permettre de créer un exemple qui se rapproche au plus près de
ce que tu utilises.

Mais si ça n'a pas d'importance, je pourrai mettre des nombres entiers choisis au hasard entre 1 et 100 (on dit que ce sont des nombres aléatoires).

============================================================

Bien sûr, je n'aurais pas besoin de poser autant de questions si j'avais sous les yeux au moins un petit échantillon de tes questionnaires !

Et aussi si je pouvais voir concrètement ton ou tes classeurs Excel, et la façon dont tes données sont placées sur les feuilles de calcul.

Si tu réponds à ces questions, j'essayerai de trouver une solution.
En fait, j'ai déjà une petite idée, mais je ne te promets rien !  😊
 

Bonsoir Lils_Bis,

Merci pour toutes tes réponses.

Mon code ci-dessous est pour le questionnaire de la feuille active,
et devrait marcher pour toutes les autres feuilles.

Il ajoute une ligne de totaux sous la dernière ligne de données :

Pour chaque colonne, la cellule de cette ligne contiendra non pas
la somme sous forme de valeur fixe immuable, mais une formule de
somme qui donnera le bon résultat même si tu changes les données
du questionnaire ultérieurement.

============================================================

ATTENTION, TRÈS IMPORTANT !

1) Je ne veux pas que tu perdes des données ! Alors par précaution,
fais d'abord une sauvegarde de ton classeur avant de l'essayer ;
ou fait une copie de ton classeur et essaye mon code sur la copie.

---------------------------------------------------------------------------------------------------------

2) Cette macro ne doit être exécutée QUE sur une feuille qui N'A PAS
DÉJÀ de ligne pour les Totaux, donc UNE SEULE FOIS pour chaque
feuille-questionnaire ! En voici la raison :

Si tu exécutes cette macro sur une feuille qui a DÉJÀ une ligne de totaux,
cette ligne DÉJÀ présente va être prise comme une ligne supplémentaire
de données, et UNE AUTRE LIGNE DE TOTAUX sera ajoutée dessous !

Donc soit tu es sûre d'arriver à respecter cette condition, soit je te laisse
essayer de mettre un garde-fou (c'est-à-dire ajouter un « test-butée »).

Option Explicit

Sub Essai()
  ActiveSheet.Unprotect
  Dim k As Long: k = [A1].CurrentRegion.Rows.Count
  With Range("A" & k + 1)
    .Formula = "=SUM(A2:A" & k & ")"
    k = [A1].CurrentRegion.Columns.Count - 1
    .AutoFill Range(.Address & ":" & .Offset(, k).Address)
  End With
  ActiveSheet.Protect
End Sub

En espérant que ça te convienne ; n'hésite pas à me demander d'autres renseignements si besoin !  😊