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

[fouggy]

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

 

[Dranreb]

Bonsoir.
Au cas où le "R" serait du à un format de cellule indépendant de sa valeur, essayez ActiveSheet.Name = cel.Text

 

[fouggy]

Bonsoir,

Merci de votre réponse, mais je dois placer cela ou dans la macro ?

 

[Dranreb]

Ben là où vous avez actuellement à la place ActiveSheet.Name = cel.Value comme avant dernière instruction.
Au lieu de la valeur de la cellule, ça prendra comme nom ce que vous y voyez, qui résulte de la combinaison de sa valeur avec son format.

 

[fouggy]

C'est Ok. Tip Top. L'erreur venait de là.

Un grand merci