[VBA] Création onglets (encore...)

[TheLio]

Bonjour le Forum,Bonjour Tous,
Un sujet mainte fois discuté, mais je n'arrive pas à trouver mon bonheur,

• Comment Copier un onglet "Base" autant de fois qu'une plage nommée "Sites" est renseignée dans l'onglet "Données"
• Renommer les nouveaux onglets en fonction de cette plage.

Vous avez-dit pas très clair?
Merci pour vos lumières
A++
Lio

 

[Catrice]

Re : [VBA] Création onglets (encore...)

Bonjour,

Un exemple ci-joint

 

[TheLio]

Re : [VBA] Création onglets (encore...)

Hello Catrice,
Merci pour ton exemple,
Je l'ai adapté ainsi:

Sub test()
Dim c As Range
With Sheets("Site")
For Each c In .Range("Base")
If c.Value <> "" Then
Sheets("Base_Vierge").Copy After:=Sheets(1)
ActiveSheet.Name = c.Value
End If
Next c
End With
End Sub

Merci encore
A++
Lio

 

[Staple1600]

Re : [VBA] Création onglets (encore...)

Bonjour TheLio, Catrice, le fil, le forum



Pour le fun , la même avec un tableau

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] copie_onglets()
[COLOR=darkblue]Dim[/COLOR] t [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR], i%
t = Application.Transpose([bases])
[COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] [COLOR=darkblue]UBound[/COLOR](t)
[COLOR=darkblue]If[/COLOR] [COLOR=darkblue]Not[/COLOR] IsNull(t(i)) [COLOR=darkblue]Then[/COLOR]
Sheets(1).Copy After:=Sheets(1)
ActiveSheet.Name = t(i)
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]

 

[TheLio]

Re : [VBA] Création onglets (encore...)

Hello,
c'est quoi ça?



J'execute la macro tout se passe bien.
Je vire les onglets créés pour ré-executer la macro et boom.
Excel pas content

Merci pour vos lumières
A++
Lio

 

[Staple1600]

Re : [VBA] Création onglets (encore...)

Re



Si tu supprimes la feuille contenant le nom bases , c'est normal qu'Excel bronche non ?

 

[TheLio]

Re : [VBA] Création onglets (encore...)

Hello l'agrafe,
Je ne supprime pas la feuille conteneant le nom Base,
Et la boîte d'erreur apparaît aléatoirement,

• des fois en pleine création d'onglets en millieu de procédure
• des fois au début impossible d'activer la macro

Merci
A++
Lio

 

[Staple1600]

Re : [VBA] Création onglets (encore...)

Re


Sur mon poste, cela fonctionne sans erreur

Ton code, tout comme le mien.

 

[TheLio]

Re : [VBA] Création onglets (encore...)

Re,
Je pense que cela vient des similitudes dans certains noms d'onglets:
Maison_Rouge_1
Maison_Rouge_2
...
A voir
A++
Lio

 

[Staple1600]

Re : [VBA] Création onglets (encore...)

Re



Moi j'ai testé avec ce genre de valeurs dans [bases]:

abc
def
ghi


C'est sans doute pour cela qu'Excel n'a pas bronché

 

[Pierrot93]

Re : [VBA] Création onglets (encore...)

Bonjour Thelio, Staple

A priori le problème n'est pas nouveau lorsqu'il y a copie d'onglet en boucle. Regarde le fil ci dessous ou il est évoqué, avec une solution alternative utilisant la création à partir d'un modèle.

https://www.excel-downloads.com/threads/recopie-modele-et-le-renomme.99850/

bon après midi
@+

 

[TheLio]

Re : [VBA] Création onglets (encore...)

Bonjour,
Pour ceux qui suivent le fil,
Avec adaptation du code et la méthode add proposée par Pierrot93

Option Explicit
Sub Copier_Feuilles()
Dim c As Range
With Sheets("2008")
For Each c In .Range("Base_Sites")
If c.Value <> "" Then
Sheets.Add After:=Sheets(Sheets.Count), Type:= _
    ThisWorkbook.Path & "\Modele.xls"
ActiveSheet.Name = c.Value
End If
Next c
End With
End Sub

Il faut enregistrer la feuille à copier dans le même répertoire dans un classeur nommé : Modele
Et là, ça défile à une vitesse incroyable, sans erreur 400 sur ola boucle.
Merci à tous.
Bonne journée
Lio