Fonction DECALER avec ListBox

Bonjour à tous,

Je rencontre un problème que je n'arrive pas à résoudre malgré mes recherches sur le forum et internet. :cry:

Je souhaite faire apparaître sur chaque ligne dans une ListBox l'affichage de 4 colonnes.
J'utilise la fonction DECALER pour 1 seule colonne est cela fonctionne.
Comment faire pour faire apparaître les colonnes Heure, Nomm et Prenomm ?

Sachant que la finalité consiste à cliquer sur 1 ligne pour faire apparaître dans un autre UserForm les données complètes de cette ligne (si vous avez ce bout de code .......)


Merci de votre aide
Cdt

Re bonjour,

Ma discussion ayant été modifiée sans que je sache pourquoi (à priori par bbil) je remets ma dernière phrase ainsi que mon fichier joint.

Vous trouverez ci-joint un fichier qui sera plus parlant.
(fichier rar supprimé sur remarque de Philippe ==> donc ne pas tenir compte de cet item))



Cordiales salutations

Bonjour,

Citation:

---

Vous trouverez ci-joint un fichier qui sera plus parlant.

---

Pour toi certainement.
Plutôt que de joindre ton fichier (de plus en mode compressé rar alors que beaucoup ne savent décompresser que les zip) dès les premières discussions, il serait plus intéressant que tu expliques en bref l'organisation de ta feuille Colonne A xxx, colonne B etc .. et que tu affiches ton code (entre balises) ainsi tu aurais plus de chances de recevoir des réponses.
Pour ma part, je n'ouvre jamais les classeurs saufs en dernier recours.

Bonjour Philippe

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Plutôt que de joindre ton fichier (de plus en mode compressé rar alors que beaucoup ne savent décompresser que les zip)

---

J'ai bien pris note de ta première remarque. Je joins donc mon exemple compressé en zip

pour la suite, il est tard chez moi et si demain je n'ai pas de réponse je suivrais ta deuxième remarque.

Salutations

Bonjour,

Une solution avec VBA.
Un double clic sur un élément de la liste fait apparaître un autre UserForm avec les données correspondant à cette ligne.

Cordialement.

1. Ajoute le nombre de colonnes à ta formule DECALER

Code:

---

=DECALER(Feuil1!$C$2;;;NBVAL(Feuil1!$C:$C)-1;4)

---

2. Adapte la propriété ColumnCount (et éventuellement ColumnWidths) de ta ListBox pour prendre en compte 4 colonnes.

Ici exemple par code:

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize()   With Me.ListBox1 .ColumnCount = 4 .ColumnWidths = "3cm;1cm;2cm;2cm" .RowSource = "Feuil1!Test" End With End Sub

---

3. La remarque de Bill et de Philippe est à prendre avec sérieux.

Bonjour à tous et merci plus particulièrement à gFZT82 :ccool: et mercatog :ccool: qui m'ont donné chacun une méthode.

Je vais pouvoir adapter celle qui me conviendra le mieux.

Je prends note des remarques de Philippe. Quant à Bill, je ne sais pas qui il est et je n'ai pas reçu de remarque de sa part.

C'est en faisant des erreurs que l'on s'améliore ! :oops:

Meilleures salutations