LibreOffice - macro : création d'onglet après le dernier onglet existant

fred-macro-debutant Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
fred-macro-debutant Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai une macro qui fonctionne sur Excel mais depuis peu je reviens vers le libre ... ;-)

Je souhaite créer un onglet qui porte le nom du contenu des cellules (I1 à I30) tout va bien sauf que libreOffice me les met en premier et en ordre inverse alphabétique.
Elle est en dessous ou alors j'ai tout faux !

Merci de votre aide !
Cordialement,


Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Sub creereleve()
Sheets("crééeleve").Select
For Each cell In Range("I1:I30")

Set feuille = Worksheets.Add(After:=Worksheets(Worksheets.Count))

feuille.Name = cell.Value
Next cell
End Sub

Configuration: Windows / Firefox 93.0
A voir également:

2 réponses

OOoForum Messages postés 3873 Date d'inscription   Statut Membre Dernière intervention   961
 
Tentez une conversion depuis du VBA made in Microsoft n'est pas une bonne idée.
Il vaut mieux coder en Basic directement.
Voyez ceci : https://forum.openoffice.org/fr/forum/ftopic46935-fonction-creation-feuille-depuis-liste.html



.
1
fred-macro-debutant Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Désolé d'avoir tardé de répondre mais j'étais un peu découragé !
Je cherchais une telle aide c'est très claire ces exemples ...
Merci beaucoup
Bien cordialement
FF
0