Deux feuilles l'une nomm=E9e Liste l'autre emargement.
Dans la premi=E8re se trouve 3 colonnes
A1 B1 C1
Equipe Nom Pr=E9nom
EQP1 N1 P1
EQP1 N2 P2
EQP1 N3 P3
EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille =E9margement, r=E9cup=E9rer la liste des
noms et pr=E9noms correspondant =E0 une =E9quipe.
Je voudrai faire afficher tous les noms et pr=E9noms de EQP1 (valeur de
la cellule D1 de la feuille =E9margement).
Merci pour votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Regarde le classeur exemple à l'adresse : http://cjoint.com/?kypTCXiAKi J'ai tout mis sur la même feuille pour plus de simplicité. Note que les formules de la zone Résultats sont matricielles. Il faut les valider en appuyant sur CTRL+MAJ+Entrée. Daniel a écrit dans le message de news:
Bonjour à tous, Je recommence. Erreur de manip.
Deux feuilles l'une nommée Liste l'autre emargement. Dans la première se trouve 3 colonnes A1 B1 C1 Equipe Nom Prénom EQP1 N1 P1 EQP1 N2 P2 EQP1 N3 P3 EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille émargement, récupérer la liste des noms et prénoms correspondant à une équipe. Je voudrai faire afficher tous les noms et prénoms de EQP1 (valeur de la cellule D1 de la feuille émargement). Merci pour votre aide.
Bonjour.
Regarde le classeur exemple à l'adresse :
http://cjoint.com/?kypTCXiAKi
J'ai tout mis sur la même feuille pour plus de simplicité. Note que les
formules de la zone Résultats sont matricielles. Il faut les valider en
appuyant sur CTRL+MAJ+Entrée.
Daniel
<jpthillard@free.fr> a écrit dans le message de news:
1193225538.665878.134840@e34g2000pro.googlegroups.com...
Bonjour à tous,
Je recommence. Erreur de manip.
Deux feuilles l'une nommée Liste l'autre emargement.
Dans la première se trouve 3 colonnes
A1 B1 C1
Equipe Nom Prénom
EQP1 N1 P1
EQP1 N2 P2
EQP1 N3 P3
EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille émargement, récupérer la liste des
noms et prénoms correspondant à une équipe.
Je voudrai faire afficher tous les noms et prénoms de EQP1 (valeur de
la cellule D1 de la feuille émargement).
Merci pour votre aide.
Bonjour. Regarde le classeur exemple à l'adresse : http://cjoint.com/?kypTCXiAKi J'ai tout mis sur la même feuille pour plus de simplicité. Note que les formules de la zone Résultats sont matricielles. Il faut les valider en appuyant sur CTRL+MAJ+Entrée. Daniel a écrit dans le message de news:
Bonjour à tous, Je recommence. Erreur de manip.
Deux feuilles l'une nommée Liste l'autre emargement. Dans la première se trouve 3 colonnes A1 B1 C1 Equipe Nom Prénom EQP1 N1 P1 EQP1 N2 P2 EQP1 N3 P3 EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille émargement, récupérer la liste des noms et prénoms correspondant à une équipe. Je voudrai faire afficher tous les noms et prénoms de EQP1 (valeur de la cellule D1 de la feuille émargement). Merci pour votre aide.
Jacky
Bonjour, '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [d1]) Is Nothing And Target.Count = 1 Then Range("a2:b65536").ClearContents Application.EnableEvents = False x = 2 For Each c In [equipe] If c = Target Then Cells(x, 1) = c.Offset(, 1): Cells(x, 2) = c.Offset(, 2) x = x + 1 End If Next Application.EnableEvents = True End If End Sub '-------------- Voir ici http://cjoint.com/?kyqmyoWYCx
-- Salutations JJ
a écrit dans le message de news:
Bonjour à tous, Je recommence. Erreur de manip.
Deux feuilles l'une nommée Liste l'autre emargement. Dans la première se trouve 3 colonnes A1 B1 C1 Equipe Nom Prénom EQP1 N1 P1 EQP1 N2 P2 EQP1 N3 P3 EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille émargement, récupérer la liste des noms et prénoms correspondant à une équipe. Je voudrai faire afficher tous les noms et prénoms de EQP1 (valeur de la cellule D1 de la feuille émargement). Merci pour votre aide.
Bonjour,
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [d1]) Is Nothing And Target.Count = 1 Then
Range("a2:b65536").ClearContents
Application.EnableEvents = False
x = 2
For Each c In [equipe]
If c = Target Then
Cells(x, 1) = c.Offset(, 1): Cells(x, 2) = c.Offset(, 2)
x = x + 1
End If
Next
Application.EnableEvents = True
End If
End Sub
'--------------
Voir ici
http://cjoint.com/?kyqmyoWYCx
--
Salutations
JJ
<jpthillard@free.fr> a écrit dans le message de news:
1193225538.665878.134840@e34g2000pro.googlegroups.com...
Bonjour à tous,
Je recommence. Erreur de manip.
Deux feuilles l'une nommée Liste l'autre emargement.
Dans la première se trouve 3 colonnes
A1 B1 C1
Equipe Nom Prénom
EQP1 N1 P1
EQP1 N2 P2
EQP1 N3 P3
EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille émargement, récupérer la liste des
noms et prénoms correspondant à une équipe.
Je voudrai faire afficher tous les noms et prénoms de EQP1 (valeur de
la cellule D1 de la feuille émargement).
Merci pour votre aide.
Bonjour, '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [d1]) Is Nothing And Target.Count = 1 Then Range("a2:b65536").ClearContents Application.EnableEvents = False x = 2 For Each c In [equipe] If c = Target Then Cells(x, 1) = c.Offset(, 1): Cells(x, 2) = c.Offset(, 2) x = x + 1 End If Next Application.EnableEvents = True End If End Sub '-------------- Voir ici http://cjoint.com/?kyqmyoWYCx
-- Salutations JJ
a écrit dans le message de news:
Bonjour à tous, Je recommence. Erreur de manip.
Deux feuilles l'une nommée Liste l'autre emargement. Dans la première se trouve 3 colonnes A1 B1 C1 Equipe Nom Prénom EQP1 N1 P1 EQP1 N2 P2 EQP1 N3 P3 EQP2 N4 P4
etc...
Je voudrai pouvoir dans la feuille émargement, récupérer la liste des noms et prénoms correspondant à une équipe. Je voudrai faire afficher tous les noms et prénoms de EQP1 (valeur de la cellule D1 de la feuille émargement). Merci pour votre aide.
