Récupération d'info

Ronan · 23 Novembre 2004

Salut à toutes et à tous.

Voilà mon problème, je cherche une fonction ou une combine pour réaliser un tableau qui récupère en feuil1 des infos de feuil2, 3, … qui n’existe pas encore !!!
En A2 feuil1 > je voudrai l’info A2 feuil2, en A3 feuil1 > je voudrai l’info A3 feuil2…
En A3 feuil1 > je voudrai l’info A2 feuil3, en A3 feuil1 > je voudrai l’info A3 feuil3…
- …
et tout cela alors que les feuilles ne sont pas encore crées, cela est réalisable avec des formules classiques si l’ensemble des feuilles est crées en utilisant =’onglet !A2, mais je ne connais pas encore le nom de mes onglets et je pensai qu’en passant par du VBA en utilisant l’adresse de la feuille ( Feuil1, feuil2 … ) ce serait possible.
Si quelqu’un m’a compris et a une solution, merci à lui.
Ronan.

Jean-Marie · 23 Novembre 2004

Bonjour Ronan

Si j'ai bien compris ton problème, voici une Function VBA à mettre dans un module.

Public Function DerniereFeuille() as string
DerniereFeuille = Sheets(Sheets.Count).Name
End Function

Elle retourne le nom de la dernière feuille du classeur, attention cela dépend de l'emplacement c'est celle placée à l'extrême droite.

Pour l'employer tu as plusieurs solutions
=INDIRECT("'"& DerniereFeuille() & "'!A2"), les ' sont utile quand le nom de la feuille contient un espace, ils ne gênent pas dans l'autre cas.
ou
=INDIRECT(ADRESSE(2;1;;;DerniereFeuille()))

@+Jean-Marie

Ronan · 23 Novembre 2004

Merci a toi Jean Marie, c'est un bon début, mais avec ces formules je ne récupère que les infos de la dernière feuille, et voudrai également récupèrer les infos présente dans l'ensemble des autres feuilles.
Ronan.

Hervé · 23 Novembre 2004

Bonjoure

Essaye un truc dans ce style

Public Sub vev()
Dim c As Range
Dim i As Byte
For Each c In Range("a3:a" & Range("a500").End(xlUp).Row)
On Error Resume Next
For i = 1 To 15
c.Offset(0, i).Value = Sheets(c.Value).Cells(2, i).Value
Next i
Next c
End Sub

salut
Hervé

Ronan · 23 Novembre 2004

Merci Hervé.
C'est parfait pour moi, juste une chose maintenant, comment peut on récupèrer dans une cellule A1 le nom de l'onglet de la feuil1, en A2 le nom de l'onglet de la feuil3 ect..
Ronan

Hervé · 23 Novembre 2004

re

le tout combiné

Public Sub vev()
Dim c As Range
Dim i As Byte
Dim n As Integer
n = 1
For Each ws In Worksheets
Range("a" & n).Value = ws.Name
n = n + 1
Next ws
For Each c In Range("a2:a" & Range("a500").End(xlUp).Row)
On Error Resume Next
For i = 1 To 15
c.Offset(0, i).Value = Sheets(c.Value).Cells(2, i).Value
Next i
Next c
End Sub

Attention de bien partir de la cellule A2, pour le renvoi des données, a moins que tu veuilles aussi récupérer les infos de ta feuille de travaille.

Salut
Hervé

Récupération d'info

Ronan

Guest

Jean-Marie

Guest

Ronan

Guest

Pièces jointes

Hervé

Guest

Ronan

Guest

Hervé

Guest

Discussions similaires

Récupération d'info

Ronan

Guest

Jean-Marie

Guest

Ronan

Guest

Pièces jointes

Hervé

Guest

Ronan

Guest

Hervé

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency