Somme special

[Atiom]

Bonsoir le forum,

Je souhaiterai trouver des formules, ( ou alors du VBA ) que puisse me permettre de faire la chose suivante :

Dans la colonne B d’une feuil plage ( B6 : B300) afficher le nom de chaque feuille du classeur.

Dans la colonne C de’une feuil plage ( C6 : C300) afficher la valeur de la cellule D2 de la feuille qui est afficher dans la colonne B.

Bien entendue si des nouvelles feuilles sont crées, elles doivent être affichés.

Merci
Atiom

 

[Atiom]

Re : Somme special

Rebonsoir,
J’ai trouvé la solution dans le forum.
Avec la fonction.
SOMME(INDIRECT)
Bonne soirée

 

[bqtr]

Re : Somme special

Bonsoir Atiom, le forum

Voici un exemple par macro, les formules c'est pas trop mon truc.

Bonne soirée

P.O

 

[Atiom]

Re : Somme special

Bonsoir, bqtr et le forum

Je viens de tester la macro et elle est formidable.
Je crois que je vais la adopter.
Merci beaucoup.

Ets-ce qu’il est possible d'exclure certaines feuilles, par exemple si on vaudrais exclure les Feuils( A et B ).

Commet faudrait il modifier cette macro ?

Merci Atiom

Sub feuil()

Dim i As Integer
Dim Wk As Worksheet

i = 6
For Each Wk In ThisWorkbook.Worksheets
  If Wk.Name <> "Total" Then
     Cells(i, 2).Value = Wk.Name
     Cells(i, 3).Value = Wk.Range("D2").Value
     i = i + 1
  End If
Next
End Sub

 

[bqtr]

Re : Somme special

Re,

En modifiant cette ligne comme suit :

If Wk.Name <> "Total" And Wk.Name <> "A" And Wk.Name <> "B" Then

Cela exclura les feuilles A et B en plus de la feuille Total.

Bonne Nuit

P.O

 

[Atiom]

Re : Somme special

Salut,bqtr

Impeccable.
Merci beaucoup🙂
Bonne journée

Cordialement Atiom