Rapport de message :*
 

Créer feuilles à partir des cellules d'une colonne

Titre du sujet : Créer feuilles à partir des cellules d'une colonne
par keepCool le 11/09/2018 21:33:41

Bonjour le forum,

 

Je souhaite créer et nommer des feuilles à partir du contenu des cellules contenues dans ma colonne A.

 

Les cellules de ma colonne A contiennent toutes une lettre suivi de chiffres. 

 

Avec la macro élaborée ci-dessous, cela le fait très bien sauf que la lettre précédent les chiffres n'est pas prise en compte et les feuilles se nomment 1, 2, 12345... au lieu de R1, R2, R12345...

 

Quelqu'un peut-il me dire ou cela pèche ?

 

Merci par avance de vos réponses.

 

Sub Test_création_de_feuilles()
Dim cel As Range

With Worksheets("Feuil1")
'derniere cellule non vide colonne A
derlig = .Range("A" & Rows.Count).End(xlUp).Row
'mise en memoire plage cellules
Set Plage = .Range("A2:A" & derlig)
End With
'boucle balayage plage
For Each cel In Plage
' Création d'une nouvelle feuille
Sheets.Add After:=Sheets(Sheets.Count)
'nom feuille
ActiveSheet.Name = cel.Value
Next cel
End Sub