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
JB
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 wrote:
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
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 <Xav...@discussions.microsoft.com> wrote:
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)
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 wrote:
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
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
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
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 <Xav...@discussions.microsoft.com> wrote:
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)
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
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
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
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
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 <Xav...@discussions.microsoft.com> wrote:
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)
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