Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de Ville.
Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville et
les copier dans un nouveau fichier (et non feuille) excel, enregistrer ce
fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais faire
un filtre auto mais je ne sais pas comment, par vba, faire une boucle en le
faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre feuille
et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de Ville.
Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville et
les copier dans un nouveau fichier (et non feuille) excel, enregistrer ce
fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais faire
un filtre auto mais je ne sais pas comment, par vba, faire une boucle en le
faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre feuille
et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de Ville.
Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville et
les copier dans un nouveau fichier (et non feuille) excel, enregistrer ce
fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais faire
un filtre auto mais je ne sais pas comment, par vba, faire une boucle en le
faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre feuille
et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de
Ville. Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville
et les copier dans un nouveau fichier (et non feuille) excel, enregistrer
ce fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais
faire un filtre auto mais je ne sais pas comment, par vba, faire une
boucle en le faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre
feuille et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de
Ville. Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville
et les copier dans un nouveau fichier (et non feuille) excel, enregistrer
ce fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais
faire un filtre auto mais je ne sais pas comment, par vba, faire une
boucle en le faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre
feuille et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de
Ville. Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville
et les copier dans un nouveau fichier (et non feuille) excel, enregistrer
ce fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais
faire un filtre auto mais je ne sais pas comment, par vba, faire une
boucle en le faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre
feuille et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonsoir Raphael,
D'abord, compliments à AnonymousA qui a fait un travail remarquable.
Idée première contournement sans macro:
Plutôt filtre élaboré puis enregistrer sur une liste comme ton idée
mais...
Un tableau croisé permet de mettre les montants (tous renseignés d'un des
champs valeur potentiels de Ville)
A condition d'avoir viré la coche à cette modification directe dans le
menu Outils options modifications
on peut Afficher des pages par dblclic sur la valeur d'un TCD
correspondant au champ choisi
ce qui est une solution alternative pratique ...et reste plus qu'à les
enregistrer.
Mais comme tu voulais du VBA :
Me voili parti la dessus , un peu comme on aurait fait avec l'idée future
de boucler sur la liste filtrée pour procèder aux extractions avec un
filtre élaboré.
Puis grâce à toi voici que je me suis créé un extracteur de liste sans
doublons alors
Merci à toi.
je la donne qd même avec la cerise non pas sur mais au bout du gateau et
m'en vais apprendre la recette des chocolats à 5 ou 6 grammes .
'********
'***Création d'une liste sans doublons******
'**Definition des variables globales
Public sRc As String
Public Dest As String
'********
Sub AdcollSh()
'**Definition des variables locales
Dim Sh As Worksheet
Dim Catlist As New Collection
'***affichage du userform
SaisieRg.Show
'***
'***création de la liste
On Error Resume Next
For Each c In Range(sRc).Cells
If IsEmpty(c) Then Exit For
Catlist.Add c, CStr(c)
Next c
On Error GoTo 0
'****
'**si pas de destination nvl feuille
If Len(Dest) = 0 Then
Set Sh = ActiveWorkbook.Sheets.Add _
(after:=Worksheets(ActiveWorkbook.Worksheets.Count))
Dest = Sh.Range("b1").Address
End If
'*****
'**affectation de la liste
For i = 1 To Catlist.Count
Range(Dest).Offset(i - 1, 0) = Catlist(i)
Next i
Set Sh = Nothing
End Sub
'***
'****
'puis dans le code du Userform nommé SaisieRg
'qui comporte deux refedit et boutons ok et annuler
'****
Private Sub CommandButton1_Click()
sRc = Me.RefEdit1.Value
Dest = Me.RefEdit2.Value
SaisieRg.Hide
End Sub
Private Sub CommandButton2_Click()
SaisieRg.Hide
End
End Sub
Private Sub userform_Initialize()
RefEdit1.Text = Selection.Address
RefEdit2.Text = ""
End Sub
'****
'lSteph
'( qui finalement se rend compte que données consolidation étiquettes
colonne de gauche permet de faire approximativement la même chose)
'A.B.E.Salut
"Raphaël Pauliat" a écrit dans le message de news:
425617d4$0$2229$Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de
Ville. Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville
et les copier dans un nouveau fichier (et non feuille) excel, enregistrer
ce fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais
faire un filtre auto mais je ne sais pas comment, par vba, faire une
boucle en le faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre
feuille et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonsoir Raphael,
D'abord, compliments à AnonymousA qui a fait un travail remarquable.
Idée première contournement sans macro:
Plutôt filtre élaboré puis enregistrer sur une liste comme ton idée
mais...
Un tableau croisé permet de mettre les montants (tous renseignés d'un des
champs valeur potentiels de Ville)
A condition d'avoir viré la coche à cette modification directe dans le
menu Outils options modifications
on peut Afficher des pages par dblclic sur la valeur d'un TCD
correspondant au champ choisi
ce qui est une solution alternative pratique ...et reste plus qu'à les
enregistrer.
Mais comme tu voulais du VBA :
Me voili parti la dessus , un peu comme on aurait fait avec l'idée future
de boucler sur la liste filtrée pour procèder aux extractions avec un
filtre élaboré.
Puis grâce à toi voici que je me suis créé un extracteur de liste sans
doublons alors
Merci à toi.
je la donne qd même avec la cerise non pas sur mais au bout du gateau et
m'en vais apprendre la recette des chocolats à 5 ou 6 grammes .
'********
'***Création d'une liste sans doublons******
'**Definition des variables globales
Public sRc As String
Public Dest As String
'********
Sub AdcollSh()
'**Definition des variables locales
Dim Sh As Worksheet
Dim Catlist As New Collection
'***affichage du userform
SaisieRg.Show
'***
'***création de la liste
On Error Resume Next
For Each c In Range(sRc).Cells
If IsEmpty(c) Then Exit For
Catlist.Add c, CStr(c)
Next c
On Error GoTo 0
'****
'**si pas de destination nvl feuille
If Len(Dest) = 0 Then
Set Sh = ActiveWorkbook.Sheets.Add _
(after:=Worksheets(ActiveWorkbook.Worksheets.Count))
Dest = Sh.Range("b1").Address
End If
'*****
'**affectation de la liste
For i = 1 To Catlist.Count
Range(Dest).Offset(i - 1, 0) = Catlist(i)
Next i
Set Sh = Nothing
End Sub
'***
'****
'puis dans le code du Userform nommé SaisieRg
'qui comporte deux refedit et boutons ok et annuler
'****
Private Sub CommandButton1_Click()
sRc = Me.RefEdit1.Value
Dest = Me.RefEdit2.Value
SaisieRg.Hide
End Sub
Private Sub CommandButton2_Click()
SaisieRg.Hide
End
End Sub
Private Sub userform_Initialize()
RefEdit1.Text = Selection.Address
RefEdit2.Text = ""
End Sub
'****
'lSteph
'( qui finalement se rend compte que données consolidation étiquettes
colonne de gauche permet de faire approximativement la même chose)
'A.B.E.Salut
"Raphaël Pauliat" <rpauliat@free.fr> a écrit dans le message de news:
425617d4$0$2229$626a14ce@news.free.fr...
Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de
Ville. Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville
et les copier dans un nouveau fichier (et non feuille) excel, enregistrer
ce fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais
faire un filtre auto mais je ne sais pas comment, par vba, faire une
boucle en le faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre
feuille et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph
Bonsoir Raphael,
D'abord, compliments à AnonymousA qui a fait un travail remarquable.
Idée première contournement sans macro:
Plutôt filtre élaboré puis enregistrer sur une liste comme ton idée
mais...
Un tableau croisé permet de mettre les montants (tous renseignés d'un des
champs valeur potentiels de Ville)
A condition d'avoir viré la coche à cette modification directe dans le
menu Outils options modifications
on peut Afficher des pages par dblclic sur la valeur d'un TCD
correspondant au champ choisi
ce qui est une solution alternative pratique ...et reste plus qu'à les
enregistrer.
Mais comme tu voulais du VBA :
Me voili parti la dessus , un peu comme on aurait fait avec l'idée future
de boucler sur la liste filtrée pour procèder aux extractions avec un
filtre élaboré.
Puis grâce à toi voici que je me suis créé un extracteur de liste sans
doublons alors
Merci à toi.
je la donne qd même avec la cerise non pas sur mais au bout du gateau et
m'en vais apprendre la recette des chocolats à 5 ou 6 grammes .
'********
'***Création d'une liste sans doublons******
'**Definition des variables globales
Public sRc As String
Public Dest As String
'********
Sub AdcollSh()
'**Definition des variables locales
Dim Sh As Worksheet
Dim Catlist As New Collection
'***affichage du userform
SaisieRg.Show
'***
'***création de la liste
On Error Resume Next
For Each c In Range(sRc).Cells
If IsEmpty(c) Then Exit For
Catlist.Add c, CStr(c)
Next c
On Error GoTo 0
'****
'**si pas de destination nvl feuille
If Len(Dest) = 0 Then
Set Sh = ActiveWorkbook.Sheets.Add _
(after:=Worksheets(ActiveWorkbook.Worksheets.Count))
Dest = Sh.Range("b1").Address
End If
'*****
'**affectation de la liste
For i = 1 To Catlist.Count
Range(Dest).Offset(i - 1, 0) = Catlist(i)
Next i
Set Sh = Nothing
End Sub
'***
'****
'puis dans le code du Userform nommé SaisieRg
'qui comporte deux refedit et boutons ok et annuler
'****
Private Sub CommandButton1_Click()
sRc = Me.RefEdit1.Value
Dest = Me.RefEdit2.Value
SaisieRg.Hide
End Sub
Private Sub CommandButton2_Click()
SaisieRg.Hide
End
End Sub
Private Sub userform_Initialize()
RefEdit1.Text = Selection.Address
RefEdit2.Text = ""
End Sub
'****
'lSteph
'( qui finalement se rend compte que données consolidation étiquettes
colonne de gauche permet de faire approximativement la même chose)
'A.B.E.Salut
"Raphaël Pauliat" a écrit dans le message de news:
425617d4$0$2229$Bonjour tout le monde,
J'ai un fichier avec une bdd et dedans, une colonne avec des noms de
Ville. Jusque là, pas de soucis.
Je voudrais, par macro, extraire toutes les données concernant une ville
et les copier dans un nouveau fichier (et non feuille) excel, enregistrer
ce fichier sous "Ville.xls" et mettre une protection en écriture...
Première étape : sélectionner les infos pour chaque ville. Je pensais
faire un filtre auto mais je ne sais pas comment, par vba, faire une
boucle en le faisant prendre comme Criteria1, chaque ville...
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
Criteria1:="Otis"
VisibleDropDown:úlse
L'autre solution consiste à faire la liste des villes dans une autre
feuille et la parcourir via vba...
Déjà, un coup de main ici serait plus que bienvenue...
Seconde étape :
Le copier coller dans une nouvelle feuille. Là, aucune idée...
Troisième étape :
Enregistrement du fichier sous le nom de la ville et mise en place de la
protection + fermeture du fichier...
Encore aucune idée...
Help !!
Merci d'avance ! Toute contribution sera bienvenue !
Raph