Discussion :

[dagil28]

Bonjour à tous,

Je débute sur les macros d'excel. (excel 2000) et je voudrais créer à partir d'une liste (tableau avec 200 lignes => des noms de personnes), une feuille par nom donc 200 feuilles.
De plus, j'aimerais pouvoir affecter (en automatique) un lien hypertexte à chaque nom afin de pouvoir, à partir de ma liste sur le 1er feuille aller directement sur le feuille de la personne.

merci à tous ceux qui prendrons le temps de m'aider.

[drakkar_agfa]

Bonjour,

Voici un code qui te permettra de parcourir la colonne A de 1 à 200 et de créer une feuille dont le nom est la valeur de la cellule.
Si jamais deux noms sont identiques, alors il y aura une erreur. Mais grace au "On Error Resume Next" alors il passera par dessus sans créer de deuxième feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    Dim sh As Worksheet
    Dim i As Integer
 
    On Error Resume Next
 
    For i = 1 To 200
        Set sh = Sheets.Add
        sh.Name = Cells(i, 1)
    Next i
 
    Set sh = Nothing

C'est à toi de faire la validation si deux noms sont en doublons ou sinon, il est possible de l'ajouter dans la macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim sh As Worksheet
    Dim i As Integer
 
    On Error Resume Next
 
    For i = 1 To 200
        If Application.CountIf(Columns(1), Range("A5").Value) > 1 Then
            Cells(i, 2) = "Il existe un doublon"
        Else
            Set sh = Sheets.Add
            sh.Name = Cells(i, 1)
        End If
    Next i
 
    Set sh = Nothing

[dagil28]

Merci drakkar_agfa

j'ai essayé ton code et il marche en parti, en effet il me creer bien les 200 feuille mais il ne me les nomme pas.

Je ne comprend pas pourquoi.....ton code me semble bien et simple ?

Si tu vois une raison.....

[drakkar_agfa]

Remplace la ligne par celle-ci (de mon coté ça fonctionne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sh.Name = Worksheets("Feuil1").Cells(i, 1)

et remplace celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        If Application.CountIf(Columns(1), Worksheets("Feuil1").Cells(i,1) > 1 Then

Est-ce bien la colonne A qui contient les noms?

[casefayere]

Bonsoir Drakkar, dagil

Sinon j'avais commencé à faire ce code qui te donnes le lien hypertext

Combines avec la propo de Drakkar

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
Dim x As Integer, nf As Integer, nom As String
With Sheets("feuil1")
nf = Sheets("feuil1").Range("a65000").End(xlUp).Row
For x = 1 To nf
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).name = .Cells(x, 1).Value
    nom = .Cells(x, 1).Value
    .Hyperlinks.Add Anchor:=.Cells(x, 1), Address:="", SubAddress:= _
        "nom!A1", TextToDisplay:=nom
Next x
End With
End Sub

a +

[Qwazerty]

Salut
Fiou, 200 feuilles, un conseil rajoutes également un lien hypertexte dans chaque feuille qui te ramènera a ta feuille "sommaire".
++
Qwaz