LibreOffice - macro : création d'onglet après le dernier onglet existant
fred-macro-debutant
Messages postés
8
Statut
Membre
-
fred-macro-debutant Messages postés 8 Statut Membre -
fred-macro-debutant Messages postés 8 Statut Membre -
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
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
2 réponses
-
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
. -
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
