Probleme pour nom de feuille

[yoyo69]

Bonjour,
Un peu perdu ...

Le code suivant,

Private Sub CommandButton1_Click()
Worksheets("Poste00").Copy after:=ActiveSheet
End Sub

ou

Private Sub CommandButton1_Click()
ActiveSheet.Select
Sheets("Poste00").Copy after:=ActiveSheet
End Sub

me sert a dupliquer une feuille et ses formules etc... mais mon probleme je ne veux pas nommer mes feuilles supllementaires comme tel POSTE00 (2) POSTE00 (3) etc ............;; mais POSTE01 POSTE02 POSTE03 etc ..

Merci de vos commentaires,
Yoyo

 

[porcinet82]

Re : Probleme pour nom de feuille

Salut,

Tiens, voici un bout de code qui fonctionne :

Private Sub CommandButton1_Click()
Dim num_feuille As Integer
ActiveSheet.Select
num_feuille = Val(Mid(ActiveSheet.Name, 6, 3))
Sheets("Poste00").Copy after:=ActiveSheet
If num_feuille < 10 Then
    ActiveSheet.Name = "Poste0" & num_feuille + 1
Else
    ActiveSheet.Name = "Poste" & num_feuille + 1
End If
End Sub

Seulement, je pense que tu devrais tout de meme rajouter une gestion d'erreur au cas ou la feuille copié existerai deja.

@+

 

[pierrejean]

Re : Probleme pour nom de feuille

bonjour yoyo69
Salut Porcinet

a priori sans gestion d'erreur a ajouter

ma version:

Option Explicit

Sub test()
Dim derno As Integer
Dim n As Integer
Dim m As Integer
Dim no As String
derno = 0
For n = 1 To Sheets.Count
 If Left(Sheets(n).Name, 5) = "Poste" Then
  For m = 1 To Len(Sheets(n).Name)
    If IsNumeric(Mid(Sheets(n).Name, m, 1)) Then
    no = no & Mid(Sheets(n).Name, m, 1)
    End If
  Next m
 If CInt(no) > derno Then derno = no
 End If
 no = ""
Next n
Sheets("Poste00").Copy after:=ActiveSheet
ActiveSheet.Name = "Poste" & Format(derno + 1, "000")
End Sub

 

[Lord Nelson]

Re : Probleme pour nom de feuille

Salut,

Voici une variante qui affecte un indice croissant à la feuille créée :

Private Sub CommandButton1_Click()
Dim Temp As String
Dim NumFeuille As Integer
Dim SH As Worksheet
For Each SH In Worksheets
If Left(SH.Name, 5) = "Poste" Then
If Val(Right(SH.Name, 2)) > NumFeuille Then
NumFeuille = Val(Right(SH.Name, 2))
End If
End If
Next
NumFeuille = NumFeuille + 1
Temp = ActiveSheet.Name
Worksheets("Poste00").Copy after:=ActiveSheet
'La nouvelle feuille est devenue la feuille active
ActiveSheet.Name = "Poste" & Format(NumFeuille, "00")
'Retour à la feuille initiale :
Sheets(Temp).Select

End Sub

A+
Horatio


PS : Salut Pierre-Jean, on se marche un peu sur les pieds, désolé !

 

[pierrejean]

Re : Probleme pour nom de feuille

salut Lord Nelson

nos solutions sont fort voisines et apparues quasi simultanement !
mais il me semble que la tienne ne passe pas les 100 feuilles

 

[yoyo69]

Re : Probleme pour nom de feuille

ahh llalalala comment vous remercier,
je cherche desesperemment depuis ce matin !!!
c'est génial !!!
merci a vous très sincèrement

pour porcinet : c'est clair il faut automatiquement une gestion d'erreur

Je vais consulter vos codes, il faut que je modifie pour juste placer la derniere feuille créer en dernière position.

Et encore merci
Cordialement
Yo

 

[yoyo69]

Re : Probleme pour nom de feuille

et pour completer je pourrait meme dire du fait de notre proximité avec pierrejean que vous pouriez pratiquement me voir de chez vous !!

 

[Lord Nelson]

Re : Probleme pour nom de feuille

Re,

Effectivement, du fait du format "00", il faudrait se contenter de 99 feuilles. A Yoyo de voir s'il en veut 999 avec un format "000".
L'adaptation du code ne serait pas très difficile.

A+
Horatio

 

[pierrejean]

Re : Probleme pour nom de feuille

re

en ce qui me concerne:

pour placer en derniere position

remplacer

Sheets("Poste00").Copy after:=ActiveSheet
 
par
 
Sheets("Poste00").Copy after:=Sheets(Sheets.Count)

 

[porcinet82]

Re : Probleme pour nom de feuille

re, Salut PierreJean et Horatio,

Idem pour mon code

@+

 

[yoyo69]

Re : Probleme pour nom de feuille

alors pendant que vous vous etes inspiré de mon problème, je me premet de vous en soummettre un second

Je voudrais que dans une feuille recap toutes les noms des feuilles nouvelles soit lister et surtout d'en extraire des infos (ref / pric etc ...)

Soit par exemple :
[FICHER01.XLS]
4 FEUILLES (POSTE00 / POSTE01 / POSTE02 / POSTE03)
1 FEUILLE RECAP qui m'extrait des informations des 4 feuilles

et si autre fichier

[FICHER02.XLS]
15 FEUILLES (POSTE00 / POSTE01 / POSTE02 / POSTE03 etc ...)
1 FEUILLE RECAP qui m'extrait des informations des 15 feuilles

Je sait pas si je suis bien clair ...

 

[yoyo69]

Re : Probleme pour nom de feuille

ne pourrait-je pas par exemple dans la macro de creation de feuille cité ci dessus, que dès la création d'une nouvelle feuille que le code execute aussi l'envoi du nom de la feuille créer et certaines infos dans une meme feuille nommer recap

 

[porcinet82]

Re : Probleme pour nom de feuille

re,

Si tu peut faire ca si tu veux. En faite, il nous faudrait plus de détails sur les info a extraire, ou elles sont placées... Si tu as deja fait un morceau de code, joint le nous avec ton fichier en pièces jointes avec le résulat souhaité.

@+

 

[yoyo69]

Re : Probleme pour nom de feuille

voila, une ebauche puisuqe le projet est trop lourd

donc
Mon utilisation c'est de creer autant de feuille "poste" que demande cette affaire en cliquant sur ce button.
puis allez sur la feuille devis et a chaque ligne et dans la colonne article un menu deroulant qui me propose tout les numero d'article de chaque feuille nouvellement creer.
J'ai fait un exemple très simple (ligne21) a partir des feuilles deja creer, mais mon problème bien entendu vient lors des nouvelles feuilles.
Merci

 

[yoyo69]

Re : Probleme pour nom de feuille

Bonjour,
Est ce que le fichier joint est bien utilisable pour le test ?