Discussion :

[HeinConneNue]

Bonjour à tous,

Je travaille sur la réalisation d'une grande base de données. Je cherche à ce qu'elle soit la plus ergonomique possible afin qu'on puisse, ultérieurement, ajouter des informations supplémentaires de manière pratique.
J'ai crée une autre table pour simplifier grandement la compréhension de l'exercice : la première feuille constitue la synthèse de tous les articles avec leur prix et la date de péremption, et les autres feuilles reprennent ces informations pour CHAQUE article.
Je souhaiterais une macro qui puisse rechercher et récupérer le nom de l'article, le prix et la date automatiquement en fonction du nom qu'on attribue à la feuille.
Exemple : si je nomme la feuille 2 "Yaourt", la macro devrait récupérer l'article, le prix et la date DU YAOURT. Si je la nomme "Ravioli", elle devrait récupérer les mêmes informations, MAIS POUR LES RAVIOLIS.



Est-ce possible, et si oui pourriez-vous m'apporter votre aide ?

Je vous remercie bien.

[Invité]

Bonjour,

Soit un tableau structuré appelé TableBd :

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
 
Sub MajOnglets()
 
Dim I As Integer, J As Integer
 
    For I = 1 To Sheets.Count
        For J = 1 To Range("TableBd[Article]").Count
            If Range("TableBd[Article]")(J) = Sheets(I).Name Then
               With Sheets(I)
                    .Range("B2") = Range("TableBd[Article]")(J).Value
                    .Range("B3") = Range("TableBd[Article]")(J).Offset(0, 1)
                    .Range("B3").NumberFormat = "# ##0.00"
                    .Range("B4") = Format(Range("TableBd[Article]")(J).Offset(0, 2), "dd/mm/yyyy")
               End With
            End If
        Next J
    Next I
 
End Sub

[HeinConneNue]

Bonjour,

Ca fonctionne parfaitement.

Merci à vous et bonne continuation.