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

C

Catrice

XLDnaute Barbatruc

• 24 Novembre 2008

• #2

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

Bonjour,

Un exemple ci-joint

 

Pièces jointes

• Classeur1.xls

  26 KB · Affichages: 132
• Classeur1.xls

  26 KB · Affichages: 134
• Classeur1.xls

  26 KB · Affichages: 137

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 24 Novembre 2008

• #3

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

Cliquez pour agrandir...

Merci encore
A++
Lio

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2008

• #4

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

Bonjour TheLio, Catrice, le fil, le forum



Pour le fun , la même avec un tableau

Code:

[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]

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 24 Novembre 2008

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2008

• #6

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

Re



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

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 24 Novembre 2008

• #7

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2008

• #8

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

Re


Sur mon poste, cela fonctionne sans erreur

Ton code, tout comme le mien.

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 24 Novembre 2008

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2008

• #10

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é

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Novembre 2008

• #11

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
@+

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 24 Novembre 2008

• #12

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

Code:

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

 

Vote positif 0 Vote négatif