Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copie de données sur 2 colonnes à partir d'une seule

Copie de données sur 2 colonnes à partir d'une seule

10 réponses
Avatar
sinarker
J'ai une s=E9rie de 165 r=E9f=E9rences (colonne A) associ=E9s chaqu'un =E0
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le probl=E8me est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page =E0 imprimer par 2).
Le must est d'avoir 15 r=E9f=E9rences par colonnes donc 30 par page
chacune associ=E9es avec le code barre dont la r=E9f=E9rence est la
traduction.
A noter que mes donn=E9es initiales de la Feuil2 sont une copie des
r=E9f=E9rences ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide =E0 tous. J'=E9sp=E8re que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
jps
bonjour ponpon
cette macro signée frédéric sigonneau devrait faire ton affaire si j'ai bien
tout compris
essaie-la juste pour voir
HTH
jps
PS je vois que tu as 2 colonnes : je pense qu'il te faudra les traiter une
par une

a écrit dans le message de news:

J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)
Avatar
J
Bonjour
de notre ami FS, ne petite macro
cordialement
J@@
'********
Attribute VB_Name = "ImpressionColonnesRedecoupees3"
Option Explicit
'fs, mpfe

Sub FormatDécoupeColonnes()
Dim nSource As Range, nCol%, VoirOuPrint$, tmp$, pos%
Dim derLi&, colCount%, Msg$, Action$

On Error GoTo fin
'choix des colonnes à découper
Msg = "Sélectionnez une cellule dans chacune" & vbLf
Msg = Msg & "des colonnes à découper." & vbLf
Msg = Msg & "Les colonnes sélectionnées peuvent être" & vbLf
Msg = Msg & "contigues ou non." & vbLf
Msg = Msg & "(Exemples : $A$1 ou $A$1:$C$1 ou $A$1;$C$1, etc.)"
Set nSource = Application.InputBox(prompt:=Msg, Default:="$A$1",
Type:=8)
If nSource.Rows.Count <> 1 Then GoTo fin

'nombre de colonnes à obtenir
derLi = nSource.Range("A65500").End(xlUp).Row
colCount = nSource.Count
Msg = "Vous avez sélectionné " & colCount & " colonne(s) de " _
& derLi & " lignes." & vbLf
Msg = Msg & "Au lieu de " & colCount & ", combien voulez-vous" & _
" obtenir" & vbLf & "de colonnes par page à l'impression ?" & vbLf
Msg = Msg & vbLf & "Entrez un multiple de " & colCount & " :"
nCol = Application.InputBox(prompt:=Msg, Type:=1)

'que faire en fin de traitement
Msg = "Que voulez-vous faire en fin de traitement :" & vbLf
Msg = Msg & "Pour imprimer le résultat, tapez ""P"" ou ""p""" & vbLf
Msg = Msg & "Pour un aperçu avant impression, tapez ""A"" ou ""a"""
VoirOuPrint = Application.InputBox(prompt:=Msg, Default:="A", Type:=2)
If UCase(VoirOuPrint) = "P" Then
Action = "lancer l'impression"
Else: Action = "afficher un aperçu avant impression"
End If

'confirmation
Msg = "Nombre de colonnes à découper : " & colCount & vbLf
Msg = Msg & "Présentation du résultat : " & _
nCol & " colonnes par page" & vbLf
Msg = Msg & "Après redécoupage : " & Action & vbLf
Msg = Msg & vbLf & "Continuer ?"

If MsgBox(Msg, vbOKCancel) = vbCancel Then Exit Sub

'procédure de traitement
ImprimeEnColonnes nSource, nCol, VoirOuPrint
Exit Sub
fin:
If MsgBox( _
"Paramètres incorrects ou incomplets. Recommencer ?", _
vbYesNo) = vbYes Then
FormatDécoupeColonnes
End If
End Sub

Sub ImprimeEnColonnes(ByVal Source As Range, _
ByVal nbCol As Byte, _
ByVal Aperçu As String)
Dim FeuilleSource As Worksheet, FeuilleDest As Worksheet, Msg$
Dim derLi&, derCol%, colCount%, i&, liDep&, colDep%, liCount%
Dim ratio%, nbLiDecoupe&, reste%, y%, destAdresse$

On Error GoTo fin

'récupération des paramètres
liDep = Source.Range("A1").Row
colDep = Source.Range("A1").Column
derLi = Source.Range("A65500").End(xlUp).Row
colCount = Source.Count
liCount = liDep + derLi - 1
ratio = nbCol / colCount
nbLiDecoupe = Int(liCount / ratio)
reste = liCount - (nbLiDecoupe * ratio)

'préparation de la feuille de résultat
Set FeuilleSource = ActiveWorkbook.ActiveSheet
Application.ScreenUpdating = False
Set FeuilleDest = ActiveWorkbook.Worksheets.Add

'copie des colonnes à traiter
FeuilleSource.Activate
FeuilleSource.Range(Source.Address).EntireColumn.Select
Selection.Copy
FeuilleDest.Activate
FeuilleDest.Range("A1").PasteSpecial xlPasteAll
FeuilleDest.Range("A1").Select

'nouvelles coordonnées
colDep = 1
derCol = colDep + colCount - 1
destAdresse = Range(Cells(1, 1), Cells(1, derCol)).Address

With ActiveSheet
'découpage
i = 1
For y = 1 To ratio
If y = ratio Then nbLiDecoupe = nbLiDecoupe + reste
.Range(Cells(i, colDep), _
Cells(i + nbLiDecoupe - 1, derCol)).Select
Selection.Copy
.Cells(1, (y * colCount) + 1).PasteSpecial xlPasteAll
i = i + nbLiDecoupe
Next y

'minimum de mise en forme
.Range(destAdresse).EntireColumn.Delete
.UsedRange.Columns.AutoFit
.Range("A1").Select

'sortie du résultat
If UCase(Aperçu) = "P" Then
.PrintOut
Else
.PrintPreview
End If
End With
Exit Sub
fin:
MsgBox "erreur"
Application.ScreenUpdating = True
End Sub

'******


J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)



Avatar
sinarker
j ai essayer la macro le pb etant qu il me met l'erreur =#REF!+1 dans
le deuxieme colonne....
vu la complexité de la macro et mon niveau actuel dur de trouver l
erreur
cependant j'ai procédé à une autre méthode. j'utilise la fonction
DECALER sur ma 1ere colonne ce qui ne me permet de selectionner qu'une
seule donnée sur 2. J'applique cette fonction DECALEr sur 2 colones
quelconque de la 1ere a la 65356eme cellule des 2 colonnes je recupere
ainsi mes données sur 2 colonnes le seul ennui etant que j'ai des 0
comme resultat de la formule pour les cellules dont le formule
s'applique à partir de cellules vierges de la premieres colonnes
Et je n'arrive pas à supprimer ces zeros avec une macro...
Si qq connait la sol...
Avatar
J
Cher jps, bonjour
Pardonne cette petite question, mais aurais-tu envoyé la macro de FS en
mode subliminaire pour ne pas encombrer la bande passante?
Dans ce cas, merci de la part de tous les malheureux qui peinent à faire
circuler leurs modestes messages.

Ou bien ta confiance établie dans la justesse (bien connue ;-) )de mes
réponses t'a fait mettre une simple balise pour que l'ami ponpon ouvre
ses petits yeux devant le message de qualité arrivant d(un instant à
l'autre, à fond les manettes, du bout du monde.
J'apprécie cette marque de confiance ;-)

Quant à l'adaptation pour 2 colonnes, ma foi .....
@+
J@@



bonjour ponpon
cette macro signée frédéric sigonneau devrait faire ton affaire si j'ai bien
tout compris
essaie-la juste pour voir
HTH
jps
PS je vois que tu as 2 colonnes : je pense qu'il te faudra les traiter une
par une

a écrit dans le message de news:

J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)




Avatar
Clément Marcotte
Bonjour,

Ça doit être parce qu'il est train de faire de la place dans sa cave en
finissant les bouteilles de Beaujolais nouveau de l'an 2000 toujours
invendues. Et comme, il a besoin de faire des tests de goût approfondis; il
y a effectivement quelques risques de "prématurité" dans l'ensemble de son
(ses) oeuvre(s)


"J@@" a écrit dans le message de news:

Cher jps, bonjour
Pardonne cette petite question, mais aurais-tu envoyé la macro de FS en
mode subliminaire pour ne pas encombrer la bande passante?
Dans ce cas, merci de la part de tous les malheureux qui peinent à faire
circuler leurs modestes messages.

Ou bien ta confiance établie dans la justesse (bien connue ;-) )de mes
réponses t'a fait mettre une simple balise pour que l'ami ponpon ouvre ses
petits yeux devant le message de qualité arrivant d(un instant à l'autre,
à fond les manettes, du bout du monde.
J'apprécie cette marque de confiance ;-)

Quant à l'adaptation pour 2 colonnes, ma foi .....
@+
J@@



bonjour ponpon
cette macro signée frédéric sigonneau devrait faire ton affaire si j'ai
bien tout compris
essaie-la juste pour voir
HTH
jps
PS je vois que tu as 2 colonnes : je pense qu'il te faudra les traiter
une par une

a écrit dans le message de news:

J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)





Avatar
Modeste
Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :

Ça doit être parce qu'il est train de faire de la place dans sa cave en
finissant les bouteilles de Beaujolais nouveau de l'an 2000 toujours
invendues. Et comme, il a besoin de faire des tests de goût approfondis; il
y a effectivement quelques risques de "prématurité" dans l'ensemble de son
(ses) oeuvre(s)


eh non Clément !!!
A son grand regret, notre JPS n'est pas producteur de beaujolpaf...
mais c'est bien lui qui est chargé de liquider les invendus !!!
tu compatiras maintenant à propos de son abnégation à ne pas gaspiller...

--
--
@+
;o)))

Avatar
jps
merdum, j'ai dû coller ailleurs, J@@
ou alors, comme il m'arrive parfois, j'appâte, histoire de voir s'il y du
répondant pour un eventuel remercement AVANT d'avoir donné la réponse mais
c'est déjà si rare APRES....
enfin, Allah merci, tu étais là pour pallier mes séniles lagunes, comme
disait Marco Polo sur ses vieux jours
jps

"J@@" a écrit dans le message de news:

Cher jps, bonjour
Pardonne cette petite question, mais aurais-tu envoyé la macro de FS en
mode subliminaire pour ne pas encombrer la bande passante?
Dans ce cas, merci de la part de tous les malheureux qui peinent à faire
circuler leurs modestes messages.

Ou bien ta confiance établie dans la justesse (bien connue ;-) )de mes
réponses t'a fait mettre une simple balise pour que l'ami ponpon ouvre ses
petits yeux devant le message de qualité arrivant d(un instant à l'autre,
à fond les manettes, du bout du monde.
J'apprécie cette marque de confiance ;-)

Quant à l'adaptation pour 2 colonnes, ma foi .....
@+
J@@



bonjour ponpon
cette macro signée frédéric sigonneau devrait faire ton affaire si j'ai
bien tout compris
essaie-la juste pour voir
HTH
jps
PS je vois que tu as 2 colonnes : je pense qu'il te faudra les traiter
une par une

a écrit dans le message de news:

J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)





Avatar
jps
y a p'têt plus de HS mais les scuds continuent de pleuvoir, avec une forte
tendance d'origine Ouest
sors de ta cabane d'Abitibi, mon cher pape, et relève ta soutane car il va
te falloir courir encore plus vite qu'un orignal qui a pris un plomb dans le
derrièe...
jps

"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Ça doit être parce qu'il est train de faire de la place dans sa cave en
finissant les bouteilles de Beaujolais nouveau de l'an 2000 toujours
invendues. Et comme, il a besoin de faire des tests de goût approfondis;
il y a effectivement quelques risques de "prématurité" dans l'ensemble de
son (ses) oeuvre(s)


"J@@" a écrit dans le message de news:

Cher jps, bonjour
Pardonne cette petite question, mais aurais-tu envoyé la macro de FS en
mode subliminaire pour ne pas encombrer la bande passante?
Dans ce cas, merci de la part de tous les malheureux qui peinent à faire
circuler leurs modestes messages.

Ou bien ta confiance établie dans la justesse (bien connue ;-) )de mes
réponses t'a fait mettre une simple balise pour que l'ami ponpon ouvre
ses petits yeux devant le message de qualité arrivant d(un instant à
l'autre, à fond les manettes, du bout du monde.
J'apprécie cette marque de confiance ;-)

Quant à l'adaptation pour 2 colonnes, ma foi .....
@+
J@@



bonjour ponpon
cette macro signée frédéric sigonneau devrait faire ton affaire si j'ai
bien tout compris
essaie-la juste pour voir
HTH
jps
PS je vois que tu as 2 colonnes : je pense qu'il te faudra les traiter
une par une

a écrit dans le message de news:

J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)








Avatar
jps
addendum : les scuds partent aussi du Nord
jps

"Modeste" a écrit dans le message de news:
uP4VH%
Bonsour® Clément Marcotte avec ferveur ;o))) vous nous disiez :

Ça doit être parce qu'il est train de faire de la place dans sa cave en
finissant les bouteilles de Beaujolais nouveau de l'an 2000 toujours
invendues. Et comme, il a besoin de faire des tests de goût approfondis;
il
y a effectivement quelques risques de "prématurité" dans l'ensemble de
son
(ses) oeuvre(s)


eh non Clément !!!
A son grand regret, notre JPS n'est pas producteur de beaujolpaf...
mais c'est bien lui qui est chargé de liquider les invendus !!!
tu compatiras maintenant à propos de son abnégation à ne pas gaspiller...

--
--
@+
;o)))





Avatar
JB
Bonjour,

Convertit colonne en plusieurs colonnes:

http://cjoint.com/?hyisqD8Seb

Sub Imprime()
largeurDep = 2 ' largeur
hpageDest = 6 ' hauteur
ncolDest = 2 ' nb colonnes
ligneDep = 2
ligneDest = 2
'--------
nbenreg = Sheets(1).Range("A2").CurrentRegion.Rows.Count
Sheets(2).ResetAllPageBreaks
Sheets(2).Cells.Clear
Do While Cells(ligneDep, 1) <> ""
col = 1
Do While col <= ncolDest
Sheets(1).[a1:b1].Copy Sheets(2).Cells(1, (col - 1) * largeurDep +
1)
Cells(ligneDep, 1).Resize(hpageDest, largeurDep).Copy _
Sheets(2).Cells(ligneDest, (col - 1) * largeurDep + 1)
col = col + 1
ligneDep = ligneDep + hpageDest
Loop
Sheets(2).HPageBreaks.Add Before:Îlls(ligneDest + hpageDest, 1)
ligneDest = ligneDest + hpageDest
Loop
End Sub

Cordialement JB


J'ai une série de 165 références (colonne A) associés chaqu'un à
un code barre (colonneB) sur la Feuil2.
Il me faut imprimer cette liste.
Le problème est que je voudrai pour la mise en page de l'impression
placer cette liste sur 2 colonnes pour avoir 2 fois plus de references
par page (pour diminuer le nombre de page à imprimer par 2).
Le must est d'avoir 15 références par colonnes donc 30 par page
chacune associées avec le code barre dont la référence est la
traduction.
A noter que mes données initiales de la Feuil2 sont une copie des
références ( sans les codes barres) que la personne a saisies sur la
Feuil1...
Merci de votre aide à tous. J'éspère que vous pourrez me sortir de
l'impasse dans laquelle je me trouve.
PonPon :)