XL 2019 Formule somme des colonnes sur feuille inexistante

djidji59430

XLDnaute Barbatruc

• 4 Octobre 2020

• #2

Bonjour à tous,

Après la feuille 3, tu crées une feuille vide, qui s'appelle "derfeuille"
Tu changes ta formule en =SOMME(Feuil1:derfeuille!H:H)
Toutes les colonnes H des feuilles crées par la suite et inséréess entre feuil1 et derfeuilles seront prises en compte.

Crdlmt

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 4 Octobre 2020

• #3

Bonjour,
renommez votre feuille3 en feuille30
entrez la formule : =SOMME(Feuil1:Feuil30!H:H)
Les joueurs doivent ajouter des feuilles entre la 1 et la 30 jamais après la 30

Salut djidji !

 

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 4 Octobre 2020

• #4

Merci pour vos réponses mais existe t-il une solution en vba ,je peux mettre en oeuvre via une macro

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Octobre 2020

• #5

Bonjour

Si tous les onglets comportent un tableau structuré comme dans l'exemple tu peux aussi utiliser PowerQuery

Mais pour une somme aussi simple, je vois pas l'intérêt de VBA ni celui de PowerQuery...

 

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 4 Octobre 2020

• #6

Je précise que j'utilise une macro pour la création d'onglet et en utilisant la technique de la dernière feuille,je peux modifier ma formule pour imposer la création d'onglet avant la dernière feuille voici ma formule
Private Sub Btncréationonglet_Click()
Dim eq As Long, an As Long, idx As Variant, msg As String
On Error Resume Next

idx = Sheets(Me.TextBoxdate.Text).Index
On Error GoTo 0
If idx > 0 Then msg = "Feuille '" & Me.TextBoxdate.Text & "' déjà existante"

If msg <> "" Then GoTo erreur
'
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Visible = xlSheetVisible
.Select
.Name = Me.TextBoxdate.Text
Application.Goto [B2], True
Range("A1").Select
End With
Me.Hide
Exit Sub
erreur:
MsgBox msg
End Sub

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Octobre 2020

• #7

RE

Pense à nommer tes tableaux structurés : ce magma de noms va vite être ingérable

VB:

...
Sheets("Modèle").Copy Before:=Sheets("derfeuille")
With ActiveSheet
....

pas mal de lignes inutiles...

Code:

.Visible = xlSheetVisible
.Select
...
Application.Goto [B2], True
Range("A1").Select

 

Dernière édition: 4 Octobre 2020

Vote positif 0 Vote négatif

Solution

D

Did25

XLDnaute Occasionnel

• 4 Octobre 2020

• #8

Bonjour chris merci de ta réponse ça fonctionne et j'ai fait le tri dans la formule comme tu l'as suggéré mais par contre que veux tu dire par " Pense à nommer tes tableaux structurés : ce magma de noms va vite être ingérable " ,lorsque je fais un création d'onglet d'une feuille contenant un tableau "X" ,la feuille copiée se retrouve avec un tableau nommé différemment ,existe t-il une autre solution ?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Octobre 2020

• #9

RE

Tout tableaux Structuré comme tout Onglet, tout classeur... ne doit pas garder son nom automatique de type Tableau1 mais avoir un nom signifiant qui permet de le localiser facilement
Au pire, si un seul Tableau structuré dans l'onglet, tu peux lui donner le même nom que l'onglet si ce nom ne contient pas d'espace

VB:

ActiveSheet.ListObjects(1).Name=....

 

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 4 Octobre 2020

• #10

Merci pour vos explications ,sujet résolu Merci le forum et merci XLD

 

Vote positif 0 Vote négatif