Discussion :

[Qatari]

Bonjour,

Les utilisateurs m'ont permis d'ecrire un code qui renvoi la selection d'une listbox vers un tableau Excel. Cependant il faudrait que j'initialise ma colonne de destination j'ai tenter quelquechose (vous allez rire... on voit le niveau du programmeur que je suis...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
Worksheets("Inlet").Cells(u, 1).Select
Selection.ClearContents
 
For i = 1 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
    u = u + 1
    Worksheets("Inlet").Cells(u, 1) = ListBox1.List(i)
    End If
Next
 
End Sub

Donc (evidemment) les deux premiere lignes du code ne repondent pas mon attente sinon la suite du code fait ce qu on lui demande hormis un petit bug sur la ligne : Listbox1.Selected(i)=True Then

Voici le message :
"Listbox1.Selected(i)= <Could not get the Selected property. Invalid argument"

[Qatari]

En fin de compte j ai modifier mes deux premieres lignes de la maniere suivante et c ok :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Inlet").Range("A1:A468").Select
Selection.ClearContents

Par contre j'ai toujours un bug sur la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Inlet").Cells(u, 1) = ListBox1.List(i)

Je sais qu on est dimanche matin... mais si quelqun passe ne pas hesiter a proposer une solution

Merci

[alsimbad]

compte tenu qu'au moment ou tu fais ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Inlet").Cells(u, 1).Select
Selection.ClearContents

ton u n'est poas encore incrementé, il est donc = a 0 donc il n'efface rien, voire il se met en erreur
d'une part tu peux simplifier cette ligne en supprimant le select

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Inlet").Cells(u, 1).ClearContents

d'autre part tu peux la mettre dans ta boucle pour que le u s'incremente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For i = 1 To ListBox1.ListCount
Worksheets("Inlet").Cells(u, 1).ClearContents

mais comme tu réécris sur la meme cellule la valeur du listbox, cela n'a pas beaucoup d'interet, tu peux donc enlever cette ligne, et ta macro marchera pareil.
en fait il faut que tu determine et que tu efface la zone entiere avant de faire ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Inlet").range ("a1:a" & listbox.countClearContents)

.

[Qatari]

Par chance je n'ai pas d'erreur malgre que mon u ne soit pas incrementer, mais je vais penser a le modifer avant d'avoir un bug plus tard...

Merci et t'aurais pas une petite idee meme si sa resoud pas tt mon probleme pr le deuxieme bug ?

@pluch'