Problème d'extraction et de recopie avec condition dans un autre onglet mais
pas dans une base de données triées; "A LA SAISIE". La condition étant le
code de la Col H.
C'est à dire ; recopie automatique du 9 de la Colonne A de l'onglet X dans
la colonne A de l'onglet M et ainsi de suite
Pour arriver à ceci.
Onglet X Onglet M Onglet N Onglet P
Col A Col H Col A Col A Col A
9 A 9 5 8
5 B 4 2
4 A
8 C
2 B
Merci pour la petite formule qui va bien et, sans être ironique, bon repos
dominical.
Philippe
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Sub Extrait() Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("BD").Select '--- Liste des xxxx [A1:H10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[K1], Unique:=True Sheets("BD").Select For Each c In Range("H2", [H65000].End(xlUp)) ' pour chaque service [K2] = c.Value On Error Resume Next Sheets(c.Value).Delete On Error GoTo 0 Sheets.Add After:=Sheets(Sheets.Count) ' création ActiveSheet.Name = c.Value [A1] = "ColA" '-- extraction Sheets("BD").[A1:H10000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("BD").[K1:K2], CopyToRange:=[A1] Sheets("BD").Select Next c End Sub
Problème d'extraction et de recopie avec condition dans un autre onglet mais pas dans une base de données triées; "A LA SAISIE". La condition éta nt le code de la Col H. C'est à dire ; recopie automatique du 9 de la Colonne A de l'onglet X da ns la colonne A de l'onglet M et ainsi de suite Pour arriver à ceci. Onglet X Onglet M Onglet N Onglet P Col A Col H Col A Col A Col A 9 A 9 5 8 5 B 4 2 4 A 8 C 2 B
Merci pour la petite formule qui va bien et, sans être ironique, bon rep os dominical. Philippe
Bonjour,
Sub Extrait()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("BD").Select
'--- Liste des xxxx
[A1:H10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[K1],
Unique:=True
Sheets("BD").Select
For Each c In Range("H2", [H65000].End(xlUp)) ' pour chaque service
[K2] = c.Value
On Error Resume Next
Sheets(c.Value).Delete
On Error GoTo 0
Sheets.Add After:=Sheets(Sheets.Count) ' création
ActiveSheet.Name = c.Value
[A1] = "ColA"
'-- extraction
Sheets("BD").[A1:H10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("BD").[K1:K2], CopyToRange:=[A1]
Sheets("BD").Select
Next c
End Sub
http://cjoint.com/?lysDnlHD7d
JB
On 24 nov, 18:06, "Philippe" <mercierphilippe4...@neuf.fr> wrote:
Bonsoir à toutes et à tous
Problème d'extraction et de recopie avec condition dans un autre onglet mais
pas dans une base de données triées; "A LA SAISIE". La condition éta nt le
code de la Col H.
C'est à dire ; recopie automatique du 9 de la Colonne A de l'onglet X da ns
la colonne A de l'onglet M et ainsi de suite
Pour arriver à ceci.
Onglet X Onglet M Onglet N Onglet P
Col A Col H Col A Col A Col A
9 A 9 5 8
5 B 4 2
4 A
8 C
2 B
Merci pour la petite formule qui va bien et, sans être ironique, bon rep os
dominical.
Philippe
Sub Extrait() Application.DisplayAlerts = False Application.ScreenUpdating = False Sheets("BD").Select '--- Liste des xxxx [A1:H10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[K1], Unique:=True Sheets("BD").Select For Each c In Range("H2", [H65000].End(xlUp)) ' pour chaque service [K2] = c.Value On Error Resume Next Sheets(c.Value).Delete On Error GoTo 0 Sheets.Add After:=Sheets(Sheets.Count) ' création ActiveSheet.Name = c.Value [A1] = "ColA" '-- extraction Sheets("BD").[A1:H10000].AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("BD").[K1:K2], CopyToRange:=[A1] Sheets("BD").Select Next c End Sub
Problème d'extraction et de recopie avec condition dans un autre onglet mais pas dans une base de données triées; "A LA SAISIE". La condition éta nt le code de la Col H. C'est à dire ; recopie automatique du 9 de la Colonne A de l'onglet X da ns la colonne A de l'onglet M et ainsi de suite Pour arriver à ceci. Onglet X Onglet M Onglet N Onglet P Col A Col H Col A Col A Col A 9 A 9 5 8 5 B 4 2 4 A 8 C 2 B
Merci pour la petite formule qui va bien et, sans être ironique, bon rep os dominical. Philippe