[Résolu][Calc] fusionner deux colonnes en une seule

[parlapresente]

Bonjour,

Est-ce que vous savez s'il est possible de "concaténer" deux colonnes en une seule par une macro ?

Merci

[Dude]

Salut,

Fusionner et concaténer sont deux choses différentes.
Il s'agit juste de copier les deux colonnes en une seule vers une autre feuille.
As-tu essayé avec l'enregistreur de macro ?

[parlapresente]

Salut,

Non pas encore mais c'est possible quelle que soit la taille des colonnes ?
Comment faire ? un copier spécial ?

Merci

[OOo - Ekel]

Bonjour,

Si j'ai bien tout compris :

• il faut sélectionner tous les éléments de la colonne B et les copier.

• il faut ensuite les coller dans la colonne A.

Sans pour autant savoir où.

Cordialement.

[Dude]

quelle que soit la taille des colonnes ?

Tu veux sûrement dire le nombre de colonnes. Car la taille n'a rien à voir avec la copie.
Avec zBasic, il suffit de paramétrer les plages à parcourir :

Code : Tout sélectionner

Sub Main
	Globalscope.BasicLibraries.LoadLibrary( "zBasic" )
	
	aPlage = array("A2:A4", "B2:B3") 'définir ici les plages
	zFeuille.Cree("Récap")
	zCellule.Ecrit("Récap","A1","C","Concat")
	for each sPlage in aPlage
		nLigne = zPlage.LigneVide("Récap")
		zPlage.Copie("Entrée", sPlage, "Récap", "A" & nLigne)
	next
End Sub

[yclik]

Bonjour
Pour le fun une proposition avec macro qui copie les colonnes sur la même colonne

exemple2.ods

Sans doute il y a plus simple pour aller chercher la fin de la 1ere colonne pour ensuite coller la 2éme colonne
mais je débute

Ajout : Le code utilisé

Code : Tout sélectionner

Sub CopieColonneA
Dim oDoc as Object
Dim Sheets as object
Dim SheetSource as Object
Dim SheetCible as Object
Dim oPlage1 as Object
Dim oPlage2 as Object
dim oPlageCible1 as Object
dim oPlageCible2 as Object
dim oCellCible as string

	oDoc = thisComponent
	
    SheetSource = oDoc.Sheets.getByName("Entrée")
     SheetCible = oDoc.Sheets.getByName("Résultat attendu")
	
	oPlage1= SheetSource.getCellRangeByName("A2:A1000")
	oPlageCible1 = SheetCible.getCellRangeByName("A2:A1000")
	
' copie et colle les plages		
	Copie=oPlage1	 
    Colle=oPlageCible1
    Colle.DataArray = Copie.DataArray
     
'copie colonne B
Call CopieColonneB

End Sub


Sub CopieColonneB
Dim oDoc as Object
Dim Sheets as object
Dim SheetSource as Object
Dim SheetCible as Object
Dim oPlage1 as Object
Dim oPlage2 as Object
dim oPlageCible1 as Object
dim oPlageCible2 as Object
dim oCellCible as string

	oDoc = thisComponent
	
    SheetSource = oDoc.Sheets.getByName("Entrée")
     SheetCible = oDoc.Sheets.getByName("Résultat attendu")

' compage des lignes colonne A     
   For i = 1 to 10
   
    oCellCible1=SheetSource.getCellRangeByName("A"&i).String 'lire cellule a2
       count=count+1
       'print count
      ' print  oCellCible1
       if  oCellCible1 = "" then exit for
  
   next i
 
 ' print count ' pour test
	
	oPlage2= SheetSource.getCellRangeByName("B2:B1000") ' plage de 998 lignes
	oPlageCible2Debut="A"& count

	oPlageCible2Fin="A"&count+998 ' plage de 998 lignes
	oPlageCibleDebutFin=oPlageCible2Debut &":"& oPlageCible2Fin
'	print oPlageCibleDebutFin
	oPlageCible2 = SheetCible.getCellRangeByName(oPlageCibleDebutFin)
' copie et colle les plages	
	Copie=oPlage2	 
    Colle=oPlageCible2
    Colle.DataArray = Copie.DataArray
    
      

End Sub

[parlapresente]

Merci à tous les deux, je regarde ça.

[parlapresente]

Concernant la proposition avec zBasic :

Code : Tout sélectionner

Sub Main
	Globalscope.BasicLibraries.LoadLibrary( "zBasic" )
	
	aPlage = array("A2:A4", "B2:B3") 'définir ici les plages
	zFeuille.Cree("Récap")
	zCellule.Ecrit("Récap","A1","C","Concat")
	for each sPlage in aPlage
		nLigne = zPlage.LigneVide("Récap")
		zPlage.Copie("Entrée", sPlage, "Récap", "A" & nLigne)
	next
End Sub

le aPlage permet de choisir les plages à choisir mais comment on fait pour lui indiquer la feuille ?
Car j'ai modifié le "Entrée" du zPlage.Copie, mais ça ne semble pas changer grand chose, les données copiées viennent d'un autre onglet ?
Merci

[Dude]

Car j'ai modifié le "Entrée" du zPlage.Copie, mais ça ne semble pas changer grand chose, les données copiées viennent d'un autre onglet ?

Le code est donné en fonction du document que tu fournis au départ.
Si tu changes les informations, tu fournis un nouveau document sur lequel on puisse comprendre et reproduire ton problème.