Bonjour,
voici mon problème,
dans ma feuil1, j'ai un tableau de x lignes et de x colonnes.
La première colonne contient un code, qui peut se répéter, mais pas forcément
sur la ligne suivante.
Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de
ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour
le code y, etc...
Et bien sur, une fois les infos sur les différentes feuilles, une mise à
jour automatique des valeurs, lorsque la feuil1 est modifiée.
J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se
repete
plusieurs fois, cela ne fonctionne pas.
Je vous remercie de l'aide que vous pourrez m'apporter
Patrick
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
Ellimac
Bonjour,
Sub Macro2() Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next End Sub
Camille
"patrick2708" a écrit dans le message de news:
Bonjour, voici mon problème, dans ma feuil1, j'ai un tableau de x lignes et de x colonnes. La première colonne contient un code, qui peut se répéter, mais pas forcément sur la ligne suivante. Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour le code y, etc... Et bien sur, une fois les infos sur les différentes feuilles, une mise à jour automatique des valeurs, lorsque la feuil1 est modifiée. J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se repete plusieurs fois, cela ne fonctionne pas. Je vous remercie de l'aide que vous pourrez m'apporter Patrick
Bonjour,
Sub Macro2()
Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("AA1" _
), Unique:=True
Range("AA2").Select
n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count
For cpt = 1 To n
a = ActiveCell
Range("A1").AutoFilter Field:=1, Criteria1:=a
Range("A1").CurrentRegion.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = a
Sheets("Feuil1").Select
ActiveCell.Offset(1).Select
Next
End Sub
Camille
"patrick2708" <patrick2708@discussions.microsoft.com> a écrit dans le
message de news: 8E6C2197-5131-414B-B3DE-82BE68DA4DCD@microsoft.com...
Bonjour,
voici mon problème,
dans ma feuil1, j'ai un tableau de x lignes et de x colonnes.
La première colonne contient un code, qui peut se répéter, mais pas
forcément
sur la ligne suivante.
Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de
ramener les infos des lignes et colonnes pour le code x, sur la feuil3
pour
le code y, etc...
Et bien sur, une fois les infos sur les différentes feuilles, une mise à
jour automatique des valeurs, lorsque la feuil1 est modifiée.
J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code
se
repete
plusieurs fois, cela ne fonctionne pas.
Je vous remercie de l'aide que vous pourrez m'apporter
Patrick
Sub Macro2() Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next End Sub
Camille
"patrick2708" a écrit dans le message de news:
Bonjour, voici mon problème, dans ma feuil1, j'ai un tableau de x lignes et de x colonnes. La première colonne contient un code, qui peut se répéter, mais pas forcément sur la ligne suivante. Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour le code y, etc... Et bien sur, une fois les infos sur les différentes feuilles, une mise à jour automatique des valeurs, lorsque la feuil1 est modifiée. J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se repete plusieurs fois, cela ne fonctionne pas. Je vous remercie de l'aide que vous pourrez m'apporter Patrick
patrick2708
Bonjour Ellimac Je te remercie pour ta macro, elle fonctionne très bien, mais ne peut être lancer qu'une seule fois, car lors d'un second lancement, les feuilles a, b, c, etc. existent déja. De plus, c'est d'avantage d'une formule à mettre dans les feuilles 2, 3 etc. dont j'ai besoin, car comme cela la mise à jour de ces feuilles se fait au fur et à mesure de la saisie en feuil1. En tout cas, merci de ton aide, ta macro me servira certainement beaucoup pour d'autres applications Patrick
Bonjour,
Sub Macro2() Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next End Sub
Camille
"patrick2708" a écrit dans le message de news:
Bonjour, voici mon problème, dans ma feuil1, j'ai un tableau de x lignes et de x colonnes. La première colonne contient un code, qui peut se répéter, mais pas forcément sur la ligne suivante. Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour le code y, etc... Et bien sur, une fois les infos sur les différentes feuilles, une mise à jour automatique des valeurs, lorsque la feuil1 est modifiée. J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se repete plusieurs fois, cela ne fonctionne pas. Je vous remercie de l'aide que vous pourrez m'apporter Patrick
Bonjour Ellimac
Je te remercie pour ta macro, elle fonctionne très bien, mais ne peut être
lancer qu'une seule fois, car lors d'un second lancement, les feuilles a, b,
c, etc.
existent déja. De plus, c'est d'avantage d'une formule à mettre dans les
feuilles 2, 3 etc. dont j'ai besoin, car comme cela la mise à jour de ces
feuilles se fait au fur et à mesure de la saisie en feuil1.
En tout cas, merci de ton aide, ta macro me servira certainement beaucoup
pour d'autres applications
Patrick
Bonjour,
Sub Macro2()
Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("AA1" _
), Unique:=True
Range("AA2").Select
n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count
For cpt = 1 To n
a = ActiveCell
Range("A1").AutoFilter Field:=1, Criteria1:=a
Range("A1").CurrentRegion.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = a
Sheets("Feuil1").Select
ActiveCell.Offset(1).Select
Next
End Sub
Camille
"patrick2708" <patrick2708@discussions.microsoft.com> a écrit dans le
message de news: 8E6C2197-5131-414B-B3DE-82BE68DA4DCD@microsoft.com...
Bonjour,
voici mon problème,
dans ma feuil1, j'ai un tableau de x lignes et de x colonnes.
La première colonne contient un code, qui peut se répéter, mais pas
forcément
sur la ligne suivante.
Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de
ramener les infos des lignes et colonnes pour le code x, sur la feuil3
pour
le code y, etc...
Et bien sur, une fois les infos sur les différentes feuilles, une mise à
jour automatique des valeurs, lorsque la feuil1 est modifiée.
J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code
se
repete
plusieurs fois, cela ne fonctionne pas.
Je vous remercie de l'aide que vous pourrez m'apporter
Patrick
Bonjour Ellimac Je te remercie pour ta macro, elle fonctionne très bien, mais ne peut être lancer qu'une seule fois, car lors d'un second lancement, les feuilles a, b, c, etc. existent déja. De plus, c'est d'avantage d'une formule à mettre dans les feuilles 2, 3 etc. dont j'ai besoin, car comme cela la mise à jour de ces feuilles se fait au fur et à mesure de la saisie en feuil1. En tout cas, merci de ton aide, ta macro me servira certainement beaucoup pour d'autres applications Patrick
Bonjour,
Sub Macro2() Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next End Sub
Camille
"patrick2708" a écrit dans le message de news:
Bonjour, voici mon problème, dans ma feuil1, j'ai un tableau de x lignes et de x colonnes. La première colonne contient un code, qui peut se répéter, mais pas forcément sur la ligne suivante. Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour le code y, etc... Et bien sur, une fois les infos sur les différentes feuilles, une mise à jour automatique des valeurs, lorsque la feuil1 est modifiée. J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se repete plusieurs fois, cela ne fonctionne pas. Je vous remercie de l'aide que vous pourrez m'apporter Patrick
Elliac
Bonjour,
Si la feuille existe on la supprime : Sub Découpage() Application.DisplayAlerts = False Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell For cpt1 = 1 To Sheets.Count If Sheets(cpt1).Name = a Then Sheets(cpt1).Delete Exit For End If Next cpt1 Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next Application.DisplayAlerts = True End Sub
Camille
"patrick2708" wrote:
Bonjour Ellimac Je te remercie pour ta macro, elle fonctionne très bien, mais ne peut être lancer qu'une seule fois, car lors d'un second lancement, les feuilles a, b, c, etc. existent déja. De plus, c'est d'avantage d'une formule à mettre dans les feuilles 2, 3 etc. dont j'ai besoin, car comme cela la mise à jour de ces feuilles se fait au fur et à mesure de la saisie en feuil1. En tout cas, merci de ton aide, ta macro me servira certainement beaucoup pour d'autres applications Patrick
Bonjour,
Sub Macro2() Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next End Sub
Camille
"patrick2708" a écrit dans le message de news:
Bonjour, voici mon problème, dans ma feuil1, j'ai un tableau de x lignes et de x colonnes. La première colonne contient un code, qui peut se répéter, mais pas forcément sur la ligne suivante. Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour le code y, etc... Et bien sur, une fois les infos sur les différentes feuilles, une mise à jour automatique des valeurs, lorsque la feuil1 est modifiée. J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se repete plusieurs fois, cela ne fonctionne pas. Je vous remercie de l'aide que vous pourrez m'apporter Patrick
Bonjour,
Si la feuille existe on la supprime :
Sub Découpage()
Application.DisplayAlerts = False
Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("AA1" _
), Unique:=True
Range("AA2").Select
n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count
For cpt = 1 To n
a = ActiveCell
For cpt1 = 1 To Sheets.Count
If Sheets(cpt1).Name = a Then
Sheets(cpt1).Delete
Exit For
End If
Next cpt1
Range("A1").AutoFilter Field:=1, Criteria1:=a
Range("A1").CurrentRegion.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = a
Sheets("Feuil1").Select
ActiveCell.Offset(1).Select
Next
Application.DisplayAlerts = True
End Sub
Camille
"patrick2708" wrote:
Bonjour Ellimac
Je te remercie pour ta macro, elle fonctionne très bien, mais ne peut être
lancer qu'une seule fois, car lors d'un second lancement, les feuilles a, b,
c, etc.
existent déja. De plus, c'est d'avantage d'une formule à mettre dans les
feuilles 2, 3 etc. dont j'ai besoin, car comme cela la mise à jour de ces
feuilles se fait au fur et à mesure de la saisie en feuil1.
En tout cas, merci de ton aide, ta macro me servira certainement beaucoup
pour d'autres applications
Patrick
Bonjour,
Sub Macro2()
Columns("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("AA1" _
), Unique:=True
Range("AA2").Select
n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count
For cpt = 1 To n
a = ActiveCell
Range("A1").AutoFilter Field:=1, Criteria1:=a
Range("A1").CurrentRegion.Copy
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = a
Sheets("Feuil1").Select
ActiveCell.Offset(1).Select
Next
End Sub
Camille
"patrick2708" <patrick2708@discussions.microsoft.com> a écrit dans le
message de news: 8E6C2197-5131-414B-B3DE-82BE68DA4DCD@microsoft.com...
Bonjour,
voici mon problème,
dans ma feuil1, j'ai un tableau de x lignes et de x colonnes.
La première colonne contient un code, qui peut se répéter, mais pas
forcément
sur la ligne suivante.
Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de
ramener les infos des lignes et colonnes pour le code x, sur la feuil3
pour
le code y, etc...
Et bien sur, une fois les infos sur les différentes feuilles, une mise à
jour automatique des valeurs, lorsque la feuil1 est modifiée.
J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code
se
repete
plusieurs fois, cela ne fonctionne pas.
Je vous remercie de l'aide que vous pourrez m'apporter
Patrick
Si la feuille existe on la supprime : Sub Découpage() Application.DisplayAlerts = False Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell For cpt1 = 1 To Sheets.Count If Sheets(cpt1).Name = a Then Sheets(cpt1).Delete Exit For End If Next cpt1 Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next Application.DisplayAlerts = True End Sub
Camille
"patrick2708" wrote:
Bonjour Ellimac Je te remercie pour ta macro, elle fonctionne très bien, mais ne peut être lancer qu'une seule fois, car lors d'un second lancement, les feuilles a, b, c, etc. existent déja. De plus, c'est d'avantage d'une formule à mettre dans les feuilles 2, 3 etc. dont j'ai besoin, car comme cela la mise à jour de ces feuilles se fait au fur et à mesure de la saisie en feuil1. En tout cas, merci de ton aide, ta macro me servira certainement beaucoup pour d'autres applications Patrick
Bonjour,
Sub Macro2() Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AA1" _ ), Unique:=True Range("AA2").Select n = Range(ActiveCell, ActiveCell.End(xlDown)).Cells.Count For cpt = 1 To n a = ActiveCell Range("A1").AutoFilter Field:=1, Criteria1:=a Range("A1").CurrentRegion.Copy Sheets.Add ActiveSheet.Paste ActiveSheet.Name = a Sheets("Feuil1").Select ActiveCell.Offset(1).Select Next End Sub
Camille
"patrick2708" a écrit dans le message de news:
Bonjour, voici mon problème, dans ma feuil1, j'ai un tableau de x lignes et de x colonnes. La première colonne contient un code, qui peut se répéter, mais pas forcément sur la ligne suivante. Ce dont j'ai besoin, c'est d'une formule qui me permette, surla feuil2, de ramener les infos des lignes et colonnes pour le code x, sur la feuil3 pour le code y, etc... Et bien sur, une fois les infos sur les différentes feuilles, une mise à jour automatique des valeurs, lorsque la feuil1 est modifiée. J'ai essayé avec recherchev, mais le fait que sur la feuil1 le même code se repete plusieurs fois, cela ne fonctionne pas. Je vous remercie de l'aide que vous pourrez m'apporter Patrick
