renommer automatiquement le nom de l'onglet

Question

Bonjour, 

j'aimerai renommer automatiquement le nom de mes onglet, le problème est que le nom devra compiler du texte en a1 et du chiffre en a2
ex : a1=jean; a2=18 le nom de l'onglet devra être "jean 18"


merci d'avance

Configuration: Windows 7 / Internet Explorer 8.0

ccm81 · Answer

bonjour
dois tu le faire pour toutes les feuilles de ton classeur?
bonne suite

mickey · Answer

oui pour l'ensemble des feuilles de mon classeur. les valeurs et le texte à prendre en compte pour renommer mes onglets seront toujours placés au même endroit.

merci

ccm81 · Answer

re

une macro a mettre dans un module 
1. (Alt-F11 pour acceder à l'éditeur de macros)

Option Explicit

Public Sub RenommeFeuilles()
Dim NF As String
Dim numf As Long, nbf As Long
  nbf = ActiveWorkbook.Sheets.Count
  For numf = 1 To nbf
    NF = Sheets(numf).Range("A1").Value & " " & Sheets(numf).Range("A2").Value
    Sheets(numf).Name = NF
  Next numf
End Sub
2. copier/coller ceci
3. Exécuter la macro (Outils/macro/executer)

RQ. tu peux attribuer un raccourci clavier à cette macro (Outils/macro/options)

bonne journée

mickey · Answer

désolé mais ça ne marche pas,
les valeurs en haut de chaque feuilles (texte  + chiffres) qui vont devenir mon nom d'onglet sont tirées d'un tableau du premier onglet.
si dans mon tableau il n'y a pas de valeur la case en a2 est marquée "vide" et le chiffre en "b2" est marquée "1" sur la deuxième feuille "vide" "2" et ainsi de suite. je crois que la macro bloque sur le faite d'avoir "vide" sur plusieurs feuilles.
Je remarque aussi qu'il ne prend pas en compte la casse B2.


merci de m'aider encore

mickey · Answer

désolé ça marche,

je viens de remarquer une erreur de ma part, plusieurs feuilles n'avez rien en position a2 et b2 donc plusieurs feuilles qui avez le même nom donc pas possible.

merci de ton aide

Renommer automatiquement le nom de l'onglet

5 réponses

Votre réponse

Discussions similaires

Newsletters