[Résolu][Calc] remplir première cellule vide

[RBod]

Bonjour,
J'essaie de faire un fichier de suivi de consommation de mon véhicule mais je ne sais pas comment faire pour que les dernières données saisies remplissent automatiquement la ligne et les cellules vides en dessous de celles déjà renseignées.
Merci de votre aide.
En PJ mon fichier.

[micmac]

Bonjour et bienvenue,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que les termes "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[Noonours]

Bonjour

Les méthodes gotoEndOfUsedArea ou QueryEmptyCells devraient répondre à tes attentes.
Les liens ICI et LA.

Ajout : Je viens de lire le codage de ta macro, et j'aurais quelques remarques (positives, hein? ) tu ne devrais pas nommer tes variables avec un nom que Basic reconnaîtrait comme une commande, par exemple, tu écris: Code : Tout sélectionner Dim Date As String La commande 'Date' renvoie une structure UNO qui n'est pas interprétée comme un chaine dec aracteres et peut provoquer des erreurs de calcul. Pour la recherche de la premiere ligne vide (ce qui est à la base ta question) j'ai utilisé la méthode QueryEmptyCells. je me suis aussi amusé à créer une boite de dialogue, je te laisse explorer tout ça dans le fichier joint lister_MOD.ods

COOordialement,

[RBod]

Merci Noonours.
Je débute en ne vois pas comment insérer ces fonction dans ma macro

[Dude]

Salut,

J'essaie de faire un fichier de suivi de consommation de mon véhicule

Mon conseil : se servir de l'excellent site SpritMonitor
h**ps://www.spritmonitor.de/fr/

[RBod]

Merci Noonours,
e vais tenté d'étendre aux autres champs de mon tableau ainsi que modifier la boîte de dialogue que je ne maîtrise pas du tout.
Encore un grand merci Noonours

[GNIN]

Bonjour,

Pour faciliter la lecture, formules mises entre balises par le modérateur.

Voici une fonction qui retourne le n° de la dernière ligne utilisée d'un onglet précis.
Il convient de passer en paramètre le nom de l'onglet

Code : Tout sélectionner

Public Function DerniereLigneUtilisee(Nomfeuille as string) as long
	 Dim D as object
	 Dim F as object
	 D=thiscomponent
	 Dim T as variant
	 F=D.Sheets.getByName(Nomfeuille)
	 T=F.RowDescriptions()
	 DerniereLigneUtilisee=Ubound(T)+1
End Function

Exemple: Je veux mémoriser dans une variable nommée "Derligne" la valeur de la dernière ligne utilisée de l'onglet "MENU"

Code : Tout sélectionner

Dim Derligne as long
Derligne=DerniereLigneUtilisee("MENU")

Maintenant que l'on connaît la valeur de la dernière ligne utilisée, supposons que l'on veuille se positionner juste après pour y écrire du texte.

On peut utiliser la fonction suivante qui permet de se positionner sur une cellule précise de l'onglet ACTIF:

Code : Tout sélectionner

Public Sub SelectCellule(C as string)
Dim Document as object
dim FeuilleActive as object
Dim Cellule as object
Document=Thiscomponent
FeuilleActive=document.currentselection.spreadsheet
Cellule=feuilleactive.getcellrangebyname(C)
document.currentcontroller.select(cellule)
End sub

Exemple d'utilisation (ici pour se positionner en cellule C1):

Code : Tout sélectionner

SelectCellule "C1" 

Dans notre cas, vu que la ligne à partir de laquelle on souhaite écrire est égale à la variable Derligne+1, on peut procéder comme ceci:
(on considère que la colonne est toujours C)

Code : Tout sélectionner

Derligne=Derligne+1
SelectCellule "C" & Derligne 
'concaténation

Nota: pour faire plus propre

Code : Tout sélectionner

SelectCellule "C" & trim(cstr(Derligne))

En espérant que cela t'aidera !

[Churay]

Bonsoir

Exemple : écrire la date saisie à la suite des saisies précédentes

Code : Tout sélectionner

Sub Main
Dim oSheet As Object, oCursor AS Object
Dim nRow AS Long, nDate As Double, sKm AS String
	oSheet = ThisComponent.getCurrentController.getactivesheet()
	oCursor = oSheet.createCursor : oCursor.gotoEndOfUsedArea(False)
	' EndRow = dernière ligne utilisée - 
	nRow = oCursor.RangeAddress.EndRow + 1 ' nRow = 1ère ligne libre

	nDate = DateValue(InputBox("Entrer la date"))
	IF nDate <> 0 Then oSheet.getCellByPosition(0,nRow).Value = nDate
End sub