Numéro de page avec une lettre alphabétique
Fermé
mtlbp
Messages postés
1
Date d'inscription
mardi 7 avril 2015
Statut
Membre
Dernière intervention
7 avril 2015
-
7 avril 2015 à 17:32
Raymond PENTIER Messages postés 58398 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 avril 2024 - 9 avril 2015 à 02:07
Raymond PENTIER Messages postés 58398 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 28 avril 2024 - 9 avril 2015 à 02:07
A voir également:
- Numéro de page avec une lettre alphabétique
- Supprimer une page word - Guide
- Word numéro de page 1/2 - Guide
- Numero prive - Guide
- Traduire une page web - Guide
- Créer une page facebook - Guide
4 réponses
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
7 avril 2015 à 21:56
7 avril 2015 à 21:56
Salut,
Tu as combien de pages ?
Tu as combien de pages ?
Raymond PENTIER
Messages postés
58398
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 avril 2024
17 094
Modifié par Raymond PENTIER le 8/04/2015 à 01:36
Modifié par Raymond PENTIER le 8/04/2015 à 01:36
Tu auras la réponse dans https://faqword.com/
C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond (INSA, AFPA, CF/R)
C'est bien, la retraite ! Surtout aux Antilles ... :-)
Raymond (INSA, AFPA, CF/R)
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
8 avril 2015 à 18:44
8 avril 2015 à 18:44
Bonjour,
Voici un code vba qui implique que tu as une feuille nommée Feuil1. A toi de l'adapter avec le nom de ta 1ère feuille:
Voici un code vba qui implique que tu as une feuille nommée Feuil1. A toi de l'adapter avec le nom de ta 1ère feuille:
Sub Renommer_Sheet()
Dim i, rep As Integer
Sheets("Feuil1").Select
'alphabet colonne A Feuille1
Range("A1").Select
ActiveCell.FormulaR1C1 = "a"
Selection.AutoFill Destination:=Range("A1:A26"), Type:=xlFillDefault
Range("A1:A26").Select
rep = InputBox("Nombre de Feuilles renommer")
For i = 2 To rep 'demarre après Feuille1
Worksheets(i).Name = i & Sheets("Feuil1").Cells(i, 1)
Next i
Sheets("Feuil1").Select
ActiveSheet.Name = "1a" 'renomme Feuil1
End Sub
Raymond PENTIER
Messages postés
58398
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 avril 2024
17 094
9 avril 2015 à 02:07
9 avril 2015 à 02:07
Salut, mtlbp.
Ne t'inquiète pas des notes négatives qu'un petit fûté a cru intelligent d'attribuer aux derniers messages : Ils sont corrects et répondent à ta demande.
Cordialement.
Ne t'inquiète pas des notes négatives qu'un petit fûté a cru intelligent d'attribuer aux derniers messages : Ils sont corrects et répondent à ta demande.
Cordialement.
