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

BtoBB

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour BtoBB

Tu peux t'inspirer de cette macro

Code:
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

XLDnaute Nouveau
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.
 

Discussions similaires


Haut Bas