XL 2016 Transfert de listbox sur feuille

[Scorpio]

Salut à tous,
J'aimerais juste s'il vous plais que un membre me donne un petit coup de pouce, concernant ce code
En fait, ce code fonctionne bien, mais transfert les données dès la cellule A1
Et, je voudrais laissé la première ligne vide et transférer dés la cellule A2.
Merci beaucoup A+++


Private Sub CommandButton1_Click()
'Call SupPlage
Sheets("Feuil3").[A2].Select
Dim x As Integer, Nb_L_ListBox As Integer
With Worksheets("feuil3")
For x = 1 To Me.ListBox1.ListCount
.Cells(x, 1) = Me.ListBox1.List(x - 1, 0) 'Colonne A
.Cells(x, 3) = Me.ListBox1.List(x - 1, 1) 'Colonne C
.Cells(x, 6) = Me.ListBox1.List(x - 1, 2) 'Colonne F
Next x
End With
End Sub

 

[Scorpio]

Bonsoir Mr Boisgontier,
Oui, voici par ex, un classeur que j'arrive à le télécharger, parfois ca ne se télécharge pas du tous, mais, en cliquant sur le bouton, le formulaire ne s'ouvre pas.
Voilà, merci de votre aide, et bonne soirée.

 

[BOISGONTIER]

Bonsoir,

Testé avec Excel 2010 et Excel 2016 (ok)

Boisgontier

 

[ChTi160]

Bonsoir Scorpio
Bonsoir JB
Aucun problème a l'ouverture !
mais j'ai un problème quand je Double Click sur le ComboBox2
"Impossible de définir la propriété List" (problème de Choix Lol )
bonne fin de Soirée
jean marie

 

[BOISGONTIER]

Il faut d'abord choisir la colonne de recherche dans ComboBox1.

Boisgontier

 

[ChTi160]

Re
Effectivement !
Ca fonctionne beaucoup mieux lol
Merci JB
Jean marie

 

[Scorpio]

Bonjour JB
Bonjour chTi60
J'ai ouvert enfin ce classeur ci-dessus, mais il me donne ce message;
Comment faire s'il vous plaît. merci A+++

 

[ChTi160]

Bonjour Scorpio
Bonjour le Fil ,JB
Bonjour Le Forum
Peut être une Référence (manquante) dans la Rubrique "Outils" de VBE ,puis "Références"
Tu ouvres le fichier puis faire Alt+F11 puis Alt+O et sélectionner Références . a voir
Chez moi pas de problème pour utiliser le Fichier de JB
jean marie

 

[Scorpio]

Salut ChTi160
C'est qu'il y en a des références, vas savoir la quel ???
Merci du conseil, A+++

 

[ChTi160]

Re
Scorpio
Non ! si c'est un problème de référence manquante ,ce sera indiqué .
Tu lances le Userform et ensuite tu vas voir , si c'est du a une référence Manquante "il sera indique "MANQUANTE ......"(je ne suis pas sur que cela vient de la )
question :c'est a l'ouverture ou lors d'une autre action sur le Userform ?
car on voit les données affichées sur ton Image.
à voir donc.
jean marie

 

[Scorpio]

Re ChTi160,
Le classeur s'ouvre, OK.
Lorsque je clic sur le bouton pour lancer le formulaire voilà ce que je trouve comme message:

 

[ChTi160]

Re
je ne vois pas désolé!
Joins le fichier que tu as telecharge pour test
Jean marie

 

[Scorpio]

Re,
Merci d'avoir bien voulu passer un peu de temps sur ce souci.
Voici le fichier, merci à toi,

 

[ChTi160]

Re
Eh bien !
chez moi pas de message lors de l'ouverture du fichier ???????
et ça ne règle rien .
le message d'erreur que tu as parle de Propriété ColumnWidths ......
donc je pense que le problème vient de cette partie du Code

   x = x + f.Columns(i).Width * 0.8
    temp = temp & f.Columns(i).Width * 0.8 & ";"
  Next
  Me.ListBox1.ColumnWidths = temp

Peut être un problème de Point ou Virgule ????
jean marie

 

[Scorpio]

Re,
J'ai reproduit le tout sur un classeur ouvert depuis mon PC, avec tous pareil, et cela fait exactement le même message.
A+++