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

Question

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

OOoForum · Answer

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 
 


.

fred-macro-debutant · Answer

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

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

2 réponses

Discussions similaires