Filtre + alimenter ListBox sans doublons

Le
Xavier
Bonjour à tous,

Voilà mon problème. J'ai dans la colonne A des villes qui peuvent être en
doublon, colonne B = sans importance et colonne C = pays

Je voudrais alimenter ma ListBox sans les doublons des villes après avoir
Filtré la colonne C (pays)

J'ai commencé le code comme suit :

With Worksheets("PaysVille")
.Columns("C:C").AutoFilter Field:=3, Criteria1:="France"
End With

Set r = Range("PaysVille!A1:" &
Worksheets("PaysVille").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)

For Each cell In r

après je sèche.

Merci pour votre aide.
Xavier
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
JB
Le #4226061
Bonjour,

Sub essai()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A2",
[A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
ActiveSheet.ListBox1.Clear
For Each i In mondico.items
ActiveSheet.ListBox1.AddItem i
Next
End Sub

JB


On 6 mar, 12:24, Xavier
Bonjour à tous,

Voilà mon problème. J'ai dans la colonne A des villes qui peuvent ê tre en
doublon, colonne B = sans importance et colonne C = pays

Je voudrais alimenter ma ListBox sans les doublons des villes après avo ir
Filtré la colonne C (pays)

J'ai commencé le code comme suit :

With Worksheets("PaysVille")
.Columns("C:C").AutoFilter Field:=3, Criteria1:="France"
End With

Set r = Range("PaysVille!A1:" &
Worksheets("PaysVille").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)

For Each cell In r

après je sèche.

Merci pour votre aide.
Xavier


JB
Le #4226041
Sans Filtre:

Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A2", [A65000].End(xlUp))
If c.Offset(0, 2) = "France" And Not mondico.Exists(c.Value)
Then
mondico.Add c.Value, c.Value
End If
Next c
ActiveSheet.ListBox1.Clear
For Each i In mondico.items
ActiveSheet.ListBox1.AddItem i
Next

http://cjoint.com/?dgnjftJily

JB
On 6 mar, 12:24, Xavier
Bonjour à tous,

Voilà mon problème. J'ai dans la colonne A des villes qui peuvent ê tre en
doublon, colonne B = sans importance et colonne C = pays

Je voudrais alimenter ma ListBox sans les doublons des villes après avo ir
Filtré la colonne C (pays)

J'ai commencé le code comme suit :

With Worksheets("PaysVille")
.Columns("C:C").AutoFilter Field:=3, Criteria1:="France"
End With

Set r = Range("PaysVille!A1:" &
Worksheets("PaysVille").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)

For Each cell In r

après je sèche.

Merci pour votre aide.
Xavier


Xavier
Le #4225711
merci pour la réponse, malheureusement ça ne marche pas

Message d'erreur : Permission denied

"JB" wrote:

Sans Filtre:

Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("A2", [A65000].End(xlUp))
If c.Offset(0, 2) = "France" And Not mondico.Exists(c.Value)
Then
mondico.Add c.Value, c.Value
End If
Next c
ActiveSheet.ListBox1.Clear
For Each i In mondico.items
ActiveSheet.ListBox1.AddItem i
Next

http://cjoint.com/?dgnjftJily

JB
On 6 mar, 12:24, Xavier
Bonjour à tous,

Voilà mon problème. J'ai dans la colonne A des villes qui peuvent être en
doublon, colonne B = sans importance et colonne C = pays

Je voudrais alimenter ma ListBox sans les doublons des villes après avoir
Filtré la colonne C (pays)

J'ai commencé le code comme suit :

With Worksheets("PaysVille")
.Columns("C:C").AutoFilter Field:=3, Criteria1:="France"
End With

Set r = Range("PaysVille!A1:" &
Worksheets("PaysVille").Range("A65536").End(xlUp).Address)
Set r = r.SpecialCells(xlCellTypeVisible)

For Each cell In r

après je sèche.

Merci pour votre aide.
Xavier







Publicité
Poster une réponse
Anonyme