listbox

[akramenergie]

un grand bonjour
j ai un tou petit sousi je doi récuperer des donner excel d'une feuil et les mettre dans une listbox voila je vous présente ce que ma macro doit faire
tout d'abord je selectionner un certin nombre de cellule suivant un critaire bien préci et a prés récuperer ces index (le nom et le mois) voila
voila la partie qui traite ce problem :

_________________________________________________________________
If ars = "Sur-Charge" Then

For Each cel1 In Sheets("SOMMEPROD").Range("B2😀I14")
If cel1 > 1.2 Then
With Sheets("Feuil2")
Derlig2 = .[A65000].End(xlUp).Row + 1
.Cells(Derlig2, 1).Value = Cells(1, cel1.Column).Value
.Cells(Derlig2, 1).Offset(0, 1).Value = Cells(cel1.Row, 1).Value
.Cells(Derlig2, 1).Offset(0, 2).Value = cel1.Value
End With
End If
Next cel1

_________________________________________________________________
le vari problem je sais pa comment afficher ces troi collone dans une listbox

qlq 1 peut m'aider svp

 

[gilbert_RGI]

Re : listbox

un grand bonjour
j ai un tou petit sousi je doi récuperer des donner excel d'une feuil et les mettre dans une listbox voila je vous présente ce que ma macro doit faire
tout d'abord je selectionner un certin nombre de cellule suivant un critaire bien préci et a prés récuperer ces index (le nom et le mois) voila
voila la partie qui traite ce problem :

_________________________________________________________________
If ars = "Sur-Charge" Then

For Each cel1 In Sheets("SOMMEPROD").Range("B2😀I14")
If cel1 > 1.2 Then
With Sheets("Feuil2")
Derlig2 = .[A65000].End(xlUp).Row + 1
.Cells(Derlig2, 1).Value = Cells(1, cel1.Column).Value
.Cells(Derlig2, 1).Offset(0, 1).Value = Cells(cel1.Row, 1).Value
.Cells(Derlig2, 1).Offset(0, 2).Value = cel1.Value
End With
End If
Next cel1

_________________________________________________________________
le vari problem je sais pa comment afficher ces troi collone dans une listbox

qlq 1 peut m'aider svp

Bonjour

Pour cela nommer la plage des données et mettre le nom dans la propriété
listfillrange de la listbox mettre aussi le nombre de colonnes à 3 dans la propriété columncount

salutations

RGI

 

[justine]

Re : listbox

bonsoir le forum, akramenergie
tout d'abord, je tiens a te dire que quand une personne trouve une solution pour ton pb de supprimer une feuille, la moindre des choses est de remercier la personne.
pour ton nouveau pb, essaie cette solution. je ne l'ai pas tester, je le fais sur le vif.

with listbox1
.clear
.columncount=3
end with
x=0


For Each cel1 In Sheets("SOMMEPROD").Range("B2😀I14")
If cel1 > 1.2 Then
With Sheets("Feuil2")
Derlig2 = .[A65000].End(xlUp).Row + 1
.Cells(Derlig2, 1).Value = Cells(1, cel1.Column).Value
listbox1.additem Cells(1, cel1.Column).Value
.Cells(Derlig2, 1).Offset(0, 1).Value = Cells(cel1.Row, 1).Value
listbox1.list(x,1)=cells(cel1.row,1).value
.Cells(Derlig2, 1).Offset(0, 2).Value = cel1.Value
listbox1.list(x,2)=cel1.Value
End With
x=x+1
End If
Next cel1

 

[akramenergie]

Re : listbox

tout d'abord je vous remerci de votre interer que vous porter a mes problem
et on ce qui concerne la derniere fois pour la supresion d'une feuil je suis vraiment navré je lé pas fait exprer dsl c t just un manque de concentration de ma par .
dsl une autre fois et je te remerci