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 avec fonction Find [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Mars 2010
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Mars 2010
    Messages : 63
    Par défaut Problème avec fonction Find
    Bonjour à tous,

    j'ai un petit problème avec l'utilisation de la fonction Find
    J'ai la macro suivante :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Not Intersect(Target, Columns("B:B")) Is Nothing Then
    Dim K As Range
    Set K = Sheets("Données").Range("Liste").Find(Target)
     
    If Not K Is Nothing Then
    Target.Offset(0, 4).Value = K.Offset(0, 1).Value
    End If
     
    end sub
    Le range "Liste" étant comme son nom l'indique une liste de données correspondant à une plage de cellule (A1:A10).
    Et je ne comprend pas pourquoi, mais la macro ne fonctionne pas...
    Ce qu'il faut savoir, c'est que les données de la liste ne sont pas rentrées en dur, mais sont liées à d'autres cellules de la feuille par une formule (type : =$B$1)
    J'ai essayé pour voir de rajouter une valeur en dur dans ma liste. Et cette fois-ci ma macro fonctionne, mais uniquement pour cette valeur.

    J'en conclus donc que la fonction Find trouve dans une liste donnée une valeur si celle-ci est entrée en dur, mais pas si elle est liée par une formule à une autre cellule.

    Quelqu'un sait-il comment résoudre ce problème? J'éspère avoir été assez clair dans mon explication.

    D'avance merci pour vos réponses, cordialement

  2. #2
    Membre éprouvé
    Profil pro
    Inscrit en
    Mai 2010
    Messages
    97
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2010
    Messages : 97
    Par défaut
    Bonjour RussellD,

    As-tu essayé avec ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set K = Sheets("Données").Range("Liste").Find(Target, LookIn:=xlValues)
    Attention aussi à ce que Target ne corresponde qu'à une cellule, sinon, il risque de ne pas trouver les données.

  3. #3
    Membre confirmé
    Inscrit en
    Mars 2010
    Messages
    63
    Détails du profil
    Informations forums :
    Inscription : Mars 2010
    Messages : 63
    Par défaut
    Merci beaucoup, cela fonctionne parfaitement.

    Cordialement

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

Discussions similaires

  1. Problème avec fonctions et string/char
    Par vdumont dans le forum C++
    Réponses: 6
    Dernier message: 08/04/2006, 16h54
  2. Problème avec fonction
    Par Goundy dans le forum C
    Réponses: 24
    Dernier message: 01/10/2005, 20h17
  3. [MFC][WINSOCK] Problème avec fonction recv
    Par Le Farfadet dans le forum MFC
    Réponses: 4
    Dernier message: 23/09/2005, 11h00
  4. Problème avec fonction d'envoie de mail
    Par zyg dans le forum Réseau/Web
    Réponses: 1
    Dernier message: 23/02/2005, 08h48
  5. [Requête] Problème avec fonction "DATE_FORMAT()"
    Par sekiryou dans le forum Requêtes
    Réponses: 4
    Dernier message: 11/01/2005, 21h52

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