XL 2010 Générer et renommer automatiquement les onglets créés en fonction de variables par VBA

[BtoBB]

Débutant en VBA, je bute sur une macro pour renommer des onglets.

Voici ma problématique (Excel 2010 et 2016, Office 365) :
- Les noms des onglets sont stockés dans la colonne B, de la feuille "Récapitulatif", (cellules B5 à B74, dont certaines peuvent être vides et par conséquent; l'onglet n'existe pas si une cellule est vide).
- Les noms des cellules peuvent-être alphanumérique ou numérique.
- On renomme à partir du 4ème onglet vers la droite.

Et voici ce que j'ai écrit et qui ne fonctionne pas :

Sub Renom_feuille()
Set i = Range("B5:B74")
For i = 4 To Sheets.Count
Sheets(i).Name = Left([B:B].Cells(i), 31)
Next i
End Sub


Quelqu'un peut-il m'aider, SVP. pour compléter et corriger cette macro ?
Merci d'avance.

 

[pierrejean]

Bonjour BtoBB

Tu peux t'inspirer de cette macro

Sub Renom_feuille()
For Each cel In Range("B5:B74")
If cel.Value <> "" Then
 On Error Resume Next
   Set w = Sheets(cel.Value)
   If Err.Number <> 0 Then
       Sheets.Add.Name = cel.Value
       ActiveSheet.Move after:=Sheets(Sheets.Count)
   End If
 On Error GoTo 0
End If
Next
End Sub

 

[BtoBB]

Bonjour pierrejean

Pardon pour mon retard à répondre car j'ai du m'absenter.

Je viens de tester ta macro...
C'est génial, elle fonctionne parfaitement !!!

Un grand merci qui me dépanne bien.