Discussion :

[Djromé]

Salut les Kracks,

Je souhaiterai renommer les feuilles de mon classeur automatiquement faisant suite à un click sur un CommandButton.

Les noms de mes feuilles seraient du style suivant:

F_25122011_maVariable

Pour ce faire, j'aimerai créer une variable qui retiendra en mémoire le dernier numéro utiliser et ceci même si une semaine c'est écoulée sans ouverture du classeur.
Dois-je pour celà créer une fonction ou déclarer mes variables en dehors de la procédure?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim varNumfees As Variant
 
Private Sub CommandButton2_Click()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
varNumfees = i+1
 
    'moves active sheet ot end of active workbook
    ActiveWorkbook.Sheets("Facture_Type").Copy after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "F_" & Format(Day(Date), "00") & Format(Month(Date), "00") & Format(Year(Date), "0000") & varNumfees
Next i
End Sub

Merci pour vos futures expliquations car je ne vois pas comment m'y prendre!

[oOVaveOo]

Bonjour,
une variable ne peut pas faire ça.

Pour "garder en mémoire" une variable, soit tu mets la valeur dans une cellule sur une feuille cachée par exemple, soit tu écris dans la base de registre (ne fonctionne pas si le fichier est partagé).

Pour ton cas, je bouclerai sur tous les onglets pour récupérer l'indice le plus grand :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim sh As Worksheet
 
For Each sh In Worksheets
    '... tu recherche tes indices
Next

Est-ce que le "F_25122011_" sera commun à tous les onglets ?

[Djromé]

Merci oovaveoo,

Est-ce que le "F_25122011_" sera commun à tous les onglets ?

Non, comme tu peux le voir en ligne 12 de mon code, le format prendra la date du jour: F_ddmmyyyy_mavariable (format "123")

Donc, je serai obliger de prendre la valeur la plus élevée de mes onglets!

Je pensais qu'en déclarant une variable hors procédure, celle-ci était valable ultérieurement pour tous les classeurs, avec la dernière valeur attribuée?

[pijaku]

Bonjour,
Si j'ai bien saisi ce que tu souhaites, tu l'as déjà ta variable. Il s'agit de ActiveWorkbook.Sheets.Count
Suffit de remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

varNumfees = i + 1

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

varNumfees = ActiveWorkbook.Sheets.Count + 1

[mercatog]

@pijaku
J'ai 3 feuilles A_1, A_3 et A_4
Nombre de feuilles: 3
La nouvelle feuille sera A_4 =>Crash


Une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AjouF()
Dim Suff As String, Feuille As String
Dim Sh As Worksheet
Dim i As Integer
 
Suff = "F_" & Format(Date, "ddmmyyyy") & "_"
Do
    Set Sh = Nothing
    i = i + 1
    Feuille = Suff & Format(i, "000")
    On Error Resume Next
    Set Sh = ThisWorkbook.Sheets(Feuille)
    On Error GoTo 0
Loop While Not Sh Is Nothing
ThisWorkbook.Worksheets.Add.Name = Feuille
End Sub

[Djromé]

Merci à vous,

Super Mercatog, ton code fonctionne bien!

Pourrais-je vous demander comment feriez-vous pour remplacer dans excel le numéro automatique (que l'on trouve à l'infini dans Access - clef primaire) et qui pourrait-être la référence de ma facture (champs unique).

Dans mon cas, 256 onglets sont possibles ensuite, je me dois de recommencer dans un nouveau classeur!

Comme vous l'avez compris, je souhaiterai automatiser les numérotations uniques de factures et le faire par excel (sans utiliser Access).

Quelle serait votre méthode de travail?

[mercatog]

Attention, le code proposé recherche le premier nombre disponible