Discussion :

[barbeaua]

Bonjour,

J'ai un problème que je n'arrive pas à résoudre...

J'ai un code qui se lance à l'ajout d'une nouvelle feuille Excel. Ce code crée 4 colonnes sur la feuille nommée "Debours".

J'aimerais faire la somme des cellules de la ligne 7, mais uniquement sur la première colonne créée à l'appui sur le bouton.

Par exemple, D7=E7+I7+M7+Q7...

J'ai sur ma feuille une cellule compteur qui compte le nombre de feuilles créées, mais je ne sais pas comment écrire en VBA pour que la cellule D7 se mette automatiquement à jour.

[Menhir]

J'aimerais faire la somme des cellules de la ligne 7, mais uniquement sur la première colonne créée à l'appui sur le bouton.

Par exemple, D7=E7+I7+M7+Q7...

Code :

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

Range("D7").Formula = "=E7+I7+M7+Q7"

[barbeaua]

Merci mais je donnais ceci en exemple, il faudrait que la somme s'incrémente avec le nombre de feuilles créées.

Par exemple D7=E7 à l'ajout de la première feuille puis D7=E7+I7 à l'ajout de la deuxième ect...

[RastaBomboclat]

Bonsoir,

Il est très difficile de comprendre ce que tu veux exactement quand tu n’en dis pas grand-chose et n'est pas claire du tout avec ta demande.
Maintenant qu'il y a déjà eu plus de 2 postes, pourrais-tu nous montrer à l'aide d'un fichier exemple ce que tu désires exactement avec tous les détails et explications? Il y aura peut-être plus de réponses de la part des membres du groupe.
Quelqu'un dans le forum a comme signature qu'une question bien posé c'est plus de chance de solutions

[RyuAutodidacte]

Bonsoir,
Comme le dit @RastaBomboclat les explications ne sont pas claires
donc un petit code pour t'inspirer, à toi de faire le reste et reviens avec un code balisé entre les balises code représentés par le bouton # (on verra pour le reste à la 1ère copie )

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim sh As Worksheet, x&
    With Feuil1
        .Cells(7, 4).Value = "" ' ou 0 à la place de ""
        For Each sh In Worksheets
            .Cells(7, 4).Value = .Cells(7, 4).Value + .Cells(7, 5 + x).Value
            x = x + 4
        Next
    End With
End Sub

[Theze]

Bonjour,

Sur la feuille active en D7, inscrit la formule SOMME de E7 à ?7 "?" étant la lettre de la dernière colonne utilisée !

Code :

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

1
2
 
Range("D7").Formula = "=SUM(E7:" & Cells(7, Columns.Count).End(xlToLeft).Address(0, 0) & ")"

[Menhir]

Merci mais je donnais ceci en exemple

Mais tu ne donnais pas grand chose d'autre.
Ma réponse était quasiment ironique pour essayer de te faire comprendre qu'un exemple ne suffit pas pour définir une règle et que ta demande n'était pas claire.

il faudrait que la somme s'incrémente avec le nombre de feuilles créées.
Par exemple D7=E7 à l'ajout de la première feuille puis D7=E7+I7 à l'ajout de la deuxième ect...

Ne pourrais-tu pas simplement dire que tu veux en D7 une formule qui fasse la somme de la cellule E7 jusqu'à la dernière cellule non vide la ligne 7.

Si c'est bien ça, la réponse de Theze devrait convenir.

[barbeaua]

Bonjour, je comprends, je n'ai pas été assez clair...

Ouvrez le fichier ci-joint (ne pas mettre à jour les valeurs), cliquez sur nouvelle feuille, entrez "code1", validez les quelques msgbox et ouvrez la feuille "Debours.

Appuyez sur "afficher le bilan à l'instant T", vous verrez alors 4 colonnes.

J'aimerai que la colonne "Total" de Debours prenne comme valeur la somme d'une seule de ces colonnes, par exemple "engagé", mais pour chaque feuille créée, qu'elle s'incrémente.

J'espère avoir été plus clair et merci pour vos réponses

[RyuAutodidacte]

Bonjour,
on veut bien t'aider mais :
voilà un extrait de ce lien (Ici)

Il est inutile et malvenu de joindre un fichier lors de la création de la discussion. Faites l’effort de formuler votre demande en français, en la relisant avant de la poster. Vous aurez beaucoup plus de chances d’obtenir des réponses adéquates.

Quasi personne n'ouvre des fichiers avec macro.
Si tu veut appuyer sur tes explications utilise plutôt des captures d'écran.