Afficher dans Listbox et coller dans cellules

[papy 73 ans]

Bonjour à vous tous,
Je sollicite votre aide car je e m'en sort pas avec le Listbox
En espérant que le fichier joint vous aidera à comprendre ce que je veux faire
Merci à vous

 

[BOISGONTIER]

Bonjour,

Cf PJ

JB

 

[sousou]

Bonjour
Voici un exemple de ce que tu peux faire.
Pour cela j'ai ajouté un nom dans le gestionnaire de nom(à nettoyer??...)
Ce nom " tablereport" va te permettre d'adresser les colonnes et les cellules associées
J'ai laissé ces infos dans la feuille deux, mais tu peux les positionner dans une autre feuille en nommant la plage
Cette solution favorise les modifications des zones à remplir

 

[Lone-wolf]

Bonjour papy , Jacques

ton fichier en retour. Et c'étaient les cellules A15 à D15 et non 14, sacré coquin .

Edit: bonjour sousou .

 

[papy 73 ans]

Bonsoir chers amis,
Un grand merci pour vos solution que je vais analyser et surtout essayer de comprendre
M. BOISGONTIER super réactivité, je ne m'attendais pas à une réponse aussi rapide
Je regarderai votre travail à chacun la semaine prochaine car j'ai rdv à l'hosto à 18h30
Je tiens tout particulièrement à vous remercier pour votre générosité de cœur, votre humilité évidente et pour l’aide efficace plus qu'appréciée que vous m’avez apporté

 

[papy 73 ans]

Bonjour à vous
Une demande et quatre fichier en retour c'est top
M. Boigontier, j'ai un petit os aussi je remet le fichier
M. Lone-wolf, sousou, pas de problème

Question subsidiaire dans l'usf peut-on afficher seulement les colonnes Nom et Prénom et supprimer le scrollbar horizontal
en vous remerciant

 

[Lone-wolf]

Bonjour papy, le Forum

J'ai repris le fichier que j'avais modifié.

 

[papy 73 ans]

Oui ton fichier fonctionne très bien, je t'en remercie
Par contre je ne comprend pas pourquoi le fichier de BOIGONTIER bug ici :
Cells(15, "C") = ListBox1.Column(12) 'CP COL 12

 

[Lone-wolf]

Re

Chez moi aussi ça bug, c'est ces lignes qui causent problème.

x = x + f.Columns(k).Width * 1#
temp = temp & f.Columns(k).Width * 1# & ";"
Next
temp = Left(temp, Len(temp) - 1)
Me.ListBox1.ColumnCount = UBound(colVisu) + 1
Me.ListBox1.ColumnWidths = temp

 

[papy 73 ans]

Que me faut-il faire stp

 

[Lone-wolf]

Re,

Tu veux utiliser quel fichier? Si c'est celui de JB, moi je ne peux rien faire. Ou peut-être comme ceci

.Cells(15, "C") = ListBox1.List(ListBox1.ListIndex, 12)

 

[BOISGONTIER]

Bonjour,

cf PJ

JB

 

[Lone-wolf]

Bonjour Jacques

 

[papy 73 ans]

Bonjour M. Boigontier
Un petit problème et l'ange arrive.
Avec tous mes remerciements à chacun de vous
Une demande 4 suggestions en réponse, vraiment génial.