macro création feuilles

Version imprimable

Voir 40 message(s) de cette discussion en une page

06/04/2009, 20h42
dagil28

macro création feuilles

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.

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:

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:

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

06/04/2009, 21h14
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.....
06/04/2009, 21h31
drakkar_agfa

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

Code:

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

et remplace celle-ci:

Code:

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

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

Bonsoir Drakkar, dagil

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

Combines avec la propo de Drakkar

Code:

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 +

06/04/2009, 21h54
Qwazerty

Salut
Fiou, 200 feuilles, un conseil rajoutes également un lien hypertexte dans chaque feuille qui te ramènera a ta feuille "sommaire".
++
Qwaz
06/04/2009, 22h25
dagil28
Merci drakkar_agfa et casefayere

la macro me cree bien mes 200 feuilles avec les noms des personnes.
Un lien hypertexte se créé aussi mais il y a un bog dans la formule car le lien conduite sur la feuille "nom".
je pense qu'il y a une erreur dans la nomination de la feuille à selectionner dans la formule :
Code:

1 2 3 nom = .Cells(x, 1).Value .Hyperlinks.Add Anchor:=.Cells(x, 1), Address:="", SubAddress:= _ "nom!A1", TextToDisplay:=nom
merci de me donner le remède.
06/04/2009, 22h31
Qwazerty

Salut
Pour Subaddress met Nom&"!A1" a la place de "Nom!A1"
++
Qwaz

Je ne comprends pas car j'ai testé,

avec feuil1 où en a1 jusque a10, j'ai mis des valeurs au hasard et en lançant mon code à partir de cette feuille, j'obtiensbien le résultat escompté soit 10 feuilles nommées et un lien hypertext sur chaque cellule de la feuil1

je remets le code :
Code:

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
mais prends gardes aux remarques de Qwaz pour le retour au sommaire

On s'est encore croisé, de plus j'avais fait cette correction avant d'essayer autre chose:king:

06/04/2009, 22h43
dagil28

salut Qwazerty

j'ai essayé ta modif, mais il ne l'accepte pas il m'annonce une
"erreur de compilation:
attendu:
fin d'instruction"
sur "!A1"

Ton idée de prévoir le retour est en effet une très bonne idée, reste à trouver la bonne formule.
:mur::mur:
06/04/2009, 22h47
casefayere

Peux-tu envoyer cette partie de code, il doit y avoir un tilde ou autre qui traine.....
06/04/2009, 22h49
drakkar_agfa

Pour le retour au premier, utilise le code du lien et fais-toi un lien vers le début!

voila exactement ce que j'ai ecrit, sachant que mes noms sont dans la feuille "agents"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
 
 
 
Dim x As Integer, nf As Integer, nom As String
With Sheets("agents")
nf = Sheets("agents").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

Pour le retour j'ai fait ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
'admettons que tu mettes "retour" dans la cellule A1 de chaque feuille
Sheets(nom).Range("a1") = "RETOUR"
Sheets(nom).Hyperlinks.Add Anchor:=Sheets(nom).Range("a1"), Address:="", SubAddress:= _
        "Feuil1!A1", TextToDisplay:="retour"
Next x
End With
End Sub

06/04/2009, 22h58
Qwazerty
Re
Oui ca ne marche pas par ce qu'il faut bien mettre les espace &Nom excel n'arrive pas a mettre l'espace et ne comprend donc pas, il faut mettre & Nom.
Code:

1 2 Sheets("feuil1").Hyperlinks.Add Anchor:=.Cells(x, 1), Address:="", SubAddress:=Nom & "!A1", TextToDisplay:=Nom
a++
Qwaz

Refais un copier coller avec ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
Dim x As Integer, nf As Integer, nom As String
With Sheets("agents")
nf = .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
'admettons que tu mettes "retour" dans la cellule A1 de chaque feuille
Sheets(nom).Range("a1") = "RETOUR"
Sheets(nom).Hyperlinks.Add Anchor:=Sheets(nom).Range("a1"), Address:="", SubAddress:= _
        "agents!A1", TextToDisplay:="retour"
Next x
End With
 
End Sub

06/04/2009, 23h03
Qwazerty

Oula suis fatigué moi, ça fait 3 fois que je répond a coté de la plaque d'affilé, désolé :D
++
Qwaz
06/04/2009, 23h03
dagil28

Pour le retour c'est super celà marche sans problème, par contre le lien hyper texte dans ma 1er feuille m'indique "reference non valide"
il y a un bog sur le nom des feuilles.
".Hyperlinks.Add Anchor:=.Cells(x, 1), Address:="", SubAddress:= _
"nom!A1", TextToDisplay:=nom"
06/04/2009, 23h06
casefayere

les noms sur la feuille "agents, commencent'ils par la cellule A1 ?

Mais non c bien ca
Ici dans ton code
Code:

1 2 3 4 5 6 7 8 9 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
Il faut remplacer par la ligne que je t'ai mis un peu plus haut.
aller cette fois je go dodo
Oyasumi nasai ;)

Voir 40 message(s) de cette discussion en une page