Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel besoin d'une petite macro vite fait

besoin d'une petite macro vite fait

6 réponses
Avatar
Passant
Bonjour

quelqu'un pourrait-il me faire une petite macro de 3 lignes svp ?
j'ai un classeur avec 26 feuilles de Feuil1 à Feuil26 et je cherche à
renommer rapidement les pages avec les 26 lettres de l'alphabet.
un habitué devrait en avoir pour 3 minutes, moi ç va me prendre 1
plombe pour trouver la syntaxe exacte :'(

Merci d'avance si quelqu'un s'y colle

J-L

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Passant
j'ai fais ça:

Public Sub RenommeFeuilles()
Dim x As Integer

For x = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets


End

End Sub

mais après je suis paumé :-(j'ai honte mais un moment de hont, c'est si
vite passé)

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce
Avatar
Jacky
Vite fait en 3 lignes
A condition que les 26 feuilles existes
'---------
For i = 1 To 26
Sheets(i + 64).Name = Chr(i + 64)
Next
'---------
Salutations
JJ

"Passant" a écrit dans le message de
news:
Bonjour

quelqu'un pourrait-il me faire une petite macro de 3 lignes svp ?
j'ai un classeur avec 26 feuilles de Feuil1 à Feuil26 et je cherche à
renommer rapidement les pages avec les 26 lettres de l'alphabet.
un habitué devrait en avoir pour 3 minutes, moi ç va me prendre 1
plombe pour trouver la syntaxe exacte :'(

Merci d'avance si quelqu'un s'y colle

J-L

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce



Avatar
Passant
en fait, c'est

For i = 1 To 26
ActiveWorkbook.Worksheets(i).Name = Chr(i + 64)
Next

Merci de m'avoir is sur la voie ... ;o)

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce
Avatar
bret17
A vue de nez je ferais une petite modification
Sheets(i + 64).Name = Chr(i + 64) NON !
plutôt
Sheets(i).Name = Chr(i + 64)



"Jacky" a écrit dans le message de
news:%
Vite fait en 3 lignes
A condition que les 26 feuilles existes
'---------
For i = 1 To 26
Sheets(i + 64).Name = Chr(i + 64)
Next
'---------
Salutations
JJ

"Passant" a écrit dans le message de
news:
Bonjour

quelqu'un pourrait-il me faire une petite macro de 3 lignes svp ?
j'ai un classeur avec 26 feuilles de Feuil1 à Feuil26 et je cherche à
renommer rapidement les pages avec les 26 lettres de l'alphabet.
un habitué devrait en avoir pour 3 minutes, moi ç va me prendre 1
plombe pour trouver la syntaxe exacte :'(

Merci d'avance si quelqu'un s'y colle

J-L

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce







Avatar
Jacky
A vue de nez
Ton nez voit bien
Merci d'avoir rectifié,c'était du vite fait ....mal fait
;o))
JJ

"bret17" a écrit dans le message de
news:O6%
A vue de nez je ferais une petite modification
Sheets(i + 64).Name = Chr(i + 64) NON !
plutôt
Sheets(i).Name = Chr(i + 64)



"Jacky" a écrit dans le message de
news:%
Vite fait en 3 lignes
A condition que les 26 feuilles existes
'---------
For i = 1 To 26
Sheets(i + 64).Name = Chr(i + 64)
Next
'---------
Salutations
JJ

"Passant" a écrit dans le message de
news:
Bonjour

quelqu'un pourrait-il me faire une petite macro de 3 lignes svp ?
j'ai un classeur avec 26 feuilles de Feuil1 à Feuil26 et je cherche à
renommer rapidement les pages avec les 26 lettres de l'alphabet.
un habitué devrait en avoir pour 3 minutes, moi ç va me prendre 1
plombe pour trouver la syntaxe exacte :'(

Merci d'avance si quelqu'un s'y colle

J-L

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce











Avatar
bret17
Errare humanum est !
Mais Passant l'avait rectifié de lui même.

@+Phil

"Jacky" a écrit dans le message de
news:
A vue de nez
Ton nez voit bien
Merci d'avoir rectifié,c'était du vite fait ....mal fait
;o))
JJ

"bret17" a écrit dans le message de
news:O6%
A vue de nez je ferais une petite modification
Sheets(i + 64).Name = Chr(i + 64) NON !
plutôt
Sheets(i).Name = Chr(i + 64)



"Jacky" a écrit dans le message de
news:%
Vite fait en 3 lignes
A condition que les 26 feuilles existes
'---------
For i = 1 To 26
Sheets(i + 64).Name = Chr(i + 64)
Next
'---------
Salutations
JJ

"Passant" a écrit dans le message de
news:
Bonjour

quelqu'un pourrait-il me faire une petite macro de 3 lignes svp ?
j'ai un classeur avec 26 feuilles de Feuil1 à Feuil26 et je cherche
à




renommer rapidement les pages avec les 26 lettres de l'alphabet.
un habitué devrait en avoir pour 3 minutes, moi ç va me prendre 1
plombe pour trouver la syntaxe exacte :'(

Merci d'avance si quelqu'un s'y colle

J-L

--
J-L M. (Alphomega)
Perso: http://alphomega.free.fr
Boulot: http://Ecilia.fr
Dodo: http://DansMonlit.fr
Pour m'écrire, cliquer le lien ci-dessous
http://cerbermail.com/?G5iYdBb2Ce