Macro excel

Fermé
Ulymat - 3 mars 2008 à 17:52
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 5 mars 2008 à 15:05
Bonjour,
Je ne connais pas encore les macros...
J'ai fait un tableau avec plusieurs données sur une feuille excel du type: NOM _ADRESSE_ TEL etc...Je voudrais créer dans ce même classeur, autant de feuille que de NOM en reprennant une partie des données de mon tableau général, est ce possible en clickant sur un NOM de créer automatiquement cette fiche récapitulative ?

2 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
3 mars 2008 à 18:50
bonjour

autant de feuille que de NOM en reprennant une partie des données de mon tableau général,

C'est tout à fait possible effectivement mais si tu as beaucoup de noms, cela ne fonctionnera pas car le nombre d'onglets est limité en fonction de la mémoire et au delà de quelques dizaines, cela sera problèmatique.

Je te mets un petit exemple : https://www.cjoint.com/?ddsSMYHVHD
0
Bonjour,
C'est exactement ce que je veux faire, comment fais tu ?
Merci
0
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
5 mars 2008 à 15:05
bonjour


C'est exactement ce que je veux faire, comment fais tu ?

Chutt, je suis sorcier et c'est le fluide qui fait tout, formé par "Le Druide" !

Je plaisante, il n'y a aucun secret il suffit de regarder la macro qui est dans le classeur :
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Count > 1 Then Exit Sub
If sel.Row < 2 Then Exit Sub
If sel.Column > 1 Then Exit Sub
If sel.Value = "" Then Exit Sub
Dim i As Integer
For i = 1 To Sheets.Count
    If sel.Value = Sheets(i).Name Then
        Sheets(i).Activate
        Exit Sub
    End If
Next i
Sheets.Add(, Sheets(Sheets.Count)).Name = sel.Value
Cells(sel.Row, 1).EntireRow.Copy Destination:=Sheets(sel.Value).[A1]
End Sub
0