Bonjour,
J'ai un tableau qui a 14 colonnes (A à N)
En N, je met une croix (X) lorque l'info est traité.
je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne
sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le
chemin est C:\MOI\essai et le fichier s'appelle "analyse.xls").
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
Sunburn
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N)
En N, je met une croix (X) lorque l'info est traité.
je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne
sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le
chemin est C:MOIessai et le fichier s'appelle "analyse.xls").
Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus
pratique), mais à la suite des infos déjà inscrites.
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
papou
Bonjour Avec quelque chose comme ça à adapter : (le principe c'est d'utiliser un filtre élaboré avec le critère <>x situé dans la feuille Feuil2)
Dim Classeur1 As Workbook Set Classeur1 = ThisWorkbook Dim Classeur2 As Workbook Set Classeur2 = Workbooks.Open("C:MOIessaianalyse.xls") Dim DerligClasseur2$ DerligClasseur2 = Classeur2.Worksheets("ALPHA").Range("A65536").End(xlUp)(2).Address With Classeur1.Worksheets("Feuil1") .Range("A1:E" & .Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("Feuil2").Range("A1:A2"), _ CopyToRange:=Classeur2.Worksheets("ALPHA").Range(DerligClasseur2), Unique:úlse End With
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
Bonjour
Avec quelque chose comme ça à adapter :
(le principe c'est d'utiliser un filtre élaboré avec le critère <>x situé
dans la feuille Feuil2)
Dim Classeur1 As Workbook
Set Classeur1 = ThisWorkbook
Dim Classeur2 As Workbook
Set Classeur2 = Workbooks.Open("C:MOIessaianalyse.xls")
Dim DerligClasseur2$
DerligClasseur2 =
Classeur2.Worksheets("ALPHA").Range("A65536").End(xlUp)(2).Address
With Classeur1.Worksheets("Feuil1")
.Range("A1:E" & .Range("A65536").End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Feuil2").Range("A1:A2"), _
CopyToRange:=Classeur2.Worksheets("ALPHA").Range(DerligClasseur2),
Unique:úlse
End With
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 8B045DA3-1CF4-4BDC-A1AC-9B8BBCB4769C@microsoft.com...
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N)
En N, je met une croix (X) lorque l'info est traité.
je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne
sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont
le
chemin est C:MOIessai et le fichier s'appelle "analyse.xls").
Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est
plus
pratique), mais à la suite des infos déjà inscrites.
Bonjour Avec quelque chose comme ça à adapter : (le principe c'est d'utiliser un filtre élaboré avec le critère <>x situé dans la feuille Feuil2)
Dim Classeur1 As Workbook Set Classeur1 = ThisWorkbook Dim Classeur2 As Workbook Set Classeur2 = Workbooks.Open("C:MOIessaianalyse.xls") Dim DerligClasseur2$ DerligClasseur2 = Classeur2.Worksheets("ALPHA").Range("A65536").End(xlUp)(2).Address With Classeur1.Worksheets("Feuil1") .Range("A1:E" & .Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("Feuil2").Range("A1:A2"), _ CopyToRange:=Classeur2.Worksheets("ALPHA").Range(DerligClasseur2), Unique:úlse End With
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
JB
Bonsoir,
Sub Extrait() [A1].AutoFilter [A1].AutoFilter Field:, Criteria1:="=" Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase").Rows.Count).SpecialCells(xlCellTypeVisib le).Copy _ Workbooks("analyse.xls").Sheets(1).[A65000].End(xlUp).Offset(1, 0) End Sub
Cordialement JB
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (don t le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
Bonsoir,
Sub Extrait()
[A1].AutoFilter
[A1].AutoFilter Field:=14, Criteria1:="="
Range("_FilterDataBase").Offset(1,
0).Resize(Range("_FilterDataBase").Rows.Count).SpecialCells(xlCellTypeVisib le).Copy
_
Workbooks("analyse.xls").Sheets(1).[A65000].End(xlUp).Offset(1,
0)
End Sub
Cordialement JB
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N)
En N, je met une croix (X) lorque l'info est traité.
je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne
sont pas traitées (sans X dans la colonne N) vers un fichier cible (don t le
chemin est C:MOIessai et le fichier s'appelle "analyse.xls").
Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus
pratique), mais à la suite des infos déjà inscrites.
Sub Extrait() [A1].AutoFilter [A1].AutoFilter Field:, Criteria1:="=" Range("_FilterDataBase").Offset(1, 0).Resize(Range("_FilterDataBase").Rows.Count).SpecialCells(xlCellTypeVisib le).Copy _ Workbooks("analyse.xls").Sheets(1).[A65000].End(xlUp).Offset(1, 0) End Sub
Cordialement JB
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (don t le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
papou
Bon peut-être mieux avec un classeur exemple ? A télécharger ici : http://cjoint.com/data/lprKUvPd1m.htm
Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Avec quelque chose comme ça à adapter : (le principe c'est d'utiliser un filtre élaboré avec le critère <>x situé dans la feuille Feuil2)
Dim Classeur1 As Workbook Set Classeur1 = ThisWorkbook Dim Classeur2 As Workbook Set Classeur2 = Workbooks.Open("C:MOIessaianalyse.xls") Dim DerligClasseur2$ DerligClasseur2 = Classeur2.Worksheets("ALPHA").Range("A65536").End(xlUp)(2).Address With Classeur1.Worksheets("Feuil1") .Range("A1:E" & .Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("Feuil2").Range("A1:A2"), _ CopyToRange:=Classeur2.Worksheets("ALPHA").Range(DerligClasseur2), Unique:úlse End With
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
Comment puis-je faire? je vous remercie. Yann
Bon peut-être mieux avec un classeur exemple ?
A télécharger ici :
http://cjoint.com/data/lprKUvPd1m.htm
Cordialement
Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
uwU8EJNCHHA.4992@TK2MSFTNGP03.phx.gbl...
Bonjour
Avec quelque chose comme ça à adapter :
(le principe c'est d'utiliser un filtre élaboré avec le critère <>x situé
dans la feuille Feuil2)
Dim Classeur1 As Workbook
Set Classeur1 = ThisWorkbook
Dim Classeur2 As Workbook
Set Classeur2 = Workbooks.Open("C:MOIessaianalyse.xls")
Dim DerligClasseur2$
DerligClasseur2 =
Classeur2.Worksheets("ALPHA").Range("A65536").End(xlUp)(2).Address
With Classeur1.Worksheets("Feuil1")
.Range("A1:E" & .Range("A65536").End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Feuil2").Range("A1:A2"), _
CopyToRange:=Classeur2.Worksheets("ALPHA").Range(DerligClasseur2),
Unique:úlse
End With
Cordialement
Pascal
"Sunburn" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 8B045DA3-1CF4-4BDC-A1AC-9B8BBCB4769C@microsoft.com...
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N)
En N, je met une croix (X) lorque l'info est traité.
je souhaite créer une macro, qui me copie les lignes de mon tableau qui
ne
sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont
le
chemin est C:MOIessai et le fichier s'appelle "analyse.xls").
Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est
plus
pratique), mais à la suite des infos déjà inscrites.
Bon peut-être mieux avec un classeur exemple ? A télécharger ici : http://cjoint.com/data/lprKUvPd1m.htm
Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Avec quelque chose comme ça à adapter : (le principe c'est d'utiliser un filtre élaboré avec le critère <>x situé dans la feuille Feuil2)
Dim Classeur1 As Workbook Set Classeur1 = ThisWorkbook Dim Classeur2 As Workbook Set Classeur2 = Workbooks.Open("C:MOIessaianalyse.xls") Dim DerligClasseur2$ DerligClasseur2 = Classeur2.Worksheets("ALPHA").Range("A65536").End(xlUp)(2).Address With Classeur1.Worksheets("Feuil1") .Range("A1:E" & .Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Worksheets("Feuil2").Range("A1:A2"), _ CopyToRange:=Classeur2.Worksheets("ALPHA").Range(DerligClasseur2), Unique:úlse End With
Cordialement Pascal
"Sunburn" a écrit dans le message de news:
Excusez-moi, je précise :
J'ai un tableau qui a 14 colonnes (A à N) En N, je met une croix (X) lorque l'info est traité. je souhaite créer une macro, qui me copie les lignes de mon tableau qui ne sont pas traitées (sans X dans la colonne N) vers un fichier cible (dont le chemin est C:MOIessai et le fichier s'appelle "analyse.xls"). Je voudrais faire le collage sur l'onglet "alpha" ou numéro 6 (si c'est plus pratique), mais à la suite des infos déjà inscrites.
