Je vous joins une macro magique de votre cru qui me permet de creer
des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter =E0 cette macro pour
qu'elle ne plante pas si l'onglet existe d=E9j=E0. En effet, il m'arrive
des fois de rajouter des noms dans cette colonne et de devoir modifier
la dite macro pour qu'elle commence =E0 partir de l=E0 o=F9 elle avait fini.=
J'esp=E8re avoir =E9t=E9 clair dans mes explications.
Sub CreerOnglet()
For Each c In Range([A2], [A65000].End(xlUp))
Sheets("Modele").Copy After:=3DSheets(Sheets.Count)
ActiveSheet.Name =3D c
ActiveSheet.Hyperlinks.Add Anchor:=3Dc, Address:=3D"", _
SubAddress:=3D"'" & c & "'" & "!A1", TextToDisplay:=3Dc.Value
Next
End Sub
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
francois.forcet
Salut à toi
Ton code modifié ainsi :
For Each c In Range([A2], [A65000].End(xlUp)) For i = 1 To Sheets.Count If Sheets(i).Name = c Then Existant = 1 Exit For End If Next If Existant <> 1 Then Sheets("Feuil1").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value End If Existant = "" Next
Celà devrait convenir Dis moi !!!!
Salut à toi
Ton code modifié ainsi :
For Each c In Range([A2], [A65000].End(xlUp))
For i = 1 To Sheets.Count
If Sheets(i).Name = c Then
Existant = 1
Exit For
End If
Next
If Existant <> 1 Then
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value
End If
Existant = ""
Next
For Each c In Range([A2], [A65000].End(xlUp)) For i = 1 To Sheets.Count If Sheets(i).Name = c Then Existant = 1 Exit For End If Next If Existant <> 1 Then Sheets("Feuil1").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value End If Existant = "" Next
Celà devrait convenir Dis moi !!!!
JB
Bonjour,
Sub CreerOnglet() For Each c In Range([A2], [A65000].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 End If Next End Sub
JB http://boisgontierjacques.free.fr
On 31 mar, 14:18, philou36 wrote:
Bonjour à tous,
Je vous joins une macro magique de votre cru qui me permet de creer des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter à cette macro pour qu'elle ne plante pas si l'onglet existe déjà. En effet, il m'arrive des fois de rajouter des noms dans cette colonne et de devoir modifier la dite macro pour qu'elle commence à partir de là où elle avait fin i.
J'espère avoir été clair dans mes explications.
Sub CreerOnglet() For Each c In Range([A2], [A65000].End(xlUp)) Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Next End Sub
Un grand merci par avance de votre aide.
Bonne journée.
Bonjour,
Sub CreerOnglet()
For Each c In Range([A2], [A65000].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
End If
Next
End Sub
JB
http://boisgontierjacques.free.fr
On 31 mar, 14:18, philou36 <philippe.blanchard...@gmail.com> wrote:
Bonjour à tous,
Je vous joins une macro magique de votre cru qui me permet de creer
des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter à cette macro pour
qu'elle ne plante pas si l'onglet existe déjà. En effet, il m'arrive
des fois de rajouter des noms dans cette colonne et de devoir modifier
la dite macro pour qu'elle commence à partir de là où elle avait fin i.
J'espère avoir été clair dans mes explications.
Sub CreerOnglet()
For Each c In Range([A2], [A65000].End(xlUp))
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value
Next
End Sub
Sub CreerOnglet() For Each c In Range([A2], [A65000].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 End If Next End Sub
JB http://boisgontierjacques.free.fr
On 31 mar, 14:18, philou36 wrote:
Bonjour à tous,
Je vous joins une macro magique de votre cru qui me permet de creer des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter à cette macro pour qu'elle ne plante pas si l'onglet existe déjà. En effet, il m'arrive des fois de rajouter des noms dans cette colonne et de devoir modifier la dite macro pour qu'elle commence à partir de là où elle avait fin i.
J'espère avoir été clair dans mes explications.
Sub CreerOnglet() For Each c In Range([A2], [A65000].End(xlUp)) Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Next End Sub
Un grand merci par avance de votre aide.
Bonne journée.
philou36
Bonsoir,
J'ai testé la macro, c'est juste parfait comme d'habitude.
Un grand merci pour ton efficacité.
Bonne Soirée
On 31 mar, 15:41, JB wrote:
Bonjour,
Sub CreerOnglet() For Each c In Range([A2], [A65000].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 End If Next End Sub
JBhttp://boisgontierjacques.free.fr
On 31 mar, 14:18, philou36 wrote:
Bonjour à tous,
Je vous joins une macro magique de votre cru qui me permet de creer des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter à cette macro pour qu'elle ne plante pas si l'onglet existe déjà. En effet, il m'arrive des fois de rajouter des noms dans cette colonne et de devoir modifier la dite macro pour qu'elle commence à partir de là où elle avait f ini.
J'espère avoir été clair dans mes explications.
Sub CreerOnglet() For Each c In Range([A2], [A65000].End(xlUp)) Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Next End Sub
Un grand merci par avance de votre aide.
Bonne journée.
Bonsoir,
J'ai testé la macro, c'est juste parfait comme d'habitude.
Un grand merci pour ton efficacité.
Bonne Soirée
On 31 mar, 15:41, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Sub CreerOnglet()
For Each c In Range([A2], [A65000].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
End If
Next
End Sub
JBhttp://boisgontierjacques.free.fr
On 31 mar, 14:18, philou36 <philippe.blanchard...@gmail.com> wrote:
Bonjour à tous,
Je vous joins une macro magique de votre cru qui me permet de creer
des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter à cette macro pour
qu'elle ne plante pas si l'onglet existe déjà. En effet, il m'arrive
des fois de rajouter des noms dans cette colonne et de devoir modifier
la dite macro pour qu'elle commence à partir de là où elle avait f ini.
J'espère avoir été clair dans mes explications.
Sub CreerOnglet()
For Each c In Range([A2], [A65000].End(xlUp))
Sheets("Modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = c
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value
Next
End Sub
J'ai testé la macro, c'est juste parfait comme d'habitude.
Un grand merci pour ton efficacité.
Bonne Soirée
On 31 mar, 15:41, JB wrote:
Bonjour,
Sub CreerOnglet() For Each c In Range([A2], [A65000].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 End If Next End Sub
JBhttp://boisgontierjacques.free.fr
On 31 mar, 14:18, philou36 wrote:
Bonjour à tous,
Je vous joins une macro magique de votre cru qui me permet de creer des onglets en fonction d'une liste.
Pourriez-vous me dire ce que je dois rajouter à cette macro pour qu'elle ne plante pas si l'onglet existe déjà. En effet, il m'arrive des fois de rajouter des noms dans cette colonne et de devoir modifier la dite macro pour qu'elle commence à partir de là où elle avait f ini.
J'espère avoir été clair dans mes explications.
Sub CreerOnglet() For Each c In Range([A2], [A65000].End(xlUp)) Sheets("Modele").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = c ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _ SubAddress:="'" & c & "'" & "!A1", TextToDisplay:=c.Value Next End Sub