Variable hors procédure

Version imprimable

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:

Citation:

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:

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!

29/07/2011, 13h35
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:

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 ?
29/07/2011, 14h24
Djromé

Merci oovaveoo,

Citation:

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?
29/07/2011, 14h31
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:

varNumfees = i + 1

par :

Code:

varNumfees = ActiveWorkbook.Sheets.Count + 1

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

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

29/07/2011, 15h12
Djromé

Merci à vous,

Super Mercatog, ton code fonctionne bien!:ccool:

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!:aie:

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?
29/07/2011, 15h25
mercatog

Attention, le code proposé recherche le premier nombre disponible