Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count - 1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Et tu as pensé à tes formats de cellules ??????????
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Et tu as pensé à tes formats de cellules ??????????
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
#wnwaiJ3KHA.4332@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:O5VHFTJ3KHA.5880@TK2MSFTNGP02.phx.gbl...
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Et tu as pensé à tes formats de cellules ??????????
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Et tu as pensé à tes formats de cellules ??????????
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Et tu as pensé à tes formats de cellules ??????????
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
#wnwaiJ3KHA.4332@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:O5VHFTJ3KHA.5880@TK2MSFTNGP02.phx.gbl...
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Et tu as pensé à tes formats de cellules ??????????
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal)
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal)
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal)
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
uYuV$Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" a écrit dans le message de
news:Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
uYuV$6J3KHA.3580@TK2MSFTNGP05.phx.gbl...
Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u0PqqlJ3KHA.348@TK2MSFTNGP04.phx.gbl...
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
#wnwaiJ3KHA.4332@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:O5VHFTJ3KHA.5880@TK2MSFTNGP02.phx.gbl...
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
uYuV$Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" a écrit dans le message de
news:Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
prévoir un petit temps de réaction...
si la liste est triée par CP
la boucle peut etre accéleré en se placant dierctement sur la premiere
instance du CP via un Find
et en quittant la boucle dès que le CP lu est > au CP recherché
Bonsour®Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal)
et bhéée... au niveau du code du Userform :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("feuil1").Range("B2").Value = TextBox1.Value
Me.ComboBox1.Clear
CP = Me.TextBox1.Value
x = 6
While Not IsEmpty(Sheets("feuil1").Cells(x, 1))
If Sheets("feuil1").Cells(x, 2).Text = CP Then Me.ComboBox1.AddItem
(Sheets("feuil1").Cells(x, 1).Value)
x = x + 1
Wend
End Sub
prévoir un petit temps de réaction...
si la liste est triée par CP
la boucle peut etre accéleré en se placant dierctement sur la premiere
instance du CP via un Find
et en quittant la boucle dès que le CP lu est > au CP recherché
prévoir un petit temps de réaction...
si la liste est triée par CP
la boucle peut etre accéleré en se placant dierctement sur la premiere
instance du CP via un Find
et en quittant la boucle dès que le CP lu est > au CP recherché
Bonsour®
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal)
et bhéée... au niveau du code du Userform :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("feuil1").Range("B2").Value = TextBox1.Value
Me.ComboBox1.Clear
CP = Me.TextBox1.Value
x = 6
While Not IsEmpty(Sheets("feuil1").Cells(x, 1))
If Sheets("feuil1").Cells(x, 2).Text = CP Then Me.ComboBox1.AddItem
(Sheets("feuil1").Cells(x, 1).Value)
x = x + 1
Wend
End Sub
prévoir un petit temps de réaction...
si la liste est triée par CP
la boucle peut etre accéleré en se placant dierctement sur la premiere
instance du CP via un Find
et en quittant la boucle dès que le CP lu est > au CP recherché
prévoir un petit temps de réaction...
si la liste est triée par CP
la boucle peut etre accéleré en se placant dierctement sur la premiere
instance du CP via un Find
et en quittant la boucle dès que le CP lu est > au CP recherché
Bonsour®Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire (saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal)
et bhéée... au niveau du code du Userform :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("feuil1").Range("B2").Value = TextBox1.Value
Me.ComboBox1.Clear
CP = Me.TextBox1.Value
x = 6
While Not IsEmpty(Sheets("feuil1").Cells(x, 1))
If Sheets("feuil1").Cells(x, 2).Text = CP Then Me.ComboBox1.AddItem
(Sheets("feuil1").Cells(x, 1).Value)
x = x + 1
Wend
End Sub
prévoir un petit temps de réaction...
si la liste est triée par CP
la boucle peut etre accéleré en se placant dierctement sur la premiere
instance du CP via un Find
et en quittant la boucle dès que le CP lu est > au CP recherché
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
uYuV$Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" a écrit dans le message de
news:Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
uYuV$6J3KHA.3580@TK2MSFTNGP05.phx.gbl...
Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u0PqqlJ3KHA.348@TK2MSFTNGP04.phx.gbl...
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
#wnwaiJ3KHA.4332@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:O5VHFTJ3KHA.5880@TK2MSFTNGP02.phx.gbl...
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
uYuV$Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" a écrit dans le message de
news:Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
uYuV$Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" a écrit dans le message de
news:Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
uYuV$6J3KHA.3580@TK2MSFTNGP05.phx.gbl...
Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:u0PqqlJ3KHA.348@TK2MSFTNGP04.phx.gbl...
Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
#wnwaiJ3KHA.4332@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:O5VHFTJ3KHA.5880@TK2MSFTNGP02.phx.gbl...
Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
unGly$I3KHA.4336@TK2MSFTNGP04.phx.gbl...
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel
Désolé, la macro devrait se lire comme suite :
'---------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
Set Rg = .Range("A5:B" & .Range("A65536").End(xlUp).Row)
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Rg.Parent.Range("B1:B2"), _
CopyToRange:Þst, Unique:úlse
End With
.ShowAllData
End With
Set Dest = Nothing
Application.ScreenUpdating = True
End Sub
'---------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
uYuV$Et tu as pensé à tes formats de cellules ??????????
Cela a fait partie de mes vérifications.
La colonne "B" est en spécial "code postal".
La colonne "A" en texte.
Par ailleurs,
1°) j'ai enregistré ton fichier
2°) je l'ai dézzipé
3°) j'ai observé que tu avais réussi à faire fonctionner le filtre
J'ai donc, sur ton fichier, juste fait : "Données/Filtrer/afficher tout"
et
relancé la macro "ListeCommunes" sans rien toucher à quoique ce soit
d'autre
: cela ne fonctionne pas.
Aurais-je le mauvais oil ?
Si toi tu l'as fait fonctionner pourquoi je n'y arrive pas ? J'en perds
mon
latin.
Michel
"michdenis" a écrit dans le message de
news:Et tu as pensé à tes formats de cellules ??????????
http://www.cijoint.fr/cjlink.php?file=cj201004/cijFosxN5W.zip
"Péhemme" a écrit dans le message de groupe de discussion :
#
Bonjour Denis,
Merci de te pencher sur mon problème.
J'ai fait un copier/coller de ta proposition, mais j'obtiens le même
résultat, c'est-à-dire que le filtre ne fonctionne pas.
Le format des codes (code postal) ou l'ampleur de la base jouent-ils un
rôle
?
Michel
"michdenis" a écrit dans le message de
news:Bonjour,
Attention, ta plage de critère et ta plage de données (colonne B)
doivent avoir le même format.
voici la macro :
'--------------------------------------
Sub ListeCommunes()
Dim Dest As Range
Dim Rg As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Feuil1
Set Rg = .Range("A5:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("B1:B2"), CopyToRange:Þst,
Unique:úlse
End With
Set Dest = Nothing
End Sub
'--------------------------------------
"Péhemme" a écrit dans le message de groupe de discussion :
unGly$
Bonjour à Tous,
Je deviens chèvre... à double titre.
J'essaie de me lancer dans quelque chose que je ne sais pas faire
(saisir
un
numéro de code postal dans une textbox et obtenir dans une combobox la
liste
des communes portant ce code postal) mais en amont, je découvre que je
ne
sais même plus utiliser les filtres élaborés...
Dans la macro qui suit, la totalité de la base se recopie sur la
destination
au lieu de n'obtenir que la liste issue du filtre en "B1:B2".
La base est en "A6:B39183"
Pour tout dire, même à la main le filtre ne s'exécute pas (?)
L'un d'entre vous pourrait-il avoir la gentillesse de me dire pourquoi
mon
filtre ne fonctionne pas.
Sub ListeCommunes()
Dim R As Long
Dim Dest As Range
Set Dest = Worksheets("Feuil2").Range("C2")
With Sheets("Feuil1")
R = .Range("A65536").End(xlUp).Row
.Range("A6:B" & R).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B2"), Unique:úlse
.Range("_FilterDatabase").Resize(.Range("_FilterDatabase") _
.Rows.Count -
1).Offset(1).SpecialCells(xlCellTypeVisible).Copy
Dest
End With
'Sheets("Feuil1").ShowAllData
Set Dest = Nothing
End Sub
A tout hasard, j'ai mis ce fichier sur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201004/cij2uUUsZU.xls
Merci d'avance de votre aide
Michel