[Résolu][Calc] insérer des lignes pré-remplies

[THOMASLBT]

Bonjour,

Je sollicite votre aide car je suis novice en macro.

J'ai créé deux boutons :
-> "Ajouter un véhicule" qui me permettrai d’insérer un véhicule type vierge (avec ses formules et menu déroulant) en dessous des autres au fur et à mesure.
Je souhaiterai pouvoir choisir le nom du véhicule par un menu déroulant avant que la macro soit exécutée.

-> "supprimer un véhicule" qui permettrai de supprimer un véhicule lorsque je le sélectionne.

Merci par avance pour votre aide précieuse

[micmac]

Bonjour et bienvenue,

1- Sujet redirigé vers la section Macros et API et balisé [Calc].

2- 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, 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 au risque de voir votre sujet verrouillé.

Merci de votre collaboration.

[Dude]

Salut,

Sans macro, le tutoriel ultime :
[Calc] Tout sur les listes déroulantes

Sinon, si tu veux vraiment programmer, direction les suprêmes de code :
[Calc] Contenu de liste liée à une autre

[THOMASLBT]

Merci pour ses liens mais ce n'est pas vraiment ce que je recherche.

Je souhaite copier coller à la suite à l'aide une macro/bouton.

Si quelqu'un si connaît en codage...

Merci

[Dude]

Merci pour ses liens mais ce n'est pas vraiment ce que je recherche.

Et pourtant tu demandes :

avec ses formules et menu déroulant

Ce n'est pas un menu mais une liste déroulante.
Reporte toi sur les tutoriels que je te donne.

Dans tous les cas, le document que tu donnes n'est pas fonctionnel.
Où se trouve les informations "véhicule" qui seront insérées ?

[THOMASLBT]

Il s'agit d'un fichier de partage et non de mon vrai fichier (données que je ne peux pas partager)

J'ai essayé cette macro pour copier/coller (sélection de ce que je veux copier/coller) :

Code : Tout sélectionner

Sub inserapres
Dim oFeuille, selection, maLigne, oDoc, sel As Object
dim document  as object
dim dispatcher as object
Dim NomFeuille as string
Dim i as integer

    oDoc = ThisComponent
    document   = oDoc.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    oFeuille = oDoc.CurrentController.ActiveSheet
    NomFeuille = oFeuille.name
        
    verrouoff
	selection = oDoc.currentSelection
	if (selection.supportsService("com.sun.star.table.Cell")) then
		MsgBox("Aucune ligne sélectionnée", 48, "Attention !")
	verrouon	
		Exit Sub
	end if
	
	i = selection.RangeAddress.StartRow  
	sel = odoc.CurrentSelection.Rows
	ligne = sel(0).RangeAddress.StartRow
	feuille = sel(0).Spreadsheet
	
	    feuille.Rows.insertByIndex(ligne+4,4)
		feuille.copyRange(feuille.getCellByPosition(0,ligne+4).CellAddress, feuille.Rows(ligne).RangeAddress)
		feuille.getCellRangeByPosition(0, ligne+4, sel(0).RangeAddress.EndColumn, ligne+4).clearContents(15)

verrouon
  	
  	  	
End sub

Par contre, elle me colle que les formules de la première ligne alors que je veux coller les formules des 4 lignes (correspondant à un véhicule).

Merci de ton aide

[Dolev]

Bonsoir,

Je ne comprends pas non plus le résultat qui doit être obtenu.
Ton document ne contient ni la macro, ni formule, ni liste.
En plus, tu as des cellules fusionnées, ce qui complique les choses.

Il s'agit d'un fichier de partage et non de mon vrai fichier (données que je ne peux pas partager)

On ne demande jamais les vraies données mais quelque chose de fonctionnel.
Lis ce sujet pour anonymiser ton document correctement : https://forum.openoffice.org/fr/forum/v ... =1&t=10246

[THOMASLBT]

Voici un fichier fonctionnel sans données personnelles.

Le but est lorsque je clique sur "ajout d'un équipage" cela ajoute une ligne vierge "véhicule" en dessous des autres en choisissant le n° de véhicule (et en copiant les formules).

Egalement pour le bouton supprimer un "équipage", sélectionner le n° de véhicule pour le supprimer

Merci

[jeanmimi]

Bonjour,
L'appel de données à partir d'une référence ou d'une donnée se fait souvent par RECHERCHEV, dans ce cas, les données de la source s'affichent les unes à côté des autres dans différentes cellules.
Est-ce un effet identique qui est attendu ?

[THOMASLBT]

Un véhicule est composé de 4 employés. Par exemple, le véhicule n°1 est A10:L13.

Je souhaite lorsque je clique sur le bouton "ajout d'un équipage", qu'un véhicule vierge (avec les formules) soit inséré en dessous des autres.

Ex : ajout d'un équipage > ajout d'un véhicule n°3 vierge en dessous du n°2 (A14:L17).
ajout d'un équipage > ajout d'un véhicule n°4 vierge en dessous du n°3

[jeanmimi]

L'exemple dans la feuille du fichier montre qu'on ne peut aouter que 2 véhicules, mais je suppose que si on veut en ajouter d’avantage, il faudra créer de nouvelles lignes au-dessus des boutons. C'est ça ?

[THOMASLBT]

Oui exactement.

[jeanmimi]

J'ai l'impression que ce que tu veux faire est plus aisé avec Base.
Cependant, tu as une ressource qui semble correspondre ici dans Calc :
https://forum.openoffice.org/fr/forum/v ... es#p301940

[THOMASLBT]

Oui j'ai vu ce post. Néanmoins, je n'y connais rien en macro...

[jeanmimi]

Si tu n’y connais rien en Macros, tu peux faciliter l’aide à t’apporter en suivant le conseil que t’as donné Dolev.

[Dolev]

Re,

Ton document fonctionne chez moi si j'enlève l'appel à la fonction verrouon.

[THOMASLBT]

Re,

Contrairement à moi... Il me copie juste les formules de la première ligne

[Dolev]

Passe à OpenOffice alors