Discussion :

[Kreen63]

Bonjour à tous,

Désolée je ne suis pas du tout experte en VBA ... mais je cherche une solution qui me permettrai d'optimiser un excel.

J'ai créé une macro avec un sommaire (merci Google !)
J'ai réussi à récupérer le nom de chaque onglet en face de chaque ligne (merci Google !) mais je cherche maintenant à aller récupérer une cellule également sur chaque onglet :



Pour l'heure j'ai juste mis "TEST-DATE" mais je voudrai par exemple récupérer la cellule A99 pour chacune des feuilles.

Donc en gros j'ai ça :

For Each feuille In Worksheets
Cells(ligne, 5) = "TEST-DATE"

Je voudrais donc remplacer ça par un "récupère moi la cellule XX de chaque feuille que tu mettras en colonne 5", je pense (et j'espère) que la formule ne doit pas être compliqué mais je n'arrive pas à trouver mon bonheur (je ne sais peut être pas chercher correctement :/).

Je remercie d'avance celui ou celle qui pourra m'aider

Kreen63

[Nain porte koi]

hello,

c'est quoi "la cellule XX de chaque feuille" ?

[Raccourcix]

Bonjour


Avec B3 la cellule qui contient "informations" et A99 la cellule à retourner dans l'onglet "informations"

Code :

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

=INDIRECT("'"&B3&"'!A99")

Stéphane

[Kreen63]

Oui effectivement je me rends compte que ce n'est pas clair, je veux dans mon exemple récupérer la cellule A99 de chacune des feuilles pour les faire afficher sur ma page récapitulative dans ma colonne 5 (à la place de TEST-DATE qui est une valeur en dur que j'ai posé à la place en attendant)

Du coup Raccourcix je ne suis pas sur que ça répond à mon besoin ? Ou alors j'ai pas compris l'histoire du B3

Merci à vous deux.

[Nain porte koi]

Du coup Raccourcix je ne suis pas sur que ça répond à mon besoin ? Ou alors j'ai pas compris l'histoire du B3

Si si, c'est bon (bravo Raccourcix, moi j'avais pas capté), dans son exemple la cellule B3 contient le nom de la feuille

[Kreen63]

Ok j'ai bien compris la formule mais j'ai besoin de le faire en macro c'est possible ?

Car toute ma page de sommaire se créé automatiquement à chaque ouverture de mon fichier et donc une formule s'écraserait.

Je vais tâcher de vous mettre plus de détail sur mon rendu actuel et et sur mon code (désolée il ne doit pas forcément être optimisé mais j'ai piqué à droite à gauche pour monter mon code )

Rendu actuel :


Code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub Auto_Open()
 
    If Worksheets(1).Name = "Sommaire" Then
    Application.DisplayAlerts = False
    Worksheets(1).Delete
    Application.DisplayAlerts = True
    End If
 
    Sheets.Add before:=Worksheets(1)
    ActiveSheet.Name = "Sommaire"
 
    [A1] = "Listing des clients en cours"
            Range("A1").Font.Bold = True
            Range("A1").Font.Size = 18
            Range("A1").Font.Underline = xlUnderlineStyleSingle
 
    Dim ligne As Integer
    ligne = 3
 
    Dim numero As Integer
    numero = 1
 
    Dim feuille As Worksheet
 
    For Each feuille In Worksheets
    Cells(ligne, 1) = numero
    ActiveSheet.Hyperlinks.Add anchor:=Cells(ligne, 2), Address:="", SubAddress:="'" & feuille.Name & "'!A1", TextToDisplay:=feuille.Name
        ligne = ligne + 1
 
    numero = 1 + numero
 
Cells(ligne, 5) = "TEST-DATE"
 
Cells(ligne, 6).Formula = 1 + 1
 
    Next
 
    Dim nbLignes As Integer
nbLignes = Cells(Application.Rows.Count, 1).End(xlUp).Row
 
Range("A65536").End(xlUp)(2).Formula = "Nb clients"
Range("B65536").End(xlUp)(2).Formula = nbLignes - 5
 
End Sub

Le but étant de transcoder votre formule dans ma macro, j'ai fait plusieurs tests sans succès pour l'heure.

En vous remerciant une nouvelle fois.