transposition et dédoublonnage d'une Base

Le
robocor
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
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4758051
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
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


robocor
Le #4757911
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
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


robocor
Le #4680641
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
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...

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



robocor
Le #4675911
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
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






JB
Le #4675881
Bonjour,

Sub LigneColonne()
Sheets("BD").Select
Application.ScreenUpdating = False
Range("a2").Select
Racine = 2
Interv = 2
ligne = 2
Do While ActiveCell <> ""
c = Racine + 1
Do While ActiveCell.Offset(0, c) <> ""
For i = 1 To Racine
Sheets("résult").Cells(ligne, i) = ActiveCell.Offset(0, i -
1)
Next i
For i = 1 To Interv
Sheets("résult").Cells(ligne, Racine + i) =
ActiveCell.Offset(0, c - 2 + i)
Next i
c = c + Interv
ligne = ligne + 1
Loop
ActiveCell.Offset(1, 0).Select
Loop
Range("a2").Select
End Sub

http://cjoint.com/?jbkoQ45RNm

JB

On 1 sep, 09:09, robocor
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
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 -






Publicité
Poster une réponse
Anonyme