Afficher dans Listbox et coller dans cellules

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 17 Mars 2018

• #2

Bonjour,

Cf PJ

JB

 

Pièces jointes

• Copie de fiche.xls

  117.5 KB · Affichages: 24
• FormFiltreListBox6ComboBoxs.xls

  221.5 KB · Affichages: 32

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Mars 2018

• #3

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

 

Pièces jointes

• fiche.xlsm

  78.9 KB · Affichages: 20

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 17 Mars 2018

• #4

Bonjour papy 🙂, Jacques 🙂

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

Edit: bonjour sousou 🙂.

 

Pièces jointes

• Fiche.xlsm

  74 KB · Affichages: 26

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 17 Mars 2018

• #5

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é

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 20 Mars 2018

• #6

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

 

Pièces jointes

• R fiche.xls

  153.5 KB · Affichages: 27

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #7

Bonjour papy, le Forum 🙂

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

 

Pièces jointes

• Fiche V2.xlsm

  73.4 KB · Affichages: 32

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 20 Mars 2018

• #8

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #9

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 20 Mars 2018

• #10

Que me faut-il faire stp

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #11

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)

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Mars 2018

• #12

Bonjour,

cf PJ

JB

 

Pièces jointes

• Copie de R fiche.xls

  133.5 KB · Affichages: 37

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #13

Bonjour Jacques 🙂

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 20 Mars 2018

• #14

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.

 

Vote positif 0 Vote négatif