Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment Ecrire dans une nouvelle feuille

Comment Ecrire dans une nouvelle feuille

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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


Avatar
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