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 :

Lire dans deux feuilles d'un Classeur et Récupération des valeurs VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    141
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 141
    Par défaut Lire dans deux feuilles d'un Classeur et Récupération des valeurs VBA
    Bonjour ,

    Je suis entrain d'écrire un script pour pouvoir effectuer une recherche dans des fichiers excel et récupérer des données dans une zone de liste .

    Recherche multi-Critères : trois comboBox .

    Dans un premier temps , j'ai réalisé deux script différents pour deux feuilles différentes (mes deux scripts procède presque de la même façon ) .Les deux fonctionne parfaitement bien séparément ! j'ai ressayer de les combiner afin d'avoir un seul USERFORM Mais j'ai une erreur d'exécution 9 : l'indice n'appartient pas à la sélection . Je suppose que c'est à cause de la recherche dans les deux feuilles en même temps ( ils sont dans le même classeur ) :

    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
    Set f = Sheets("BD")
     
       Set Rng = f.Range("A2:M" & f.[a65000].End(xlUp).Row)
       BD = Rng.Value
       Ncol = Rng.Columns.Count
     
    et puis j'ai ça : 
     
    Me.Enreg = f.[a65000].End(xlUp).Row + 1
       Set e = Sheets("BD1")
      colCle = 3                                 ' adapter
      nbCol = e.[iv1].End(xlToLeft).Column
     
      '--
      n = e.[a65000].End(xlUp).Row - 1
    Ces lignes là , sont dans le :

    Private Sub UserForm_Initialize()

    Il me semble faut ouvrir et fermer la feuille après chaque recherche pour ne pas embrouiller le VBA lol mais je ne sais pas comment faire ! Quelqu'un peut me montrer comment ?

    et une autre question que signifie :

    n = e.[a65000].End(xlUp).Row - 1

    Bonne journée

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, tu pourrais t'inspirer de Fusion de fichiers Excel XLS (3) en regardant la procédure FusionFichiers en la copiant puis en l'élaguant.

    P.-S. : Il est souhaitable de baliser son code

  3. #3
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    141
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 141
    Par défaut
    Merci kiki29

    Je suis nouvelle la prochaine fois je penserais à baliser mes codes ( a big hug ^.^)

    Je vais regarder le site en espérant trouver une réponse à mon besoin. Je te tiens au courant .

  4. #4
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    141
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 141
    Par défaut
    Par contre kiki29 , je ne souhaite pas fusionner les fichiers XL je veux juste adapter le code .. pour qu'il puisse parcourir deux fichiers du même classeur et affecter à chaque combo sa propre valeur ...

Discussions similaires

  1. comparer deux feuilles du même classeur
    Par ririrourou dans le forum Macros et VBA Excel
    Réponses: 30
    Dernier message: 20/05/2008, 11h51
  2. Export de deux Etats Access dans deux feuilles Excel
    Par ADUS145 dans le forum Access
    Réponses: 1
    Dernier message: 07/04/2008, 12h48
  3. Réponses: 1
    Dernier message: 18/04/2007, 18h13
  4. Ecrire des données dans deux feuilles excel
    Par gantec dans le forum Macros et VBA Excel
    Réponses: 24
    Dernier message: 28/02/2007, 08h28
  5. Ecrire dans deux feuilles par userform
    Par gantec dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 20/02/2007, 14h43

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