B
Bruno
Guest
Re -re -bonjour a tous
Suite a mon post "Logique ou programation" de 14:48 j'ai trouvé une astuce minable pour faire fonctionner mon prog en attendant mieux.
Il suffit de faire:
Dim n As Integer
Dim I As Integer
Dim Compteur As Integer
n = Sheets.Count
For I = 1 To n Step 1
On Error GoTo astuce
If Not Sheets("Lg." & I) Is Nothing Then Compteur = I
Next I
astuce:
Sheets("Nomenclature").Select
Sheets.Add
ActiveSheet.Name = "Lg." & (Compteur + 1)
Sheets("Modèle Lg").Cells.Copy
Sheets("Lg." & (Compteur + 1)).Select
ActiveSheet.Paste
Range("A1").Select
Et pareil pour les feuilles Calcul
J'ai réellement honte de devoir utiliser des bidouilles pareilles alors si quelqu'un peut me donner une solution plus propre... MERCI
Que la force soit avec XLD
Bruno
Suite a mon post "Logique ou programation" de 14:48 j'ai trouvé une astuce minable pour faire fonctionner mon prog en attendant mieux.
Il suffit de faire:
Dim n As Integer
Dim I As Integer
Dim Compteur As Integer
n = Sheets.Count
For I = 1 To n Step 1
On Error GoTo astuce
If Not Sheets("Lg." & I) Is Nothing Then Compteur = I
Next I
astuce:
Sheets("Nomenclature").Select
Sheets.Add
ActiveSheet.Name = "Lg." & (Compteur + 1)
Sheets("Modèle Lg").Cells.Copy
Sheets("Lg." & (Compteur + 1)).Select
ActiveSheet.Paste
Range("A1").Select
Et pareil pour les feuilles Calcul
J'ai réellement honte de devoir utiliser des bidouilles pareilles alors si quelqu'un peut me donner une solution plus propre... MERCI
Que la force soit avec XLD
Bruno