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 :

Récuperer contenu d'une cellule adjacente [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2012
    Messages
    24
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2012
    Messages : 24
    Par défaut Récuperer contenu d'une cellule adjacente
    Bonjour, je reviens vers vous

    J'ai un fichier Excel avec deux feuilles "Etat" et "Code". Sur la feuille "code", chaque cellule de la colonne "A" contient un code (texte). Chaque cellule de la colonne B comporte une phrase (texte) de B3 à B53. J'ai fais une sélection de ces cellules et l'ai nommé "Description". Sur la page "etat" j'ai un combo box qui me permet de choisir, une des phrases de la plage "Description" dans la liste déroulante et de l'afficher dans la cellule "A20".
    On en arrive à mon problème. Maintenant, je voudrais que sur la page "Etat" en "B20" je puisse récupérer et coller le code de la page "Code" de la colonne "A" correspondant à la phrase récupérer dans la colonne "B" et coller en "A20".
    Voila, excusez moi pour cette longue explication, et en espérant avoir été le plus clair possible. Si vous avez une idée.
    Merci

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    En B20
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =INDEX(code!$A:$A;EQUIV($A$20;code!$B:$B;0))

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Mars 2012
    Messages
    24
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2012
    Messages : 24
    Par défaut
    Bonjour et merci à Mercatog, je connaissais cette possibilités et je l’ai donc adapté, cela fonctionne mais…
    J’ai des cellules qui contiennent beaucoup de texte et je me retrouve avec une erreur « #valeur ». je précise que ma cellule est en « renvoyer à la ligne automatique » « ajuster hauteur de la ligne » et que même si j’agrandis ma cellule, le problème continue.
    Je récupère dan un combobox une plage nommée « Description » et avec ce 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
     
    Private Sub ComboBox_NatTrav_Change()
    Dim col
    Dim ligne
    col = 1
    With Sheets(1)
    ligne = .Range("b54").End(xlUp).Row + 1
    If ligne < 20 Then
    ligne = 20
    ElseIf ligne = 54 Then
    Exit Sub
    Unload Me
    End If
    .Cells(ligne, col).Value = ComboBox_NatTrav.Value
    End With
    End Sub
    je colle mon choix de la combobox dans une cellule, jusqu'à la tout va bien. Ensuite avec cette formule
    « =SI(ESTNA(INDEX(tabentier;EQUIV(A20;Description;0);1));"";INDEX(tabentier;EQUIV(A20;Description;0);1)) »
    je récupère le code de la cellule adjacente à mon choix de la combobox et là si j’ai beaucoup de texte dans ma cellule j’ai l’erreur « #valeur » sinon ça marche bien.
    En cherchant sur le net j’ai trouvé que cela pouvait venir de la limitation de caractères en largeur dans la cellule.
    Je joint un fichier pour exempleTest.xls
    Je ne trouve pas de solution, merci de vos suggestions ou autre

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Mars 2012
    Messages
    24
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2012
    Messages : 24
    Par défaut
    Bonjour je clôture ce message.

    Merci à la prochaine.

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

Discussions similaires

  1. [VBA-E]Récuperer contenu d'1 cellule d'1 classeur a l'autre
    Par fabremel dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 06/03/2006, 16h09
  2. Récupere contenu d une frame
    Par alexmorel dans le forum Général JavaScript
    Réponses: 12
    Dernier message: 03/03/2006, 14h58
  3. [VBA]Copier le contenu d'une cellule d'un autre classeur
    Par dudu59 dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 01/02/2006, 17h08
  4. Réponses: 3
    Dernier message: 27/01/2006, 18h35
  5. Importer le contenu d'une cellule Excel vers Access
    Par deaqu1 dans le forum Access
    Réponses: 7
    Dernier message: 05/11/2005, 15h26

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