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

fouggy

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

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

Dranreb

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

Discussions similaires


Haut Bas