Tableaux et listes

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ? les uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille ?
Ensuite, tu veux une liste de personnes sur une feuille différente. Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau de 16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN

Salut,
oui, désolé, c'ets peut-être le soleil qui me tape aussi sur la tête!
en fait, sur une page, j'ai mes tableaux (par pesonne) les uns sous les
autres.
je voudrais, sur une autre page, créer une liste avec le nom de ces
personnes, et lorsque je sélectionne le nom, le tableau correspondant
s'affiche (par copier coller sur la page d'avant, ou un truc pareil)

j'espère être plus clair.
Merci et à bientot.
YANN

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ? les uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille ?
Ensuite, tu veux une liste de personnes sur une feuille différente. Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau de 16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN

1. Création de la liste :

Sub CreationListe()
Dim Ligne As Integer
Ligne = 1
Sheets.Add
ActiveSheet.Name = "Recap"
Sheets("Feuil1").Select
For i = 0 To 240 Step 16
Range("A1").Offset(i, 0).Copy Sheets("Recap").Range("A" & Ligne)
Ligne = Ligne + 1
Next i
End Sub

2. Exploitation de la liste :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Var
If Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Var = Application.Match(Target.Value, Sheets("Feuil1").Range("A:A"), 0)
Routine Var
Application.EnableEvents = True
End Sub

3. Module Routine :

Sub Routine(Var)
Sheets("Feuil1").Select
Range("A" & Var & ":L" & Var + 15).Copy
Sheets("Recap").Select
Range("A20").Select
ActiveSheet.Paste
End Sub

Cordialement.
Daniel

"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
C21AF57A-BCD1-40AB-BD32-20B553633514@microsoft.com...

Salut,
oui, désolé, c'ets peut-être le soleil qui me tape aussi sur la tête!
en fait, sur une page, j'ai mes tableaux (par pesonne) les uns sous les
autres.
je voudrais, sur une autre page, créer une liste avec le nom de ces
personnes, et lorsque je sélectionne le nom, le tableau correspondant
s'affiche (par copier coller sur la page d'avant, ou un truc pareil)

j'espère être plus clair.
Merci et à bientot.
YANN

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ? les
uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille ?
Ensuite, tu veux une liste de personnes sur une feuille différente. Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau de
16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient
les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN

Merci,
mais il faut que je créé quoi ? un userform? avec quels boutons ?
je te remercie.
YANN

1. Création de la liste :

Sub CreationListe()
Dim Ligne As Integer
Ligne = 1
Sheets.Add
ActiveSheet.Name = "Recap"
Sheets("Feuil1").Select
For i = 0 To 240 Step 16
Range("A1").Offset(i, 0).Copy Sheets("Recap").Range("A" & Ligne)
Ligne = Ligne + 1
Next i
End Sub

2. Exploitation de la liste :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Var
If Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Var = Application.Match(Target.Value, Sheets("Feuil1").Range("A:A"), 0)
Routine Var
Application.EnableEvents = True
End Sub

3. Module Routine :

Sub Routine(Var)
Sheets("Feuil1").Select
Range("A" & Var & ":L" & Var + 15).Copy
Sheets("Recap").Select
Range("A20").Select
ActiveSheet.Paste
End Sub

Cordialement.
Daniel

"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
C21AF57A-BCD1-40AB-BD32-20B553633514@microsoft.com...

Salut,
oui, désolé, c'ets peut-être le soleil qui me tape aussi sur la tête!
en fait, sur une page, j'ai mes tableaux (par pesonne) les uns sous les
autres.
je voudrais, sur une autre page, créer une liste avec le nom de ces
personnes, et lorsque je sélectionne le nom, le tableau correspondant
s'affiche (par copier coller sur la page d'avant, ou un truc pareil)

j'espère être plus clair.
Merci et à bientot.
YANN

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ? les
uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille ?
Ensuite, tu veux une liste de personnes sur une feuille différente. Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau de
16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient
les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN

encore moi.
aurtrement, j'ai encore plus simple (pour t'embêter moins).
voici ci-joint un fichier http://cjoint.com/?ilr3zJFnp0

merci de ta contribution.
YANN

1. Création de la liste :

Sub CreationListe()
Dim Ligne As Integer
Ligne = 1
Sheets.Add
ActiveSheet.Name = "Recap"
Sheets("Feuil1").Select
For i = 0 To 240 Step 16
Range("A1").Offset(i, 0).Copy Sheets("Recap").Range("A" & Ligne)
Ligne = Ligne + 1
Next i
End Sub

2. Exploitation de la liste :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Var
If Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Var = Application.Match(Target.Value, Sheets("Feuil1").Range("A:A"), 0)
Routine Var
Application.EnableEvents = True
End Sub

3. Module Routine :

Sub Routine(Var)
Sheets("Feuil1").Select
Range("A" & Var & ":L" & Var + 15).Copy
Sheets("Recap").Select
Range("A20").Select
ActiveSheet.Paste
End Sub

Cordialement.
Daniel

"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
C21AF57A-BCD1-40AB-BD32-20B553633514@microsoft.com...

Salut,
oui, désolé, c'ets peut-être le soleil qui me tape aussi sur la tête!
en fait, sur une page, j'ai mes tableaux (par pesonne) les uns sous les
autres.
je voudrais, sur une autre page, créer une liste avec le nom de ces
personnes, et lorsque je sélectionne le nom, le tableau correspondant
s'affiche (par copier coller sur la page d'avant, ou un truc pareil)

j'espère être plus clair.
Merci et à bientot.
YANN

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ? les
uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille ?
Ensuite, tu veux une liste de personnes sur une feuille différente. Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau de
16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient
les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN

Bonjour.
La macro CreationListe ajoute une feuille, nommée "Récap", sur laquelle elle
crée la liste des personnes. Le nom de la personne étant censé être en haut
et à gauche de chaque tableau. Tu la mets dans un module. Tu mets le code
correspondant à l'évènement SelectionChange dans la feuille Recap. Le module
Routine va dans un module.
Cordialement.
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ugjFtlcnFHA.3960@TK2MSFTNGP12.phx.gbl...

1. Création de la liste :

Sub CreationListe()
Dim Ligne As Integer
Ligne = 1
Sheets.Add
ActiveSheet.Name = "Recap"
Sheets("Feuil1").Select
For i = 0 To 240 Step 16
Range("A1").Offset(i, 0).Copy Sheets("Recap").Range("A" & Ligne)
Ligne = Ligne + 1
Next i
End Sub

2. Exploitation de la liste :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Var
If Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Var = Application.Match(Target.Value, Sheets("Feuil1").Range("A:A"), 0)
Routine Var
Application.EnableEvents = True
End Sub

3. Module Routine :

Sub Routine(Var)
Sheets("Feuil1").Select
Range("A" & Var & ":L" & Var + 15).Copy
Sheets("Recap").Select
Range("A20").Select
ActiveSheet.Paste
End Sub

Cordialement.
Daniel

"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news: C21AF57A-BCD1-40AB-BD32-20B553633514@microsoft.com...

Salut,
oui, désolé, c'ets peut-être le soleil qui me tape aussi sur la tête!
en fait, sur une page, j'ai mes tableaux (par pesonne) les uns sous les
autres.
je voudrais, sur une autre page, créer une liste avec le nom de ces
personnes, et lorsque je sélectionne le nom, le tableau correspondant
s'affiche (par copier coller sur la page d'avant, ou un truc pareil)

j'espère être plus clair.
Merci et à bientot.
YANN

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ? les
uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille ?
Ensuite, tu veux une liste de personnes sur une feuille différente. Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau
de 16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient
les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN

Je te retourne ton classeur modifié :
http://cjoint.com/?ilsza5ceeD
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
FA90A930-2764-46F9-B9D0-CB2DC9A849D9@microsoft.com...

encore moi.
aurtrement, j'ai encore plus simple (pour t'embêter moins).
voici ci-joint un fichier http://cjoint.com/?ilr3zJFnp0

merci de ta contribution.
YANN

1. Création de la liste :

Sub CreationListe()
Dim Ligne As Integer
Ligne = 1
Sheets.Add
ActiveSheet.Name = "Recap"
Sheets("Feuil1").Select
For i = 0 To 240 Step 16
Range("A1").Offset(i, 0).Copy Sheets("Recap").Range("A" & Ligne)
Ligne = Ligne + 1
Next i
End Sub

2. Exploitation de la liste :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Var
If Intersect(Target, Range("A1:A15")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Var = Application.Match(Target.Value, Sheets("Feuil1").Range("A:A"),
0)
Routine Var
Application.EnableEvents = True
End Sub

3. Module Routine :

Sub Routine(Var)
Sheets("Feuil1").Select
Range("A" & Var & ":L" & Var + 15).Copy
Sheets("Recap").Select
Range("A20").Select
ActiveSheet.Paste
End Sub

Cordialement.
Daniel

"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
C21AF57A-BCD1-40AB-BD32-20B553633514@microsoft.com...

Salut,
oui, désolé, c'ets peut-être le soleil qui me tape aussi sur la tête!
en fait, sur une page, j'ai mes tableaux (par pesonne) les uns sous les
autres.
je voudrais, sur une autre page, créer une liste avec le nom de ces
personnes, et lorsque je sélectionne le nom, le tableau correspondant
s'affiche (par copier coller sur la page d'avant, ou un truc pareil)

j'espère être plus clair.
Merci et à bientot.
YANN

Bonjour.
J'ai pas tout compris, mais c'est août et il fait si beau...
Comment sont disposés tes tableaux les uns par rapport aux autres ?
les
uns
à côté des autres ?, les uns sous les autres ?, chacun sur une feuille
?
Ensuite, tu veux une liste de personnes sur une feuille différente.
Pour
afficher quoi sous le tableau correspondant ?
Cordialement.
Daniel
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
A1C219F6-BEFB-4945-BA37-3CA9CC733231@microsoft.com...

Bonjour,

sur mon fichier Excel, j'ai une feuille sur laquelle j'ai 15 tableau
de
16
lignes par 12 colonnes qui se suivent. (1 tableua pour 15 personnes
différentes)

Je voudrais créer, sur une nouvelle page, 1 liste (qui reprendraient
les
différents noms) qui me permetteraient d'afficher sous le tableau
correspondant à la personne choisie dans la liste.

Comment puis-je faire celà?

je vous remercie.
YANN