combobox

Le
IMER09
Bonjour a tous

J'utilise ce qui suit pour avoir une liste ds une combobox ds un UF que
j'ouvre
avec un bouton sur la feuil1

Private Sub UserForm_Initialize()

Dim c As Range
With Sheets("LIVRAISON")
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
For Each c In Range("BA1", Range("BA65536").End(xlUp))
Me.ComboBox6.AddItem c
Next c
[BA: BA].ClearContents

Me.ComboBox6.ListIndex = -1


End Sub

cela fonctionne tres bien quand le bouton est sur la feuil1 mais je voudrais
le mettre
sur la feuil2 et la ca ne fonctionne plus
J' ai essaye avec With Sheets ("Feuil1") bla bla End With ss resultat

Merci
--
IMER09
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
IMER09
Le #4984161
Rebonjour

Je viens de trouver la solution
il suffisait de selct la feuil1
Desole pour le derangement
j'aurai mieux fait de tourner ma langue une fois de plus
Merci qd meme
--
IMER09



Bonjour a tous

J'utilise ce qui suit pour avoir une liste ds une combobox ds un UF que
j'ouvre
avec un bouton sur la feuil1

Private Sub UserForm_Initialize()

Dim c As Range
With Sheets("LIVRAISON")
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
For Each c In Range("BA1", Range("BA65536").End(xlUp))
Me.ComboBox6.AddItem c
Next c
[BA: BA].ClearContents

Me.ComboBox6.ListIndex = -1


End Sub

cela fonctionne tres bien quand le bouton est sur la feuil1 mais je voudrais
le mettre
sur la feuil2 et la ca ne fonctionne plus
J' ai essaye avec With Sheets ("Feuil1") bla bla End With ss resultat

Merci
--
IMER09


JB
Le #4984131
Bonsoir,

Sans Select:

Private Sub UserForm_Initialize()
With Sheets("bd")
.[A1:A1000].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.[c1], Unique:=True
.[C2:c100].Sort key1:=.[c2]
For Each c In Range(.[c2], .[C65000].End(xlUp))
Me.ComboBox1.AddItem c
Next c
End With
' ou Me.ComboBox1.RowSource = "BD!C2:C" & [C65000].End(xlUp).Row
End Sub

http://cjoint.com/?ksttwJgsM4

Si on ne veut pas utiliser de zone intermédiaire:

Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not MonDico.Exists(c.Value) And c.Value <> "" Then MonDico.Add
c.Value, c.Value
Next c
Me.ComboBox1.List = MonDico.items
End Sub

http://boisgontierjacques.free.fr/pages_site/formulairelistesansdoublons.ht m#Dictionnary

JB
http://boisgontierjacques.free.fr

On 18 oct, 18:40, IMER09
Bonjour a tous

J'utilise ce qui suit pour avoir une liste ds une combobox ds un UF que
j'ouvre
avec un bouton sur la feuil1

Private Sub UserForm_Initialize()

Dim c As Range
With Sheets("LIVRAISON")
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
For Each c In Range("BA1", Range("BA65536").End(xlUp))
Me.ComboBox6.AddItem c
Next c
[BA: BA].ClearContents

Me.ComboBox6.ListIndex = -1

End Sub

cela fonctionne tres bien quand le bouton est sur la feuil1 mais je voudr ais
le mettre
sur la feuil2 et la ca ne fonctionne plus
J' ai essaye avec With Sheets ("Feuil1") bla bla End With ss resultat

Merci
--
IMER09


JB
Le #4984121
Bonsoir,

Sans Select:

Private Sub UserForm_Initialize()
With Sheets("bd")
.[A1:A1000].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.[c1], Unique:=True
.[C2:c100].Sort key1:=.[c2]
For Each c In Range(.[c2], .[C65000].End(xlUp))
Me.ComboBox1.AddItem c
Next c
End With
' ou Me.ComboBox1.RowSource = "BD!C2:C" & [C65000].End(xlUp).Row
End Sub

http://cjoint.com/?ksttwJgsM4

Si on ne veut pas utiliser de zone intermédiaire:

Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not MonDico.Exists(c.Value) And c.Value <> "" Then MonDico.Add
c.Value, c.Value
Next c
Me.ComboBox1.List = MonDico.items
End Sub

http://boisgontierjacques.free.fr/pages_site/formulairelistesansdoublons.ht m#Dictionnary

JB
http://boisgontierjacques.free.fr

On 18 oct, 19:09, IMER09
Rebonjour

Je viens de trouver la solution
il suffisait de selct la feuil1
Desole pour le derangement
j'aurai mieux fait de tourner ma langue une fois de plus
Merci qd meme
--
IMER09




Bonjour a tous

J'utilise ce qui suit pour avoir une liste ds une combobox ds un UF que
j'ouvre
avec un bouton sur la feuil1

Private Sub UserForm_Initialize()

Dim c As Range
With Sheets("LIVRAISON")
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
For Each c In Range("BA1", Range("BA65536").End(xlUp))
Me.ComboBox6.AddItem c
Next c
[BA: BA].ClearContents

Me.ComboBox6.ListIndex = -1

End Sub

cela fonctionne tres bien quand le bouton est sur la feuil1 mais je vou drais
le mettre
sur la feuil2 et la ca ne fonctionne plus
J' ai essaye avec With Sheets ("Feuil1") bla bla End With ss resultat

Merci
--
IMER09- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



IMER09
Le #4984101
grd merci "JB"
--
IMER09



Bonsoir,

Sans Select:

Private Sub UserForm_Initialize()
With Sheets("bd")
.[A1:A1000].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.[c1], Unique:=True
.[C2:c100].Sort key1:=.[c2]
For Each c In Range(.[c2], .[C65000].End(xlUp))
Me.ComboBox1.AddItem c
Next c
End With
' ou Me.ComboBox1.RowSource = "BD!C2:C" & [C65000].End(xlUp).Row
End Sub

http://cjoint.com/?ksttwJgsM4

Si on ne veut pas utiliser de zone intermidiaire:

Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not MonDico.Exists(c.Value) And c.Value <> "" Then MonDico.Add
c.Value, c.Value
Next c
Me.ComboBox1.List = MonDico.items
End Sub

http://boisgontierjacques.free.fr/pages_site/formulairelistesansdoublons.htm#Dictionnary

JB
http://boisgontierjacques.free.fr

On 18 oct, 18:40, IMER09
Bonjour a tous

J'utilise ce qui suit pour avoir une liste ds une combobox ds un UF que
j'ouvre
avec un bouton sur la feuil1

Private Sub UserForm_Initialize()

Dim c As Range
With Sheets("LIVRAISON")
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
For Each c In Range("BA1", Range("BA65536").End(xlUp))
Me.ComboBox6.AddItem c
Next c
[BA: BA].ClearContents

Me.ComboBox6.ListIndex = -1

End Sub

cela fonctionne tres bien quand le bouton est sur la feuil1 mais je voudrais
le mettre
sur la feuil2 et la ca ne fonctionne plus
J' ai essaye avec With Sheets ("Feuil1") bla bla End With ss resultat

Merci
--
IMER09







JB
Le #4983931
Bonsoir,

Sans Select:

Private Sub UserForm_Initialize()
With Sheets("bd")
.[A1:A1000].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.[c1], Unique:=True
.[C2:c100].Sort key1:=.[c2]
For Each c In Range(.[c2], .[C65000].End(xlUp))
Me.ComboBox1.AddItem c
Next c
End With
' ou Me.ComboBox1.RowSource = "BD!C2:C" & [C65000].End(xlUp).Row
End Sub

http://cjoint.com/?ksttwJgsM4

Si on ne veut pas utiliser de zone intermédiaire:

Private Sub UserForm_Initialize()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range([A2], [A65000].End(xlUp))
If Not MonDico.Exists(c.Value) And c.Value <> "" Then MonDico.Add
c.Value, c.Value
Next c
Me.ComboBox1.List = MonDico.items
End Sub

http://boisgontierjacques.free.fr/pages_site/formulairelistesansdoublons.ht m#Dictionnary

JB
http://boisgontierjacques.free.fr



On 18 oct, 19:09, IMER09
Rebonjour

Je viens de trouver la solution
il suffisait de selct la feuil1
Desole pour le derangement
j'aurai mieux fait de tourner ma langue une fois de plus
Merci qd meme
--
IMER09




Bonjour a tous

J'utilise ce qui suit pour avoir une liste ds une combobox ds un UF que
j'ouvre
avec un bouton sur la feuil1

Private Sub UserForm_Initialize()

Dim c As Range
With Sheets("LIVRAISON")
Range("A1", Range("A65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
For Each c In Range("BA1", Range("BA65536").End(xlUp))
Me.ComboBox6.AddItem c
Next c
[BA: BA].ClearContents

Me.ComboBox6.ListIndex = -1

End Sub

cela fonctionne tres bien quand le bouton est sur la feuil1 mais je vou drais
le mettre
sur la feuil2 et la ca ne fonctionne plus
J' ai essaye avec With Sheets ("Feuil1") bla bla End With ss resultat

Merci
--
IMER09- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Publicité
Poster une réponse
Anonyme