Voila, après avoir créer un onglet j'aurai voulu écrire le nom de l'onglet
dans la feuille :
Sub Créer_Onglet()
For Each c In Range([b4], [b65000].End(xlUp))
On Error Resume Next
temp = Sheets(c.Value).Range("A1").Value
If Err > 0 Then
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value
Worksheets(c).Cells(1, 3) = c
End If
Next
End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas !
ai je oublié quelque chose ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charabeuh
Bonjour,
En remplaçant la ligne: Worksheets(c).Cells(1, 3) = c
par la ligne: Worksheets(c.Value).Cells(1, 3) = c
cela fonctionne chez moi.
Cdlt
"Philou36" a écrit dans le message de groupe de discussion : #c5vtt#
Bonjour les amis,
Voila, après avoir créer un onglet j'aurai voulu écrire le nom de l'onglet dans la feuille : Sub Créer_Onglet() For Each c In Range([b4], [b65000].End(xlUp)) On Error Resume Next temp = Sheets(c.Value).Range("A1").Value If Err > 0 Then Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Worksheets(c).Cells(1, 3) = c End If Next End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas ! ai je oublié quelque chose ?
Un grand merci par avance de votre aide !
Bonne journée !
Philippe
Bonjour,
En remplaçant la ligne:
Worksheets(c).Cells(1, 3) = c
par la ligne:
Worksheets(c.Value).Cells(1, 3) = c
cela fonctionne chez moi.
Cdlt
"Philou36" <ws@trol.com> a écrit dans le message de groupe de discussion :
#c5vtt#8KHA.5412@TK2MSFTNGP06.phx.gbl...
Bonjour les amis,
Voila, après avoir créer un onglet j'aurai voulu écrire le nom de l'onglet
dans la feuille :
Sub Créer_Onglet()
For Each c In Range([b4], [b65000].End(xlUp))
On Error Resume Next
temp = Sheets(c.Value).Range("A1").Value
If Err > 0 Then
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value
Worksheets(c).Cells(1, 3) = c
End If
Next
End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas !
ai je oublié quelque chose ?
En remplaçant la ligne: Worksheets(c).Cells(1, 3) = c
par la ligne: Worksheets(c.Value).Cells(1, 3) = c
cela fonctionne chez moi.
Cdlt
"Philou36" a écrit dans le message de groupe de discussion : #c5vtt#
Bonjour les amis,
Voila, après avoir créer un onglet j'aurai voulu écrire le nom de l'onglet dans la feuille : Sub Créer_Onglet() For Each c In Range([b4], [b65000].End(xlUp)) On Error Resume Next temp = Sheets(c.Value).Range("A1").Value If Err > 0 Then Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Worksheets(c).Cells(1, 3) = c End If Next End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas ! ai je oublié quelque chose ?
Un grand merci par avance de votre aide !
Bonne journée !
Philippe
Philou36
Bonjour et merci pour votre conseil !! J'etudie tout cela ! Bonne journee
"Charabeuh" a écrit dans le message de news:
Bonjour,
En remplaçant la ligne: Worksheets(c).Cells(1, 3) = c
par la ligne: Worksheets(c.Value).Cells(1, 3) = c
cela fonctionne chez moi.
Cdlt
"Philou36" a écrit dans le message de groupe de discussion : #c5vtt#
Bonjour les amis,
Voila, après avoir créer un onglet j'aurai voulu écrire le nom de l'onglet dans la feuille : Sub Créer_Onglet() For Each c In Range([b4], [b65000].End(xlUp)) On Error Resume Next temp = Sheets(c.Value).Range("A1").Value If Err > 0 Then Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Worksheets(c).Cells(1, 3) = c End If Next End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas ! ai je oublié quelque chose ?
Un grand merci par avance de votre aide !
Bonne journée !
Philippe
Bonjour et merci pour votre conseil !!
J'etudie tout cela !
Bonne journee
"Charabeuh" <Please@FeedBack.fr> a écrit dans le message de news:
BE52EA10-7097-45DA-930E-66C4B66ED8CF@microsoft.com...
Bonjour,
En remplaçant la ligne:
Worksheets(c).Cells(1, 3) = c
par la ligne:
Worksheets(c.Value).Cells(1, 3) = c
cela fonctionne chez moi.
Cdlt
"Philou36" <ws@trol.com> a écrit dans le message de groupe de discussion :
#c5vtt#8KHA.5412@TK2MSFTNGP06.phx.gbl...
Bonjour les amis,
Voila, après avoir créer un onglet j'aurai voulu écrire le nom de
l'onglet dans la feuille :
Sub Créer_Onglet()
For Each c In Range([b4], [b65000].End(xlUp))
On Error Resume Next
temp = Sheets(c.Value).Range("A1").Value
If Err > 0 Then
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value
Worksheets(c).Cells(1, 3) = c
End If
Next
End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas !
ai je oublié quelque chose ?
Bonjour et merci pour votre conseil !! J'etudie tout cela ! Bonne journee
"Charabeuh" a écrit dans le message de news:
Bonjour,
En remplaçant la ligne: Worksheets(c).Cells(1, 3) = c
par la ligne: Worksheets(c.Value).Cells(1, 3) = c
cela fonctionne chez moi.
Cdlt
"Philou36" a écrit dans le message de groupe de discussion : #c5vtt#
Bonjour les amis,
Voila, après avoir créer un onglet j'aurai voulu écrire le nom de l'onglet dans la feuille : Sub Créer_Onglet() For Each c In Range([b4], [b65000].End(xlUp)) On Error Resume Next temp = Sheets(c.Value).Range("A1").Value If Err > 0 Then Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Worksheets(c).Cells(1, 3) = c End If Next End Sub
Worksheets(c).Cells(1, 3) = c ne marche pas ! ai je oublié quelque chose ?