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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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 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
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
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
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
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
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
On 18 oct, 18:40, IMER09 <t...@discussions.microso.com> wrote:
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
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
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
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
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 -
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
On 18 oct, 19:09, IMER09 <t...@discussions.microso.com> wrote:
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 -
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
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
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
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
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
On 18 oct, 18:40, IMER09 <t...@discussions.microso.com> wrote:
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
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
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
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
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 -
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
On 18 oct, 19:09, IMER09 <t...@discussions.microso.com> wrote:
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 -
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
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 -