Listbox Cascade récupération colonne puis ligne

[GHISLAIN]

Bonjour le forum,

voila j'essai de mettre en place des listbox en cascades . lLa premiere alimentée par les dates de la colonne A , et par cascade , je souhaites récupérer les valeurs en lignes de la cellule choisie.
En sélectionnant une date dans de la colonne A je récupérer des données qui sont en ligne mais j'ai une erreur d’exécution 5
je pense que le probleme est que j'utilise des cellules fusionnées

ci joint un extrait de mon fichier (NB le format date de la colonne A ne pouvant être modifié , puisque utilisé dans le fichier final)

merci les exceliens , liennes de votre aide et suggestions apportées


Amicalement

GHISLAIN

 

[Kim75]

Bonsoir GHISLAIN,

Le choix des objets de l'userform n'est pas clair, si on clique dans la ListBox31, on ne choisit qu'une seule date, et si l'on choisit une seule date, je ne vois pas pourquoi mettre des ListBox 32, 33 et 34 puisqu'il n'y aura dans chacune d'elle qu'une seule ligne à afficher, celle du jour choisit et de la plage horaire en question, je crois qu'il faudrait repenser les choses en fonction de ce qu'on cherches vraiment à afficher.

Cordialement, Kim.

 

[GHISLAIN]

Bonjour Kim,
je pense que tu as mal lu , ci joint un fichier fonctionnel de l'attendu , mais que je ne parvient pas mettre en application sur mon fichier finale .
Merci
Amicalement
Ghislain

 

[GHISLAIN]

Re,
il me semble aprés essai , que lorsque je dé fusionne les cellules , et passe les cellules au format texte :
Dim c As Integer
'La variable x va successivement prendre les valeurs 3, 6 et 9
For c = 5 To 97 Step 3
'Ecrit dans les cellules A3, A6 et A9
If Cells(c, 1) <> "" Then
Cells(c, 14) = Format(Cells(c, 1), "dddd d mmmm yyyy")
Cells(c, 1) = "@"
Cells(c, 1) = Cells(c, 14)
End If

Next c
cela fonctionne , me semble t il , mais c'est tiré par les cheveux

 

[Kim75]

Hello Ghislain

Tiens ton tableau avec une autre méthode, plus simple et surtout fonctionnel 🙂
N'oublie pas de mettre le sujet en Résolu si la réponse te convient

Cordialement, Kim.

 

[GHISLAIN]

Bonjour Kim,
ta proposition répond parfaitement a mes attentes , c'est franchement top et je vois que tu as complément re-pensé mon sujet , jolie travail .

Merci de ton implication et de ta disponibilité

Bien amicalement

Ghislain