Test sur Onglet Existant

Le
philou36
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 fini.=


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.
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
francois.forcet
Le #5428091
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 !!!!
JB
Le #5428051
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
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
Le #5427841
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
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
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.




Publicité
Poster une réponse
Anonyme