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 :

Vider un formulaire pour nouvelles saisies [XL-2016]


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Femme Profil pro
    Formateur en informatique
    Inscrit en
    Février 2019
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 42
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2019
    Messages : 8
    Points : 5
    Points
    5
    Par défaut Vider un formulaire pour nouvelles saisies
    Bonjour,

    je me permets de vous solliciter. J'arrive à la fin de ma création d'une base de données de gestion de stock et je n'arrive pas a trouver la façon dont je pourrais faire en sorte que lorsque je valide mon entrée en stock par le biais de mon formulaire (userform) celui_ci se vide afin que je puisse faire une nouvelle entrée sans quittez le formulaire.

    voici ma macro pour l'entrée en stock

    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 valide_entree_Click()
    'recopie les données de Acceuil vers stock
    '
    Dim derligne As Integer
    derligne = Sheets("Stock").Range("A10000").End(xlUp).Row + 1
    Sheets("Stock").Cells(derligne, 1) = Sheets("Accueil").Range("E27") 'produit
    Sheets("Stock").Cells(derligne, 2) = Sheets("Accueil").Range("E25") 'catégorie
    Sheets("Stock").Cells(derligne, 3) = Sheets("Accueil").Range("E29") 'qté
    Sheets("Stock").Cells(derligne, 4) = Sheets("Accueil").Range("k29") 'colisage
    Sheets("Stock").Cells(derligne, 5) = Sheets("Accueil").Range("k23") 'date entrée
    Sheets("Stock").Cells(derligne, 6) = Sheets("Accueil").Range("E31") 'DLC
    Sheets("Stock").Cells(derligne, 7) = Sheets("Accueil").Range("k25") 'stockage
    Sheets("Stock").Cells(derligne, 8) = Sheets("Accueil").Range("k31") 'Prix
    Sheets("Stock").Cells(derligne, 9) = Sheets("Accueil").Range("E23") 'personnel
     
    'selectionne le bouton fermer
    Me.fermer.SetFocus
     
     
    End Sub

    merci a ceux qui pourront m'aider.

  2. #2
    Membre extrêmement actif
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 82
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Points : 12 422
    Points
    12 422
    Par défaut
    Bonjour
    Je ne vois rien dans ce code qui utilise ou modifie des objets de ton userform ...
    Je n'accepte pas de demande d' "amitié" individuelle. Tout développeur est pour moi un ami.
    Je n'ouvre AUCUN classeur tiers (avec ou sans macro ******). Ne m'en proposez donc pas .

    ****** : Non, non ... un classeur .xlsx ne "peut" par exemple et entre autres pas contenir un activex (de surcroît invisible) , "bien sûr" ...

    Il est illusoire de penser que l'on saurait exprimer valablement et précisément en un langage (rigide) de développement ce que l'on peine à exprimer dans le langage naturel, bien plus souple.

  3. #3
    Expert éminent
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Points : 7 149
    Points
    7 149
    Billets dans le blog
    7
    Par défaut
    Bonjour,

    Tout d'abord, tu peux rendre ton code plus lisible en le balisant par le bornes #.

    Je ne vois la gestion d'aucun contrôle dans celui-ci.

    Une piste,

    Après action
    - Valeurs de Textbox à ""
    - Listindex de Combobox à -1

    Bien Cordialement.

    Marcel

    Dernier billet:
    Suppression des doublons d'un tableau structuré, gestion d'un array

    Pas de messagerie personnelle pour vos questions, s'il vous plaît. La réponse peut servir aux autres membres. Merci.


  4. #4
    Futur Membre du Club
    Femme Profil pro
    Formateur en informatique
    Inscrit en
    Février 2019
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 42
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2019
    Messages : 8
    Points : 5
    Points
    5
    Par défaut les infos
    Déja merci d'avoir lu mon post

    je suis novice en VBA je me suis"dépatouillée" avec le forum en lisant des discussions.

    je vous joins mon fichier
    Fichiers attachés Fichiers attachés

  5. #5
    Expert éminent
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Points : 7 149
    Points
    7 149
    Billets dans le blog
    7
    Par défaut
    Salut Laetitia,

    je vous joins mon fichier
    Pas tout de suite.

    As-tu essayé, éventuellement suite à recherches, d'adapter ton code en fonction des méthodes que je t'ai reportées?
    Dans l'affirmative, pourrais-tu retourner le code lié au formulaire.

    Bien Cordialement.

    Marcel

    Dernier billet:
    Suppression des doublons d'un tableau structuré, gestion d'un array

    Pas de messagerie personnelle pour vos questions, s'il vous plaît. La réponse peut servir aux autres membres. Merci.


  6. #6
    Futur Membre du Club
    Femme Profil pro
    Formateur en informatique
    Inscrit en
    Février 2019
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 42
    Localisation : France, Vaucluse (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : Février 2019
    Messages : 8
    Points : 5
    Points
    5
    Par défaut merci
    Bonjour
    désolée pour mon temps de réponse mais je n'ai pâs pu retravailler sur le projet avant.

    j'ai bien mis en place votre suggestion et ça marche.

    Merci beaucoup

  7. #7
    Membre chevronné
    Homme Profil pro
    Inscrit en
    Septembre 2013
    Messages
    1 369
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Septembre 2013
    Messages : 1 369
    Points : 2 156
    Points
    2 156
    Par défaut
    Bonjour,

    Procédure qui raz tous les contrôles d'un formulaire.
    Dans l'exemple joint, si on clique sur le bouton fiche vierge, tous les contrôles sont remis à 0.

    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
    Sub raz()
      Dim c As Control
      For Each c In Me.Controls
        Select Case TypeName(c)
           Case "TextBox"
              c.Value = ""
           Case "CheckBox"
              c.Value = False
           Case "ComboBox"
              c.ListIndex = -1
           Case "Frame"
              For Each b In c.Controls
                If TypeName(b) = "OptionButton" Then b.Value = False
              Next b
           Case "ListBox"
              nom_control = c.Name
              For j = 0 To Me(nom_control).ListCount - 1: Me(nom_control).Selected(j) = False: Next j
         End Select
       Next c
    End Sub
    Boisgontier
    Fichiers attachés Fichiers attachés

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

Discussions similaires

  1. Réponses: 13
    Dernier message: 26/02/2018, 00h07
  2. [XL-2010] Ajout d'un champ pour nouvelle saisie dans une liste déroulante
    Par jerem56 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 04/03/2014, 11h29
  3. Obliger l'utilisation du formulaire pour la saisie
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 19/04/2013, 13h36
  4. [AC-2007] simplifer mon formulaire pour la saisie
    Par tibofo dans le forum IHM
    Réponses: 1
    Dernier message: 12/07/2010, 10h49
  5. Réponses: 7
    Dernier message: 11/05/2007, 12h13

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