Discussion :

[Curlita]

Bonjour à tous,

Alors, pour vous exposer le problème, je suis en train de créer des feuilles de pointage horaire (fichier exemple joint).
J'ai, pour une liste de services donnée, un certain nombre d'activités.
Je cherche donc, lorsque je sélectionne un service donné ma liste déroulante en cellule (A4), à ce que s'affiche la liste des services lui correspondant (liste dans onglet "Liste services activités") dans la colonne "Activités".
Dois je nécessairement passer par une macro (si oui laquelle), ou existe t'il une formule le permettant?
D'avance merci, et bonne fin de journée

[parmi]

Bonjour,

Je vois difficilement comment faire avec des formules, quoique...
Mais voici une piste avec macro (à mettre dans le code de la feuille "feuille pointage"

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "A4" Then
        Range("A8:A25").ClearContents
        Lister
    End If
End Sub
 
Sub Lister()
    Dim nbLignes As Long
 
    Sheets("Liste services activités").AutoFilterMode = False
    nbLignes = Sheets("Liste services activités").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("Liste services activités").Rows(2).AutoFilter Field:=1, Criteria1:=Range("A4")
 
    Sheets("Liste services activités").Range("B3:B" & nbLignes).SpecialCells(xlCellTypeVisible).Copy
    Range("A8").PasteSpecial xlPasteValues
 
End Sub

[Curlita]

Bonsoir,

Merci beaucoup @parmi, ça fonctionne super!
Par contre, j'ai essayé de remplacer le nom de mes services dans la macro à la place du A ici: Rows.Count, "A").End(xlUp).Row
Mais ça ne fonctionne pas...
Où dois- je remplacer?

[parmi]

Cette ligne compte le nombre de lignes dans la colonne A.
Changer "A" par autre chose si tu changes de colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbLignes = Sheets("Liste services activités").Cells(Rows.Count, "A").End(xlUp).Row

Cette ligne filtre la colonne A selon ton choix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Liste services activités").Rows(2).AutoFilter Field:=1, Criteria1:=Range("A4")

Et cette ligne copie les valeurs en colonne B selon ce même choix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Liste services activités").Range("B3:B" & nbLignes).SpecialCells(xlCellTypeVisible).Copy

Assure-toi tout de même que les choix en A4 concordent avec les nouveaux choix que tu as mis.
Autrement, c'est difficile pour moi de voir ce que tu as changé...

[Curlita]

Ok, j'avais dû mal copier, ça fonctionne!
Merci beaucoup, très bonne soirée!

[geogeo70]

Bonsoir,

en reprenant une idée de Papouclo (voir d'autres propositions le concernant) je te propose une formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(INDEX('Liste services activités'!$B$3:$B$29;PETITE.VALEUR(SI('Liste services activités'!$A$3:$A$29='feuille pointage'!Criteres;LIGNE('Liste services activités'!$A$3:$A$29);"");LIGNE()-7));"")

Je te joins mon fichieressai feuille pointage1.xlsx

J'espère avoir répondu sans macro

salutations

geogeo

ps :J'ai oublié de dire que c'est une formule matricielle donc valider avec "CTRL"+"MAJ"+"ENTREE"

[Curlita]

Bonjour Geogeo70,

Merci, c'est intéressant aussi! Je vois dans ta version que cela fonctionne bien, mais quand j'essaie de coller la formules dans mon fichier, dans la zone activité onglet "feuille pointage" (fichier à structure identique, seules les lettres et chiffres sont remplacés dans la "Liste services activités") et que je valide avec "CTRL"+"MAJ"+"ENTREE", le champ reste vide?
As tu une idée ?

[geogeo70]

Bonjour,

je viens d'essayer avec des valeurs textes différentes et ça fonctionne. As-tu bien les mêmes références que sur l'exemple : les noms de services en E3:E6 ? la première activité en A8 ? Sinon il faut changer les références.
On pourrait aussi plutôt nommer les zones comme tu as fait pour "Criteres".
Il faut plutôt écrire que copier la formule pour éviter les risques de changement de référence (sans taper les accolades!!) puis "CTRL"+"MAJ"+"ENTREE"


ps: en essayant je viens de voir une erreur d'index dans ma formule, il faut ajouter -2 à la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(INDEX('Liste services activités'!$A$3:$A$29;PETITE.VALEUR(SI('Liste services activités'!$B$3:$B$29='feuille pointage'!Criteres;LIGNE('Liste services activités'!$B$3:$B$29);"");LIGNE()-7)-2);"")

Je n'avais pas bien contrôlé les données résultantes ...

essai feuille pointage2.xlsx

geogeo

[Curlita]

Bonjour Gegeo70,

Oui mon fichier est fait exactement pareil, j'ai juste remplacé le nom des services par les lettres, et les activités par des chiffres.
Par contre, j'avais copié collé la formule effectivement.
J'ai donc recommencé en saisissant la formule corrigée que tu as donnée, sans succès...
Autrement tant pis, la macro donnée par Parmi fonctionne, je vais rester dessus.
Merci beaucoup!