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 :

Problème import de données de la feuille vers UserForm [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Contremaître du Service technique
    Inscrit en
    Mars 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contremaître du Service technique
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2018
    Messages : 7
    Par défaut Problème import de données de la feuille vers UserForm
    Bonjour à tous,

    avant de poser ma question, voici les points a connaître afin de bien cerner le contexte.

    Je suis en train d'améliorer mon excel qui me sert à faire les bon de commandes interne. J'intègre un feuilles qui servira de base de données pour les produits récurant.
    Pour cela, je passe d'abord par un UserForm qui propose de sélectionner/désélectionner les articles à ajouter.

    Le problème se situe au niveau des conditionnements :
    Il s'agit d'une ComboBox alimentée par les conditionnements déjà encodé dans la feuille "Produit récurant".
    Lors de l'activation de l'UserForm, je lance une vérifications des cellules qui doivent contenir les conditionnements et les inscrit dans la ComboBox correspondante.
    Si la cellule est vide, j’inscris "Unité(s)" dans la ComboBox.

    Le problème est que mon code ne fonctionne pas du tout et je ne vois pas pourquoi.
    I et J sont Integer

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
                'On donne une valeur à J
                    J = 19
                'Boucle pour remplir les ComboBox "Conditionement" en fonction des lignes du BDC qui sont remplies ou non 
                    For I = 1 To 14
                        If Sheets("BDC").Range("C" & J) = "" Then Me.Controls("Conditionement" & I) = "Unité(s)" Else Me.Controls("Conditionement" & I) = Sheets("BDC").Range("C" & J).Value
                        J = J + 1
                    Next I

    Voici une capture de ce que j'ai dans la feuille
    Nom : Capture BDC.PNG
Affichages : 187
Taille : 26,0 Ko

    Voici une capture de ce que j'ai dans l'USF
    Nom : Capture USF.PNG
Affichages : 204
Taille : 34,7 Ko

    je joins le fichier vidé de toutes données liée à mon travail afin que vous ayez un maximum d'informations
    Bon de commande vierge.xlsm

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    Bonjour

    J'ai pas bien compris ce que tu cherches à faire mais as tu penser à utiliser une listbox avec 5 colonnes au lieu de tous ces textbox??

  3. #3
    Membre habitué
    Homme Profil pro
    Contremaître du Service technique
    Inscrit en
    Mars 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contremaître du Service technique
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2018
    Messages : 7
    Par défaut
    Citation Envoyé par BENNASR Voir le message
    Bonjour

    J'ai pas bien compris ce que tu cherches à faire mais as tu penser à utiliser une listbox avec 5 colonnes au lieu de tous ces textbox??
    J'avoue que non.

    1) Je n'y ai pas pensé
    2) Je ne sais pas encore comment faire mais je garde l'idée pour plus tard car j'ai pas mal de choses sur le feu

  4. #4
    Membre habitué
    Homme Profil pro
    Contremaître du Service technique
    Inscrit en
    Mars 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 38
    Localisation : Belgique

    Informations professionnelles :
    Activité : Contremaître du Service technique
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2018
    Messages : 7
    Par défaut
    Problème résolu :

    bête erreur de ma part. J'avais, plus bas dans le code, mis un ligne pour effacer les combobox.

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

Discussions similaires

  1. Réponses: 0
    Dernier message: 15/06/2017, 17h14
  2. Importer des données de 250 feuilles vers une seule
    Par Bryan78 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 30/04/2008, 16h18
  3. Importer des données d'une feuille Excel vers TABLE
    Par souminet dans le forum Bases de données
    Réponses: 1
    Dernier message: 07/11/2006, 09h10
  4. Importer les données d'une feuille EXCEL
    Par codial dans le forum Bases de données
    Réponses: 4
    Dernier message: 05/02/2006, 09h07
  5. [CR]Importer des données d'une feuille excel
    Par rolan dans le forum SAP Crystal Reports
    Réponses: 3
    Dernier message: 17/12/2004, 22h32

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