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 58845 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 31 janvier 2025 - 9 avril 2015 à 02:07
Raymond PENTIER Messages postés 58845 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 31 janvier 2025 - 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
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
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
58845
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
31 janvier 2025
17 276
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
58845
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
31 janvier 2025
17 276
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.