Discussion :

[pasterlouis]

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 :

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

[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!

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

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

numachat=numachat+1

Code :

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

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?

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

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

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

[JPierreM]

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 :

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

JP

[Invité]

effectivement la base de registre est une bonne solution, encore faut-il que l'application tourne toujours sur le même PC.

[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?