Bonjour,
Cela fait plusieurs jours que je cherche une solution à l'un de mes problèmes, sans résultat.
Débutant tout juste sur les VBA, il est également possible que je n'arrive tout simplement pas à faire fonctionner les éléments que j'ai trouvés.
Voilà mon problème :
Je souhaiterais que mes onglets se renomment automatiquement en fonction des données (dates) inscrites dans une plage de cellule.
Dans mon classeur, j'ai créé une feuille (données), dans laquelle sont inscrites des dates dans la colonne A (1er au 31 janvier).
Et je voudrais savoir comment faire en sorte que mes 31 autres onglets prennent automatiquement comme nom, les uns à la suite des autres, les dates inscrites dans cette colonne.
Ainsi, je n'aurais qu'à modifier le premier jour du mois (ex: 1er janvier en 1er février) pour que tous mes onglets en prennent automatiquement comme nom les jours d'un autre mois.
J'avais trouvé (désolée je ne me souviens plus où) un début de réponse grâce à :
Sub RenommerFeuille()
Dim i As Integer
i = 1
Dim NombreFeuilles As Integer
NombreFeuilles = Worksheets.Count
While i <= NombreFeuilles
Sheets(i).Name = Replace(Sheets(i).Range("A1").Value, "/", "")
i = i + 1
Wend
End Sub
qui me permet de donner le nom de la première cellule à l'onglet actif et cela, même s'il s'agit de date, mais je n'arrive pas (et ne sais pas) comment l'adapter à mon problème.
J'espère avoir été claire dans mes explications. Si ce n'est pas le cas, je joins mon classeur.
Merci.