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 :

vlookup vba probleme


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Gestionnaire administratif
    Inscrit en
    Janvier 2014
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Gestionnaire administratif

    Informations forums :
    Inscription : Janvier 2014
    Messages : 1
    Par défaut vlookup vba probleme
    Bonjour, je suis en train de coder un vlookup qui ne fonctionne pas, pourriez vous regarder si vous repérer une erreur dans mon code?
    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
    Sub Mailclient() 
    Dim Session As Object 
    Dim db As Object 
    Dim doc As Object 
    Dim rtitem As Object 
    Dim object As Object 
    Dim fs As Object 
    Dim Principaux(2) As String 
    Dim Copies(3) As String 
    Dim dir As Object 
    Dim inti As Integer 
    Dim passwd As String 
    Dim resultat As Integer 
    Dim resultat2 As String 
    Dim valuer As String 
    Dim valuer2 As String 
    Dim valuer3 As String 
    Dim valuer4 As String 
    Dim valuer5 As String 
    resultat = InputBox("Veuillez insérer la référence pour envoyer le mail ", "Référence", "") 
    resultat2 = InputBox("Veuillez insérer l'adresse mail ", "Mail", "") 
    valuer = CDate(Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 3, False)) 
    valuer2 = CDate(Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 6, False)) 
    valuer3 = Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 12, False) 
    valuer4 = CDate(Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 3, False)) 
    valuer5 = Application.WorksheetFunction.VLookup(resultat, Sheets("feuill1").Range("I2:Z1600"), 7, False)
    ceci n'est que le début de ma macro, le but est pour un envoi de mail automatisé par lotus notes, le problème est sur la vlookup, si je réduit l'amplitude de la plage que je fais tourner le code et que je remet la bonne plage de cellule, cela fonctionne mais a chaque démarrage je doit refaire cette manip

  2. #2
    Membre Expert
    Homme Profil pro
    retraité
    Inscrit en
    Mars 2013
    Messages
    885
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2013
    Messages : 885
    Par défaut vlookup vba problème
    Bonjour,

    Et si tu donnes un nom à ta plage comme il est généralement recommandé de faire, cela change-t-il quelque chose.

    Cordialement,

Discussions similaires

  1. VLOOKUP VBA probleme
    Par bentor22 dans le forum Macros et VBA Excel
    Réponses: 18
    Dernier message: 22/01/2013, 16h44
  2. [VBA] Problem de suppression de composant
    Par jesus144 dans le forum IHM
    Réponses: 9
    Dernier message: 26/04/2006, 10h03
  3. [VBA]probleme : erreur 2001 operation annulée
    Par julio78 dans le forum Access
    Réponses: 6
    Dernier message: 09/01/2006, 15h21
  4. [VBA] Probleme de caractères spéciaux dans nom de classeur
    Par RedBurn dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/12/2005, 19h13
  5. Réponses: 10
    Dernier message: 13/06/2005, 16h02

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