Userform: Mémoriser valeur d'une variable après exécution

Version imprimable

Bonjour,
je gère des dossiers clients. je doit affecter un numéro d'achat selon certaines caractéristiques(client, ville, période)

J'ai crée un userform avec le quel je saisi le client que je veux chercher, sa ville, et la période. Ensuite la macro me cherche ce client et m'insere son numéro dans la colonne F correspondant à sa ou ses lignes (NB: le numéro est le même s'il ya plusieurs lignes qui ont ces mêmes caractéristiques). Pour cela j'utilise ce code insérer dans le bouton valider:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub CommandButton1_Click() Dim derl As Integer Dim i As Integer Dim numachat As Integer numachat = TextBox4.Value 'le textbox4 contient le numéro d'étude derl = Range("A65536").End(xlUp).Row + 1 For i = 2 To derl If Cells(i, "F") = "" Then If Cells(i, "A") = TextBox1.Value And Cells(i, "D") = TextBox2.Value And Cells(i, "E").Value = TextBox3.Value Then Cells(i, "F") = numachat End If Next i UsfNumEtude.Hide Unload Me TextBox4.Value = TextBox4.Value + 1 'une execution donc la valeur de textbo4 doit évoluer pour que le numéro évolue lors de la prochaine exécution End Sub
Mais je voudrai que le numachat soit mémoriser c'est à dire si lors de la première exécution il est de 1, la deuxième execution numachat=1+1 ainsi de suite. en global que le numéroachat soit toujours celui précedent +1 et ce même si le fichier est fermé et réouvert que la mémoire continue
Merci d'avance de vos aides

28/06/2013, 12h38
Invité

bonjour,
des que tu referme le fichier Excel, la mémoire se vide donc pas moyen de mémoriser la valeur.
en revanche tu peux créer une feuille qui récapitule cette information.
il faudra bien enregistrer avant de sortir d'excel. si tu veux laissé le choix à l'utilisateur, tu devras utilisé un classeur dédié à cette fonction que tu pourras enregistrer à ta guise sans perturber le travail des utilisateur.

j'espère avoir répondue à tes interrogations!
28/06/2013, 12h54
pasterlouis

Merci beaucoup rdurupt pour cette réponse si rapide:
en fait si j'ai bien compris je devrais stocker ma variable par exemple dans une cellule isolée du classeur et à chaque fois que le code s'exécute, la valeur de cette cellule change. du genre.
A la fin de mon code je mêt:

Code:

numachat=numachat+1

Code:

cells(1, "MNL").value=numachat

ainsi il récupérera toujours la valeur de la cellule (1, "MNL") pour la mêttre comme numachat.
Est que cela est raisonable?
28/06/2013, 12h57
Invité

oui c'est exactement ça
attention au N° par client:
A2 = tartempion; B2 = b2 + 1
A3 = ducon; B3 = b3 + 1

Si non tu as une autre astuce :
Si tes commende ce situ sur la même feuille (Commandes)
Imaginons que la première ligne est une zone de titre et que tu n’as aucune commande.
Le nombre de ligne est = 1. Si tu ajoute une commande elle aura le N°1et maintenant tu 2 lignes.
La prochaine le N°……
Maintenant tu as 120 commandes-> donc 121 ligne avec le titre la prochaine commande aura le N°121

Code:

NumCommande = Sheets("Commandes").UsedRange.Rows.Count

Bonjour,

Éventuellement en passant par la base de registre
Ça Incrémente un compteur dans la base de registre.

Le numéro sera conservé dans le registre même après fermeture du PC, il n'est donc pas nécessaire de le mémoriser dans un classeur

A placer dans un module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
Dim leNuméro As String
 
Sub InitRegistre() 'Initialise le premier numéro
    leNuméro = InputBox("Indiquer le premier numéro ", "Initialisation du premier numéro")
        If leNuméro = "" Then End         'Si on clique sur le bouton annuler
    leNuméro = leNuméro - 1
    SaveSetting appname:="Essai Numéro", section:="leNuméro", key:="Numéro", setting:=leNuméro
End Sub
 
Sub incrementeRegistre()   'Lecture du n° dans la base de registre
    leNuméro = GetSetting(appname:="Essai Numéro", section:="leNuméro", key:="Numéro")
        If leNuméro = "" Then
            'Si aucune valeur n'est présente dans la base de registre en fait la 1ère fois
            InitRegistre
        End If
    leNuméro = leNuméro + 1 'Incrémentation du n°
    MsgBox leNuméro
    SaveSetting appname:="Essai Numéro", section:="leNuméro", key:="Numéro", setting:=leNuméro
    'Ecriture du nouveau n° dans la base de registre
End Sub
 
Sub effaceRegistre()
'Suppression de la clé dans la base de registre
    On Error Resume Next
    DeleteSetting "Essai Numéro", "leNuméro"
End Sub

28/06/2013, 14h21
Invité

effectivement la base de registre est une bonne solution, encore faut-il que l'application tourne toujours sur le même PC.
28/06/2013, 14h26
pasterlouis

Merci rduropt et JPierreM pour les réponse.
Pour JPierre j'ai pas trop compris ton code.
J'ai une autre idée qui me permettra de ne pas etre obligé de stocker tout le temps le numéro: la macro pourra parcourir la colonne F (ou se trouvent les numéros) et repérer la valeur la plus élevée et mettre +1 pour avoir le numéro. Par contre je ne sais pas comment developper cela par un code.
Pouvez vous m'aider sur cette idée?
28/06/2013, 14h30
EngueEngue

Pas besoin de parcourir... tu te dis que la case "F1" garde ton marqueur

Code:

Worksheets("Le_Nom").range("F1")=Worksheets("Le_Nom").range("F1")+1
28/06/2013, 14h49
pasterlouis

Merci EngueEngue.
Mais ton code me renvoi à la valeur de la premiere cellule de la colonne F. C'est pas ce que je cherche. je cherche à repérer la plus grande valeur de la colonne F
28/06/2013, 14h52
Invité

il suffis d'initialiser la cells "F1" avec la pus grande valeur au préalable avant tout traitement. en revanche ça peut être la cellule "IV1" qui elle n'est pas visible
28/06/2013, 14h55
pasterlouis

J'ai trouvé une réponse à ma question

j'ai trouvé ceci dans ce forum

Code:

leplusgrand = Application.Max(Columns(6))

Je vous remercie beaucoup pour votre participation active, vos réponse claires. C'est très gentil de vos part