Comment Ecrire dans une nouvelle feuille

Le
Philou36
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Charabeuh
Le #22119431
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" #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
Le #22122331
Bonjour et merci pour votre conseil !!
J'etudie tout cela !
Bonne journee

"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" #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





Publicité
Poster une réponse
Anonyme