Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Oups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Oups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un T
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message
de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 5AA447A1-F9E5-44C6-85B5-5E5318D6BA5D@microsoft.com...
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un T
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message
de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
Merci
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 5AA447A1-F9E5-44C6-85B5-5E5318D6BA5D@microsoft.com...
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un T
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le
message
de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3 col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3 col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 68D02042-6DA1-4C01-A920-7DA81669469B@microsoft.com...
Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
Merci
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 5AA447A1-F9E5-44C6-85B5-5E5318D6BA5D@microsoft.com...
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un T
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le
message
de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3 col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Ok , c'est beaucoup plus simple comme cela. Mais il me reste un dernier
probléme les en tetes de colonnes reste vide, lors d'une manip, que je
n'arrive m^me plus a reproduire il apparaissé Colonne A Colonne B... or je
voudrais que les en tete de colonne soit tous simplement les en tete de ma
feuillle , la ou se touve le filtre automatique (sans les symbole du
filtre
bien sur)
Merci (a probleme bien posé, réponse simple, je vais devoir méditer un peu
plus pour la prochaine fois!)Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3
col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col
B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui
est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me
suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message
de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat
d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Ok , c'est beaucoup plus simple comme cela. Mais il me reste un dernier
probléme les en tetes de colonnes reste vide, lors d'une manip, que je
n'arrive m^me plus a reproduire il apparaissé Colonne A Colonne B... or je
voudrais que les en tete de colonne soit tous simplement les en tete de ma
feuillle , la ou se touve le filtre automatique (sans les symbole du
filtre
bien sur)
Merci (a probleme bien posé, réponse simple, je vais devoir méditer un peu
plus pour la prochaine fois!)
Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3
col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col
B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 68D02042-6DA1-4C01-A920-7DA81669469B@microsoft.com...
Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
Merci
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui
est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me
suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message
de
news: 5AA447A1-F9E5-44C6-85B5-5E5318D6BA5D@microsoft.com...
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un T
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le
message
de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat
d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Ok , c'est beaucoup plus simple comme cela. Mais il me reste un dernier
probléme les en tetes de colonnes reste vide, lors d'une manip, que je
n'arrive m^me plus a reproduire il apparaissé Colonne A Colonne B... or je
voudrais que les en tete de colonne soit tous simplement les en tete de ma
feuillle , la ou se touve le filtre automatique (sans les symbole du
filtre
bien sur)
Merci (a probleme bien posé, réponse simple, je vais devoir méditer un peu
plus pour la prochaine fois!)Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3
col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col
B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui
est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me
suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message
de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat
d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonne méditation, car là je ne pige pas.
seul truc qui aurai pu t'échapper....
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
Youky
"StDonat" a écrit dans le message de
news:Ok , c'est beaucoup plus simple comme cela. Mais il me reste un dernier
probléme les en tetes de colonnes reste vide, lors d'une manip, que je
n'arrive m^me plus a reproduire il apparaissé Colonne A Colonne B... or je
voudrais que les en tete de colonne soit tous simplement les en tete de ma
feuillle , la ou se touve le filtre automatique (sans les symbole du
filtre
bien sur)
Merci (a probleme bien posé, réponse simple, je vais devoir méditer un peu
plus pour la prochaine fois!)Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3
col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col
B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui
est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me
suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message
de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat
d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonne méditation, car là je ne pige pas.
seul truc qui aurai pu t'échapper....
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
Youky
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 78DB39B4-F5CF-47A7-B703-AC212AAE5B38@microsoft.com...
Ok , c'est beaucoup plus simple comme cela. Mais il me reste un dernier
probléme les en tetes de colonnes reste vide, lors d'une manip, que je
n'arrive m^me plus a reproduire il apparaissé Colonne A Colonne B... or je
voudrais que les en tete de colonne soit tous simplement les en tete de ma
feuillle , la ou se touve le filtre automatique (sans les symbole du
filtre
bien sur)
Merci (a probleme bien posé, réponse simple, je vais devoir méditer un peu
plus pour la prochaine fois!)
Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3
col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col
B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message de
news: 68D02042-6DA1-4C01-A920-7DA81669469B@microsoft.com...
Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
Merci
Faut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui
est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me
suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le message
de
news: 5AA447A1-F9E5-44C6-85B5-5E5318D6BA5D@microsoft.com...
Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un T
Oups !! fallait lire "Lac de Champoz "
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de news:
43b3bbe6$0$6689$8fcfb975@news.wanadoo.fr...
Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" <StDonat@discussions.microsoft.com> a écrit dans le
message
de
news: 6BA1B196-1529-454C-8413-0AA8EA2EA437@microsoft.com...
Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat
d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous
Bonne méditation, car là je ne pige pas.
seul truc qui aurai pu t'échapper....
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
Youky
"StDonat" a écrit dans le message de
news:Ok , c'est beaucoup plus simple comme cela. Mais il me reste un dernier
probléme les en tetes de colonnes reste vide, lors d'une manip, que je
n'arrive m^me plus a reproduire il apparaissé Colonne A Colonne B... or je
voudrais que les en tete de colonne soit tous simplement les en tete de ma
feuillle , la ou se touve le filtre automatique (sans les symbole du
filtre
bien sur)
Merci (a probleme bien posé, réponse simple, je vais devoir méditer un peu
plus pour la prochaine fois!)Je pense que ceci va t'aider
j'ai mis en ligne For ....2 au lieu de 1 pour éviter les en-tetes
et rajouté :comment mettre les valeurs sur plusieurs colonnes (ici 3
col)
Fait les modifs en fonction de ton attente...Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 2 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
ListBox1.Column(1, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 2) '2=col
B
ListBox1.Column(2, ListBox1.ListCount - 1) = Feuil1.Cells(lig, 3)
End If
Next
End Sub
"StDonat" a écrit dans le message de
news:Monchenu et son foir Gras..
Treffle de plaisanterie, mon probléme n'est pas entierement résolu!
Car les 2 solutions proposées ne conviennent pas pour des listbox a
plusieurs colonnes. Lorsque j'utilise a la place de "additem" les
fonctions
"list" ou "column" et une variable tableau, je rencontre alors un
probléme
avec les en tete de colonne!!
Avez- vous une solutions?
MerciFaut vite que je mette mes lunettes, tu as milles fois raison de me
corriger, je connais trés bien St Donat et le village de Monchenu qui
est
à
une dizaine de kms du lac(mes beaux parents y ont une maison et me
suis
marié dans ce village.
Bonne réussite dans ton fichier ainsi que de Bonnes Fêtes en cette fin
d'année.
Youky
"StDonat" a écrit dans le message
de
news:Merci a tous!
YOUKY le lac c'est Champos avec un s et moi c'est avec un TOups !! fallait lire "Lac de Champoz "
"Youky" a écrit dans le message de news:
43b3bbe6$0$6689$Salut St Donas
le Lac de Chamoz n'est pas trop gelé
Youky
Private Sub CommandButton1_Click()
ListBox1.Clear
For lig = 1 To Feuil1.[A65000].End(xlUp).Row
If Feuil1.Rows(lig).Hidden = False Then
ListBox1.AddItem Feuil1.Cells(lig, 1)
End If
Next
End Sub
"StDonat" a écrit dans le
message
de
news:Bonjour a tous,
Comment afficher dans une listBox d'un userform, le resultat
d'un
filtre
automatique, filtre qui aurait etait appliquer par un bouton du
meme
userform?
Merci pour toutes les réponses et bonne fetes à tous