Discussion :

[rogerfon]

Bonjour,
J'ai cherché , testé des tas de choses et c'est avec beaucoup de frustrations et soulagement que je fais appel à des personnes bcp plus compétentes que moi !

Voici la problématique : la secrétaire a reçu des feuilles de temps annuel d'employés ; la structure des données est chaque fois la même (ouf) mais il y a un problème , les personnes ont :
-nommé de manière aléatoires les onglets (parfois c'est 01, 1, jan, janv, JAN, janvier, etc.)
-classé de manière aléatoire

J'ai fait une moulinette pour récupérer et centraliser les données mais pour qu'elle fonctionne, il faudrait que les onglets portent toujours le même nom (1 ou janvier ex.) ; l'ordre n'a pas d'importance.

Il y a la cellule J2 qui reprend le mois de manière uniforme (1,2,3,4,..12) via une liste .... de l'idée de renommer tous les onglets de la feuille de calcul en fonction de la cellule J2 de chaque onglet (en sachant, que les onglets sont souvent classé dans le désordre).

Voici l'expression du besoin ; je n'ai pas été malin pour trouver la solution technique ; une fois de plus , je fais appel aux bonnes volontés :-)

Un très grand merci d'avance,
Roger

[pc75]

Bonjour,

Un truc comme ça (pas testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For i 1 = to ActiveWorkBook.Sheets.count
   Sheet(i).select
   Mois = Activesheet.Range("J2").value
   ActiveSheet.Name = Mois
Next

[Invité]

Bonjour,

PC75 a dégainé plus vite, voilà ce que je proposais.

Attention, la macro ne fonctionne que s'il n'y a pas doublon. Si doublon en J2, il faudrait tester le nom des onglets avant de les renommer et ajouter au nom Sheets.count pour dissocier les versions.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub RenommerLesOnglets()
 
Dim Sh As Worksheet
 
  For Each Sh In Sheets
 
        Sh.Activate
        Select Case Cells(2, 10)
 
          Case 1 To 12
 
              Sh.Name = "Mois " & Cells(2, 10)
 
        End Select
 
  Next Sh
 
End Sub

Cordialement.

[rogerfon]

Bonjour Eric, PC75,

Il y a du génie sur ce forum !
La solution d'Eric marche à merveille ! Je suis vraiment très content , la vie est belle :-) ; Merci bcp Eric, le moins que je puisse faire c'est partager ma satisfaction ; je suis certain que ça rendra des services à d'autres personnes ; je remercie également PC75.

Merci bcp et excellent we,
Roger