ONGLET

[EMMANUEL]

Bonsoir,
j'ai une liste sur une feuille excel
a
b
c
d
e
....
et je recherche un moyen rapide de créer des onglets qui reprennent
les valeurs de la liste
soit onglet
a
b
c
d
e
....
je suis débutant en vba?

MERCI

 

[pat1545.]

Salut,

avec sélection préalable des cellules qui contiennent les futurs noms: (ne ressemblant pas à des noms de colonnes a, b , c ou date , etc...)


Option Explicit

Sub nommer()
Dim cell
For Each cell In Selection
Sheets.Add
ActiveSheet.Name = cell.Value
Next
End Sub

 

[EMMANUEL]

Super
merci bcp
c'est ce que je cherchais
une formule pas trop compliquée

bonne soirée

 

[Baside]

Bonjour Emmanuel le fil le forum

Guère plus compliqué mais dans l'ordre de la liste et non l'inverse et avec une condition au cas ou une ou plusieurs cellules vides seraient saisies par erreur

Sub NommerNouveauxOnglets()
Dim cell
For Each cell In Selection
If cell = '' Then Exit For
Sheets.Add Type:=xlWorksheet, Count:=1, _
after:=Sheets(Sheets.Count)
Worksheets(Sheets.Count).Name = cell.Value
Next
End Sub

Baside