[Résolu][Calc] Position sur la 1ere ligne vide d'un tableau

[maclode1950]

Bonjour,

je suis actuellement entre train de faire une macro via un bouton qui va me permettre de copier coller une ligne dans un tableau (sur la même feuille mais plus bas).
L'utilisateur clique, la ligne 2 (par exemple) est copiée une première fois à la ligne 22, mais je voudrais qu'ensuite si l'utilisateur reclique sur le bouton, la ligne 2soit collée sous celle déjà colléesoit, dans la ligne 23, et ce autant de fois qu'on appuie sur le bouton ...
Une piste ?

Actuellement j'arrive à copier coller mais évidemment, ça copie colle toujours sur la ligne 22 ...
Je pense qu'il me faut récupérer le numéro de ligne de la première colonne par exemple qui est vide (dans la palge de cellules où je commence à coller), et rajouter 1 mais bon ...

Code : Tout sélectionner

Sub Test_copie() 
Dim Args(),Opts()
Dim i as integer
Dim k as string
Dim monDocument As Object
Dim maFeuille As Object
Dim maCellule As Object

    

i=9
if 
maCellule = maFeuille.getCellByPosition(i,1)   
' Classeur courant
Doc = ThisComponent
SheetCopy = Doc.Sheets().getByName("Gestion")
' on copie la plage de cellules source
oRange = SheetCopy.getCellRangeByName("A2:G2")
da = oRange.getDataArray
' on choisit la feuille de destination


SheetPaste = Doc.Sheets().getByName("Gestion")
' on colle la plage de cellules source dans la plage destination
oRange = SheetPaste.getCellRangeByName("A" & i & ":G" & i) 'la plage doit être de même taille que celle de la source


oRange.setDataArray(da)
End Sub

Merci !

[Dude]

Redif : https://forum.openoffice.org/fr/forum/v ... o%2A+copie

[maclode1950]

Merci mais il me semble qu'il ne s'agit pas du même langage d'écriture dans le post cité

[TheHache]

Bonjour,

Fournis nous ton classeur dépersonnalisé, le code que tu fournis contient des erreurs ( if seul sans then !! à la 11ème ligne).

Et cela évitera de créer nous même le classeur.

@+

[maclode1950]

le voici, après c'est un simple fichier
Le code "propre"

Code : Tout sélectionner

Sub Test_copie() 
Dim Args(),Opts()
Dim i as integer
Dim k as string
Dim monDocument As Object
Dim maFeuille As Object
Dim maCellule As Object

    

i=9
 
' Classeur courant
Doc = ThisComponent
SheetCopy = Doc.Sheets().getByName("Gestion")
' on copie la plage de cellules source
oRange = SheetCopy.getCellRangeByName("A2:G2")
da = oRange.getDataArray
' on choisit la feuille de destination


SheetPaste = Doc.Sheets().getByName("Gestion")
' on colle la plage de cellules source dans la plage destination
oRange = SheetPaste.getCellRangeByName("A" & i & ":G" & i) 'la plage doit être de même taille que celle de la source


oRange.setDataArray(da)
End Sub

[TheHache]

Juste avant ton collage, écris ceci :

Code : Tout sélectionner

Do while SheetPaste.getCellRangeByName("A" & i).STRING <> "" 
	i = i + 1
Loop

Cela te permets de boucler sur les lignes, à compter de la 9, jusqu'à la prochaine vide en colonne A.

@+

Ajout : Tu n'as pas corrigé ton code dans ton fichier joint !!!

[maclode1950]

Merci !

[Piaf]

Bonjour
Pour éviter la boucle tu peux faire une recherche sur queryEmptyCells
A+