Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se pr ésente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT LIBPDT N PDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240 cendrierB3245
B632 NORBERT MARTIN 2 cendrier B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec V BA ?
D'avance merci à tous
Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se pr ésente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT LIBPDT N PDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240 cendrierB3245
B632 NORBERT MARTIN 2 cendrier B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec V BA ?
D'avance merci à tous
Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se pr ésente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT LIBPDT N PDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240 cendrierB3245
B632 NORBERT MARTIN 2 cendrier B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec V BA ?
D'avance merci à tous
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240 cendrierB3245
B632 NORBERT MARTIN 2 cendrier B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor <robocor.glo...@gmail.com> wrote:
Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240 cendrierB3245
B632 NORBERT MARTIN 2 cendrier B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240 cendrierB3245
B632 NORBERT MARTIN 2 cendrier B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor <robocor.glo...@gmail.com> wrote:
Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se
présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonjour,
Encore merci à JB
Le script fonctionne impeccable
Deux questions :
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
les modifications que j'ai essayées d'apporter n'ont pas fonctionnées
normal car je n'entrave pas grand chose à VBA...
Je pense avoir trouver
Le script qui inverse la situation est-il possible
Transformation de
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
en...
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
là c'est vrai j'ai le sentiment d'abuser....
Si, si !!!!
Juré je commence le VBA (puissant cette bête là)
Merci d'avance pour vos lumières
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor <robocor.glo...@gmail.com> wrote:
Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se
présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonjour,
Encore merci à JB
Le script fonctionne impeccable
Deux questions :
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
les modifications que j'ai essayées d'apporter n'ont pas fonctionnées
normal car je n'entrave pas grand chose à VBA...
Je pense avoir trouver
Le script qui inverse la situation est-il possible
Transformation de
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
en...
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
là c'est vrai j'ai le sentiment d'abuser....
Si, si !!!!
Juré je commence le VBA (puissant cette bête là)
Merci d'avance pour vos lumières
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se
présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire de ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE2021
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + LIBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ47000
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce forum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème avec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonjour,
Encore merci à JB
Le script fonctionne impeccable
Deux questions :
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
les modifications que j'ai essayées d'apporter n'ont pas fonctionnées
normal car je n'entrave pas grand chose à VBA...
Je pense avoir trouver
Le script qui inverse la situation est-il possible
Transformation de
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
en...
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
là c'est vrai j'ai le sentiment d'abuser....
Si, si !!!!
Juré je commence le VBA (puissant cette bête là)
Merci d'avance pour vos lumières
Bonjour,
Je pense avoir trouver la réponse à la première questionque faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
pour passer de
NCL LIBCL VILLE LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021
614 PIERRE DUPOND ROUEN stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240
632 NORBERT MARTIN AIX cendrier B3245
A
NCL LIBCL VILLE LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021 stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240 cendrierB3245
J'ai modifié le code de JB comme cela.
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
Sheets("résult").Cells(ligne, 3) = ActiveCell.Offset(0, 2)
c = 4
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 3)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 4)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
Le script qui inverse la situation est-il possible ?
Transformation de
NCL LIBCL VILLE LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021 stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240 cendrierB3245
en...
NCL LIBCL VILLE LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021
614 PIERRE DUPOND ROUEN stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240
632 NORBERT MARTIN AIX cendrier B3245
Merci d'avance pour vos lumièresBonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0 , 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se
présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire d e ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE20 21
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + L IBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ470 00
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce fo rum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème a vec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonjour,
Encore merci à JB
Le script fonctionne impeccable
Deux questions :
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
les modifications que j'ai essayées d'apporter n'ont pas fonctionné es
normal car je n'entrave pas grand chose à VBA...
Je pense avoir trouverLe script qui inverse la situation est-il possible
Transformation de
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
en...
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
là c'est vrai j'ai le sentiment d'abuser....
Si, si !!!!
Juré je commence le VBA (puissant cette bête là)
Merci d'avance pour vos lumières- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Je pense avoir trouver la réponse à la première question
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
pour passer de
NCL LIBCL VILLE LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021
614 PIERRE DUPOND ROUEN stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240
632 NORBERT MARTIN AIX cendrier B3245
A
NCL LIBCL VILLE LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021 stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240 cendrierB3245
J'ai modifié le code de JB comme cela.
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
Sheets("résult").Cells(ligne, 3) = ActiveCell.Offset(0, 2)
c = 4
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 3)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 4)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
Le script qui inverse la situation est-il possible ?
Transformation de
NCL LIBCL VILLE LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021 stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240 cendrierB3245
en...
NCL LIBCL VILLE LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021
614 PIERRE DUPOND ROUEN stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240
632 NORBERT MARTIN AIX cendrier B3245
Merci d'avance pour vos lumières
Bonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0 , 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor <robocor.glo...@gmail.com> wrote:
Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se
présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire d e ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE20 21
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + L IBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ470 00
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce fo rum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème a vec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonjour,
Encore merci à JB
Le script fonctionne impeccable
Deux questions :
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
les modifications que j'ai essayées d'apporter n'ont pas fonctionné es
normal car je n'entrave pas grand chose à VBA...
Je pense avoir trouver
Le script qui inverse la situation est-il possible
Transformation de
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
en...
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
là c'est vrai j'ai le sentiment d'abuser....
Si, si !!!!
Juré je commence le VBA (puissant cette bête là)
Merci d'avance pour vos lumières- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Je pense avoir trouver la réponse à la première questionque faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
pour passer de
NCL LIBCL VILLE LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021
614 PIERRE DUPOND ROUEN stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240
632 NORBERT MARTIN AIX cendrier B3245
A
NCL LIBCL VILLE LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021 stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240 cendrierB3245
J'ai modifié le code de JB comme cela.
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
Sheets("résult").Cells(ligne, 3) = ActiveCell.Offset(0, 2)
c = 4
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 3)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0, 4)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
Le script qui inverse la situation est-il possible ?
Transformation de
NCL LIBCL VILLE LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021 stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240 cendrierB3245
en...
NCL LIBCL VILLE LIBPDT NPDT
614 PIERRE DUPOND ROUEN ecritoire E2021
614 PIERRE DUPOND ROUEN stylo J1015
512 ROBERT DUVAL CAEN bloc notes V630
632 NORBERT MARTIN AIX cendrier B3240
632 NORBERT MARTIN AIX cendrier B3245
Merci d'avance pour vos lumièresBonsoir,
Sub essai()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Header:=xlYes
Range("a2").Select
ligne = 2
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
Sheets("résult").Cells(ligne, 2) = ActiveCell.Offset(0, 1)
c = 3
Do While ActiveCell = mmatricule
Sheets("résult").Cells(ligne, c) = ActiveCell.Offset(0, 2)
Sheets("résult").Cells(ligne, c + 1) = ActiveCell.Offset(0 , 3)
c = c + 2
ActiveCell.Offset(1, 0).Select
Loop
ligne = ligne + 1
Loop
Range("a2").Select
End Sub
http://cjoint.com/?iDuNxKZD6y
JB
On 29 août, 20:04, robocor wrote:Bonjour,
Voilà mon problème, a partir d'une base de données excel qui se
présente
sous cette forme
avec plusieurs enregistrements pour une même référence client (NCL +
LIBCL)(Total 47000 lignes)
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
Je dois obtenir une nouvelle base de données excel sous cette forme
Un seul enregistrement client par ligne avec les variables produit
(LIBPDT + NPDT) (total 24000 lignes)
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
Je prévois une solution qui passe par un tableau intermédiaire d e ce
type
J'ai ajouté une colonne NBPDT avec la formule NB.SI (de 1 à 17
variables produits)
NCL LIBCL NBPDT LIBPDT NPDT
LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND 2 ecritoire E2021 stylo J1015
614 PIERRE DUPOND 2 stylo J1015 ecritoireE20 21
512 ROBERT DUVAL 1 bloc notes V630
632 NORBERT MARTIN 2 cendrier B3240
cendrierB3245 B632 NORBERT MARTIN 2 cendrier
B3245 cendrierB3240
puis par un filtre élaboré pour éliminer les doublons (NCL + L IBCL)
Je bute sur les formules et puis copier des formules de F2 à AJ470 00
Donc je lance un SOS aux pros d'excel et de VBA qui font vivre ce fo rum
et qui sont à la base de tout ce que je sais d'excel
Quelqu'un a t-il rencontré et solutionné ce type de problème a vec VBA ?
D'avance merci à tous
Merci pour la réponse super rapide
Je teste le script
Bonjour,
Encore merci à JB
Le script fonctionne impeccable
Deux questions :
que faut-il modifier dans le script lorsque les colonnes à transposer
(libellé produit et le code produit se trouve en colonne 4) au lieu de
colonne 3 (si la colonne 3 contient des données adresses) ?
les modifications que j'ai essayées d'apporter n'ont pas fonctionné es
normal car je n'entrave pas grand chose à VBA...
Je pense avoir trouverLe script qui inverse la situation est-il possible
Transformation de
NCL LIBCL LIBPDT NPDT LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021 stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240 cendrierB3245
en...
NCL LIBCL LIBPDT NPDT
614 PIERRE DUPOND ecritoire E2021
614 PIERRE DUPOND stylo J1015
512 ROBERT DUVAL bloc notes V630
632 NORBERT MARTIN cendrier B3240
632 NORBERT MARTIN cendrier B3245
là c'est vrai j'ai le sentiment d'abuser....
Si, si !!!!
Juré je commence le VBA (puissant cette bête là)
Merci d'avance pour vos lumières- Masquer le texte des messages pré cédents -
- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -
- Afficher le texte des messages précédents -