Discussion :

[micmor]

bonjour


J'ai trouvé dans ce site, une macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub BoucleTableauxFeuille()
Dim Ws As Worksheet
Dim ListObj As ListObject
 
Set Ws = Worksheets("Données brutes")
 
For Each ListObj In Ws.ListObjects
    MsgBox ListObj.Name & " : " & ListObj.Range.Address & vbCrLf & _
    "Style: " & ListObj.TableStyle
Next
End Sub

qui permettrait, si j'ai bien compris, de "boucler" un tableau se trouvant sur une feuille.

J'ai changé Ws = Worksheets("feuill1") en Ws = Worksheets("Données brutes") mais, je pense qu'il manque les références de mon tableau.

Pouvez-vous m'aider ?

[Patrice740]

Bonjour,

Cette macro en VBA affiche successivement le nom des différents tableaux structurés situés sur une feuille Excel.

Ce n'est pas une macro LibreOffice Basic.

PS : Libre Office ne reconnait pas les tableaux structurés d'Excel.

[micmor]

Bonjour,

Ok merci pour l'explication



Je cherche le moyen de répéter un tableau se trouvant sur une feuille autant de fois que nécessaire. Je suppose que c'est possible avec des macros openoffice / libreoffice, mais concernant les macros, je suis nul part et je ne sais pas par où commencer.

Je cherche pour le moment, des exemples de code afin d'apprendre mais j'en trouve beaucoup pour excel et pas pour libOO. J'ai sûrement mal cherché mais je n'en trouve pas.

[Patrice740]

Bonjour,

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Sub CopyTableau()
 Dim Classeur as Object
 Dim Feuille as Object
 Dim Tableau as Object
 Dim Cible as Object
 Dim Copie as Object
	Classeur = thisComponent
	Feuille = Classeur.Sheets.getByName("Feuille1")
	Tableau = Feuille.getCellRangeByName("A1:D4")
	Classeur.CurrentController.select(Tableau)
	Copie = Classeur.CurrentController.getTransferable()
	Cible = Feuille.getCellRangeByName("C22")
	Classeur.CurrentController.select(Cible)
	Classeur.CurrentController.insertTransferable(Copie)
End Sub

[Malick]

Salut,

Voici un tutoriel pour apprendre à utiliser les macros sous LibreOffice Calc : Utiliser oBasic dans le Tableur (Calc)

Bonne lecture

[micmor]

Bonjour

Merci à vous deux pour votre aide.

Malik , je vais aller lire le lien que tu m'as transmis

Patrice740 , j'ai essayé ton code et effectivement celui-ci fait bien la copie de mon tableau , merci à toi.

Mais j'ai deux soucis

1° il copie les formules de mon tableau de départ et j'aimerai n'avoir que les valeurs et non les formules du tableau de départ. Sinon lors de la copie il modifie les valeur en fonction de la zone de copie d'où des erreurs #REF
2° De plus j'aimerai ajouter une boucle pour que la copie soit répétée autant de fois que nécessaire.

Après lecture de la docu et recherche çi et là, j'ai trouvé un code (il devrait copier que les valeurs et non les formules) et je l'ai modifié en tenant compte des infos de ton code et de la docu mais il y a un problème donc je n'ai pas pu vérifier le résultat

Ou peut-on modifier ton code pour qu'il ne copie que les valeurs et non la formule pour éviter un problème de référence ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 Option Explicit
        Sub CopyTableau()
         Dim Classeur as Object
         Dim DonneesCopier, DonneesColler, oRange, da as Object
         Dim nbreMois, i As Integer
         Dim Args(),Opts()
 
 
 
 
Classeur = ThisComponent          
DonneesCopier = Classeur.Sheets().getByName("Données brutes")
nbreMois = DonneesCopier.getCellRangeByName("AA13")
' on copie la plage de cellules source
oRange = DonneesCopier.getCellRangeByName("AD2:AI205")
da = oRange.getDataArray
' on choisit la feuille de destination
DonneesColler = Classeur.Sheets().getByName("Données brutes")
' on colle la plage de cellules source dans la plage destination
oRange = DonneesColler.getCellRangeByName("AM2:AS205") 'la plage doit être de même taille que celle de la source
 
 
oRange.setDataArray(da)
 
 
End Sub

Le problème, il y a une erreur d'exécution au niveau de la ligne "oRange.setDataArray(da)"
Erreur de variable ?

Pour la boucle j'avais imaginé de mettre quelque chose comme cela

nbreMois , donnée venant de la feuille "Données brutes"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i=0 to nbreMois-1
oRange.setDataArray(da)
next

C'est correcte ?




Merci