LibreOffice Calc Générer du contenu multiple

Camille.98

XLDnaute Nouveau
Bonjour,

Je travaille sous libre office et je rame un peu sur mon sujet. J'ai fouillé un peu partout mais je n'ai pas trouvé de sujets ressemblant au mien.

Depuis plusieurs jours je cherche à créer une macro mais sans succès.

J'ai un onglet Feuille1 qui contient les données (liste dont le nombre de lignes varie), je cherche à transférer les données dans l'onglet Feuille2. J'ai fait une macro pour alimenter Feuille 2 mais je n'arrive pas à faire en sorte que les données de chaque ligne en Feuille1 alimentent chaque zone en Feuille2...

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Private Nom As String, Prénom As String, Adresse As String, Datenaissance As String, Lieunaissance As String

Sub Données ()

Dim oFeuilleBDD As Object
oFeuilleBDD=ThisComponent.getSheets.getByName("Feuille1")

'Récupération de la ligne active

For ligneactive = 4 to 8

Nom=oFeuilleBDD.getCellRangeByName("A"&ligneactive).String
Prénom=oFeuilleBDD.getCellRangeByName("B"&ligneactive).String
Adresse=oFeuilleBDD.getCellRangeByName("C"&ligneactive).String
Datenaissance=oFeuilleBDD.getCellRangeByName("D"&ligneactive).String
Lieunaissance=oFeuilleBDD.getCellRangeByName("E"&ligneactive).String

oFeuille=ThisComponent.getSheets.getByName("Feuille2")
oFeuille.getCellRangeByName("B2").String=Nom
oFeuille.getCellRangeByName("B4").String=Prénom
oFeuille.getCellRangeByName("B6").String=Adresse
oFeuille.getCellRangeByName("B8").String=Datenaissance
oFeuille.getCellRangeByName("D2").String=Lieunaissance

Next ligneactive

End Sub



Une idée pour m'aider à avancer ?

Merci d'avance et bonne fin de journée.
 

Pièces jointes

  • Générer fiche identité.xls
    15.2 KB · Affichages: 4