IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Userform: Mémoriser valeur d'une variable après exécution [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2013
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mai 2013
    Messages : 75
    Par défaut Userform: Mémoriser valeur d'une variable après exécution
    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

  2. #2
    Invité
    Invité(e)
    Par défaut
    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!

  3. #3
    Membre confirmé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2013
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mai 2013
    Messages : 75
    Par défaut
    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
    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?

  4. #4
    Invité
    Invité(e)
    Par défaut
    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
    Dernière modification par AlainTech ; 05/07/2013 à 22h03. Motif: Fusion de 2 messages

  5. #5
    Membre chevronné
    Profil pro
    Inscrit en
    Décembre 2008
    Messages
    389
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2008
    Messages : 389
    Par défaut
    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

  6. #6
    Invité
    Invité(e)
    Par défaut
    effectivement la base de registre est une bonne solution, encore faut-il que l'application tourne toujours sur le même PC.

  7. #7
    Membre confirmé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Mai 2013
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Mai 2013
    Messages : 75
    Par défaut
    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?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Recuperation de la valeur d'une variable après un sbmjob
    Par bouhlal_badre dans le forum AS/400
    Réponses: 7
    Dernier message: 06/06/2013, 13h26
  2. VBA, perte de valeur d'une variable aprés avoir activé une autre feuille
    Par mikeactuaire dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/07/2011, 07h13
  3. Réponses: 10
    Dernier message: 29/09/2009, 15h20
  4. Réponses: 8
    Dernier message: 29/03/2007, 14h48
  5. Réponses: 2
    Dernier message: 23/10/2005, 18h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo