[Résolu][Calc]copier coller ne fonctionne qu'une seule fois

[fredbly]

Tout d'abord bonjour à tous et merci de m' accueillir sur ce Forum.

Merci de lire le bandeau rouge en tête de cette section pour un balisage correct de votre question

Après plusieurs heures d'acharnement, je jette l'éponge et sollicite donc un peu d'aide.
ci joint le fichier objet de mes interrogations.

dans la première feuille "relevés compteurs" on saisie de nouvelles données en ligne 6
ensuite à l'aide du bouton "archive" on sollicite une macro qui archive et tri les données.
le souci est que cela ne fonctionne qu'une seule fois, ensuite ce sont les mêmes données qui sont copiées dans l'avant dernière feuille "archivesaisies"
j'ai l'impression que les cellules copier sont en mémoire dans le presse papier...Bon courage et merc par avance.

[Churay]

Bonsoir;

Pour la partie copie dans la feuille 9 (archivessaisies), le code (plus compact) qui suit le fait très bien :

Code : Tout sélectionner

Sub Archive2
Dim oSheetSrc AS Object, oSheetCbl AS Object, oCursor AS Object, oCiBle AS Object
Dim nRow AS Long, aDatas()
	oSheetSrc = thisComponent.Sheets.getByName("relevés compteur")
	oSheetCbl = thisComponent.Sheets.getByName("archivessaisies")
	oCursor = oSheetCbl.createCursor : oCursor.gotoEndOfUsedArea(False)
	nRow = oCursor.RangeAddress.EndRow+1
	aDatas = oSheetSrc.getCellRangeByPosition(0,5,8,5).DataArray
	oCible = oSheetCbl.getCellRangeByPosition(0,nRow,8,nRow)
	oCible.setDataArray(aDatas)
End Sub

Pour le traitement dans la page précédente, je te laisse chercher un peu

[fredbly]

Merci Churay, c'est magique. cependant je n'y ai rien compris. actuellement j'enregistre des macro avec l'aide de l'outil macro je trouve donc très rapidement mes limites.
Le fait est que j'ai un autre programme dans le même style… pourquoi lorsque j'enregistre la macro, tout fonctionne et ensuite … Encore merci

[micmac]

Bonjour et bienvenue sur le forum,

OpenOffice 2.4 sous Windows 7

Votre signature fait mention d'une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un oubli, un choix, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par Obligation de version.
Si c'est une version de LibreOffice que vous n'avez pas pu entrer, essayez de nouveau.

Pour connaître la version que vous possédez : https://forum.openoffice.org/fr/forum/v ... 582#p11582

Afin de profiter des dernières améliorations, il est fortement recommandé d'être à jour de la dernière version

Dans votre signature il est nécessaire d'indiquer :
1- La version exacte de AOO ou LibO (AOO 4.1.6, LibO 6.1.5 par exemple) ;
2- La version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Ubuntu 18.10, MacOS 10.14.2 par exemple).
Accès direct à votre signature pour la corriger.

Problème résolu ?

Il est d'usage d'éditer le titre de votre premier message pour ajouter manuellement, au début du titre, la balise [Résolu] (avec un R majuscule sans oublier le e accentué, le tout entre crochets) et de cocher l'icône .



Cordialement.

[fredbly]

Bonjour, je vous sollicite de nouveau pour une macro que je pensai simple à réaliser mai qui en fait ne fonctionne qu'une seule fois.
Ci joint le fichier, je souhaite copier A11 de la feuille "calculatrice fin de mois" en B14 feuille "fin de mois". Et si en plus d'un solution j'ai une basique explication ce serait le top.
Au cas ou vous auriez un doute, je suis novice en macro et n'utilise que la fonction simplifié "outil..." Merci par avance.

[boulauventre]

Bonjour,

Voici en PJ ton fichier corrigé.

Explications :

Code : Tout sélectionner

		monDocument = ThisComponent
    	lesFeuilles = monDocument.Sheets
    	maFeuille = lesFeuilles.getByName("calculatrice fin de mois")
    	maCellule = maFeuille.getCellRangeByName("A11")
    	Nb1 = maCellule.Value
    	
    	maFeuille = lesFeuilles.getByName("fin de mois")
    	maCellule = maFeuille.getCellRangeByName("B14")
    	maCellule.Value = Nb1

J'ai mis dans une variable ta cellule A11 et copié cette variable dans la cellule B14 de l'autre feuille.

Est-ce ce que tu souhaitais ?

Boulauventre

[Bidouille]

Pour la bonne tenue de ce forum, vous êtes prié de ne pas ouvrir de multiples questions pour un problème déjà en cours.
Fil fusionné avec le précédent.

Et vous êtes également invité à donner suite à ce que demande le modo quant à votre signature.

[fredbly]

Merci beaucoup, ça fonctionne, et bien pris pour les remarques de Bidouille.