logo Debian Debian Debian-France Debian-Facile Debian-fr.org Forum-Debian.fr Debian ? Communautés logo inclusivité

Debian-facile

Bienvenue sur Debian-Facile, site d'aide pour les nouveaux utilisateurs de Debian.

Vous n'êtes pas identifié(e).

#1 03-05-2023 11:49:54

le_lutin
Membre
Lieu : Alsace
Distrib. : Debian 12
Noyau : Linux 6.1
(G)UI : Gnome - IceWM
Inscription : 01-11-2019

[RÉSOLU] LibreOffice Calc : renommer des feuilles automatiquement

Bonjour,
J'ai un document Libreoffice Calc contenant 150 feuilles, et je souhaiterais les renommer automatiquement de " 1" à "150" tout en gardant leur ordre.
Avez-vous une méthode pour cela ?
merci.
Belle journée.

Dernière modification par le_lutin (05-05-2023 12:29:17)

Hors ligne

#2 03-05-2023 12:03:56

Anonyme
Invité

Re : [RÉSOLU] LibreOffice Calc : renommer des feuilles automatiquement

Bonjour,
Une méthode, oui : écrire une macro.
La solution, non.

#3 03-05-2023 18:58:27

le_lutin
Membre
Lieu : Alsace
Distrib. : Debian 12
Noyau : Linux 6.1
(G)UI : Gnome - IceWM
Inscription : 01-11-2019

Re : [RÉSOLU] LibreOffice Calc : renommer des feuilles automatiquement

ok, je vais me pencher là dessus.
Belle soirée.

Hors ligne

#4 05-05-2023 12:27:45

le_lutin
Membre
Lieu : Alsace
Distrib. : Debian 12
Noyau : Linux 6.1
(G)UI : Gnome - IceWM
Inscription : 01-11-2019

Re : [RÉSOLU] LibreOffice Calc : renommer des feuilles automatiquement

Bonjour,
voici la macro que j'ai utilisée


Sub RenommerToutesLesFeuilles()

Dim oDoc As Object
Dim oSheet As Object

oDoc = ThisComponent

For i = 0 To ThisComponent.Sheets.Count - 1
    oSheet = ThisComponent.Sheets(i)
    oSheet.Name = CStr(i +1)
Next i

End Sub


[RÉSOLU]

Hors ligne

Pied de page des forums