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 :

VBA recherchev + rechercheh


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Juillet 2017
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Distribution

    Informations forums :
    Inscription : Juillet 2017
    Messages : 7
    Par défaut VBA recherchev + rechercheh
    Bonjour à tous,

    Comme intitulé, j'ai 2 listes. Je recherche les valeurs de la liste 1 (feuille "Historique") dans la liste 2 (feuille "Plan"). Une fois trouvé en vertical, je souhaite chercher en horizontal, la valeur de la 1ère colonne non-vide (colonne V à AK). Le but final est un copier-coller classique.

    Voici mon code, qui ne marche pas evidemment
    Il est lourd je pense, mais faut bien commencer !

    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
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    Sub date_départ_promo_par_magasin()
     
    Call annule_filtre
     
    Dim i, j, t As Integer
     
    i = 3
    j = 2
    t = 22
     
    While Sheets("Historique Etat 60").Cells(i, 3) <> ""
     
         If Sheets("PLAN").Cells(j, 1).Value = Sheets("Historique Etat 60").Cells(i, 3).Value Then
     
            For k = 1 To 16
     
              If Sheets("PLAN").Cells(j, t) <> "" Then
     
                Sheets("Historique Etat 60").Cells(i, 8) = Sheets("PLAN").Cells(1, t).Value
     
                Exit For
     
               Else: t = t + 1
     
              End If
     
            Next k
     
          t = 22
     
         Else: j = j + 1
     
         End If
     
      i = i + 1
      j = 2
    Wend
    Merci d'avance pour toute aide !
    Ci-joint le fichier
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Vlookup VBA / RECHERCHEV
    Par JimJames23 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/04/2011, 11h27
  2. vba recherchev à faire
    Par pepsister dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 06/08/2010, 16h27
  3. [XL-2003] RechercheV RechercheH Index/Equiv
    Par kev24gones dans le forum Excel
    Réponses: 5
    Dernier message: 23/02/2010, 09h57
  4. rechercheV, rechercheH, Equiv, index ?
    Par ericdev67 dans le forum Excel
    Réponses: 6
    Dernier message: 11/12/2008, 20h20
  5. Réponses: 5
    Dernier message: 05/02/2008, 12h27

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