Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1 ?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23G0sryx3FHA.476@TK2MSFTNGP15.phx.gbl...
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1 ?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23ZSQBWh3FHA.476@TK2MSFTNGP15.phx.gbl...
Merci beaucoup Michdenis
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OAUdmkd3FHA.3292@tk2msftngp13.phx.gbl...
Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23R7Ux$a3FHA.3876@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1 ?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" a écrit dans le message de news:
%23x%
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" a écrit dans le message de news:
%Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23x%23JPa43FHA.3888@TK2MSFTNGP10.phx.gbl...
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23buuUxy3FHA.400@TK2MSFTNGP09.phx.gbl...
Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23G0sryx3FHA.476@TK2MSFTNGP15.phx.gbl...
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23ZSQBWh3FHA.476@TK2MSFTNGP15.phx.gbl...
Merci beaucoup Michdenis
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OAUdmkd3FHA.3292@tk2msftngp13.phx.gbl...
Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23R7Ux$a3FHA.3876@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" a écrit dans le message de news:
%23x%
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" a écrit dans le message de news:
%Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" a écrit dans le message de news:
%23x%
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" a écrit dans le message de news:
%Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23x%23JPa43FHA.3888@TK2MSFTNGP10.phx.gbl...
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23buuUxy3FHA.400@TK2MSFTNGP09.phx.gbl...
Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23G0sryx3FHA.476@TK2MSFTNGP15.phx.gbl...
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23ZSQBWh3FHA.476@TK2MSFTNGP15.phx.gbl...
Merci beaucoup Michdenis
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OAUdmkd3FHA.3292@tk2msftngp13.phx.gbl...
Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23R7Ux$a3FHA.3876@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" a écrit dans le message de news:
%23x%
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" a écrit dans le message de news:
%Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" a écrit dans le message de news:
%23x%
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" a écrit dans le message de news:
%Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23x%23JPa43FHA.3888@TK2MSFTNGP10.phx.gbl...
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23buuUxy3FHA.400@TK2MSFTNGP09.phx.gbl...
Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23G0sryx3FHA.476@TK2MSFTNGP15.phx.gbl...
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23ZSQBWh3FHA.476@TK2MSFTNGP15.phx.gbl...
Merci beaucoup Michdenis
Archibald
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OAUdmkd3FHA.3292@tk2msftngp13.phx.gbl...
Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" <archibald@neuf.fr> a écrit dans le message de news:
%23R7Ux$a3FHA.3876@TK2MSFTNGP09.phx.gbl...
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
Bonjour Archibald,
| Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Oui, la commande : barre des menus / données / filtre / filtre élaboré.
Sauf que si tu n'utilises pas une procédure en VBA, tu devras constamment
refaire la manipulation à chaque modification de la valeur
saisi dans la cellule. En conséquence, la tâche serait à ce point lourd
qu'elle serait non opérationnelle.
Salutations!
"Archibald" a écrit dans le message de news:
%23x%
Michdenis,
Je te remercie infiniment pour ton aide et tes explications.
C'est pour un gros outil excel qui va être utilisé par plusieurs personnes
dans ma boîte, et je vais passer pour un dieu !
Je t'enverrai un post dans la journée ou demain pour te confirmer que cela
marche.
Je vais me plonger dans le VBA car j'ai beaucoup à apprendre, je le sens.
Jusqu'ici j'avais développé plein d'outils sans VBA mais là je séchais.
Aurait-il été possible de faire cela sans VBA, avec un filtre élaboré ?
Cordialement,
Archibald
"michdenis" a écrit dans le message de news:
%Bonjour Archibald,
Le principe derrière mon exemple est l'exploitation d'un filtre élaboré
(barre des menus / données / filtre / filtre élaboré.
Cependant, au lieu d'appeler cette commande via le menu, la macro est
actionnée par le changement de valeur de la cellule B2 de la
feuille. Le code de cette macro est un exemple de filtre élaboré.
A ) La plage de cellules sur lequel le filtre élaboré doit prendre place
doit OBLIGATOIREMENT avoir des étiquettes de colonnes.
B ) D1:D2 représente la zone de critère du filtre élaboré. J'aurais pu à
la fin de la macro faire disparaître le contenu de ces
cellules mais je voulais que tu vois leur contenu au moment où s'exécute
le filtre élaboré.
C ) Dans ce cas précis, D1 est essentielle car il renseigne excel sur
quelle colonne le critère de la cellue D2 doit s'appliquer.
Cependant, si j'avais utiliser une formule, il aurait fallu soit laisser
D1 totalement vide ou lui donner un nom que l'on ne
retrouve pas dans la ligne d'étiquettes de ta plage de données source.
Pour suivre ton exemple :
Suppose que tes données, ta zone de critère, sont dans la feuille
"cities", et que tu veuilles modifier ta zone de liste de
validation dans la cellule H1 d'un autre feuille ( "Feuil1") simplement
en
entrant une donnée dans la cellule B2 de la feuil1
Voici comment modifier le code de l'exemple donné :
DAns le module feuille "Feuil1", tu copies ceci :
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
Application.EnableEvents = False
Lister
Application.EnableEvents = True
End If
End Sub
'-------------------------
Et dans un module Standard, copie cela :
'-----------------------------------
Sub Lister()
Dim Ligne As Long
With Worksheets("Cities")
.Range("D1") = .Range("A1")
.Range("D2") = "*" & Worksheets("Feuil1").Range("B2") & "*"
.Range("CITY_List").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("D1:D2"), CopyToRange:=.Range("F1"), _
Unique:úlse
Ligne = .Range("F65536").End(xlUp).Row
If Ligne < 2 Then Ligne = 2
.Range("F2:F" & Ligne).Name = "MaListe"
End With
With Worksheets("Feuil1")
.Range("H1").Validation.Delete
.Range("H1").Validation.Add xlValidateList, , _
, "=MaListe"
End With
End Sub
'-----------------------------------
Salutations!
"Archibald" a écrit dans le message de news:
%
Bonjour Michdenis,
Je débute complètement en VBA et j'ai beaucoup de mal à adapter cette
macro,
qui convient très bien pour ce que je veux faire, et dont je te remercie.
Peux-tu m'aider STP ?
Voici mon cas particulier :
- Je cherche toutes les valeurs contenant ce qui est dans la case
B2, et non pas seulement celles qui commencent par cela. J'ai réussi à
modifier le code pour cela : Range("D2") = "*" & .Range("B2") & "*"
- la liste des noms origine est une plage nommée « CITY_List » et
qui est dans une autre feuille (« Cities ») du classeur. J'imagine qu'il
faut remplacer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
par quelque chose comme Set Rg= Cities ! CITY_List
mais je ne trouve pas la bonne syntaxe
- pourquoi la cellule F1 doit-elle contenir la même chose que A1
?
- pourquoi la case D1 est-elle nécessaire ?
- Quelle est la syntaxe pour mettre la case H1 dans une autre
feuille ?
- Ainsi que la case B2 tant qu'à faire
Merci beaucoup !!!
Archibald
"Archibald" a écrit dans le message de news:
%Merci beaucoup Michdenis
Archibald
"michdenis" a écrit dans le message de news:Bonjour Archibald,
Un petit exemple là : http://cjoint.com/?kFgibSExfr
Salutations!
"Archibald" a écrit dans le message de news:
%23R7Ux$
Bonjour,
J'ai la liste des 36000 communes de France (ainsi que leurs codes
postaux)
et je souhaite que l'utilisateur en choisisse une, sans qu'il ait la
liste
sous les yeux :
je souhaite qu'il tape dans une cellule "VilleSaisie" une partie du nom
de
la ville avec un ou des caractères joker (étoile et/ou point
d'interrogation), puis qu'il puisse choisir dans une liste déroulante
contenant la liste des villes possibles avec leurs codes postaux (afin
de
différencier les homonymes)
Avec NB.SI(ListeVilles;VilleSaisie) je sais trouver le nombre de villes
possibles, mais je ne sais pas comment créer un tableau contenant ces
villes
possibles, pour ensuite leurs associer leur codes postaux (via
Recherchev
ou
index(equiv), puis Ville&Code postal) puis les visualiser dans une
liste
de
choix (via Données Validation liste)
Suis-je sur une mauvaise piste ?
Pouvez-vous m'aider ?
Si possible sans macro.
Je vous remercie à l'avance
Archibald
