[VBA-E] Remise a zero d'une plage de cellule

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:

---

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"

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

Code:

---

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

---

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

Code:

---

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

compte tenu qu'au moment ou tu fais ça

Code:

---

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:

---

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

---

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

Code:

---

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:

---

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

---

.

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'