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 :

Copier un texte dans un textbox à partir de feuilles et lignes différentes selon la question [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Ex technicien Prévention Incendie
    Inscrit en
    Février 2009
    Messages
    156
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Ex technicien Prévention Incendie
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 156
    Par défaut Copier un texte dans un textbox à partir de feuilles et lignes différentes selon la question
    Bonjour à toutes et tous.
    Je bricole actuellement sur un fichier questionnaire se présentant sous la forme d'un USF.
    Ce que j'aimerai faire : Récupérer un texte dans une feuille qui varie selon la question et sur une ligne qui varie également selon la question. J'ai donc écrit le code ci-dessous. Mais comme à mon habitude j'ai un problème de synthaxe. Pourriez vous m'aider à bien écrire le code.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Private Sub Button_Q_Prec_Click()
     
    Dim LC As String
    Dim PC As String
     
        PC = Sheets("Base_USF").Cells(2, 3).Value       'PC = Page cible
        LC = Sheets("Base_USF").Cells(2, 4).Value       'LC = Ligne cible
     
     
        Questionnaire01.Box_Comm.Value = Sheets("PC").Name.Cells(2, LC).Value
     
    End Sub
    J'ai enlevé ce qui fonctionne. LC et PC me donnent bien les valeurs attendues.
    Merci d'avance pour votre aide
    Thierry

  2. #2
    Membre expérimenté Avatar de EBRAG
    Homme Profil pro
    Formateur en informatique
    Inscrit en
    Avril 2013
    Messages
    125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Formateur en informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : Avril 2013
    Messages : 125
    Par défaut
    Bonjour,

    et si tu enlevais les guillemets autour de "PC" ?

    par ailleurs, si LC est la ligne cible, ne devrait-on pas avoir Cells(LC, 2) ?

  3. #3
    Membre confirmé
    Homme Profil pro
    Ex technicien Prévention Incendie
    Inscrit en
    Février 2009
    Messages
    156
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Ex technicien Prévention Incendie
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 156
    Par défaut
    Bonjour et Merci.
    Je viens d'essayer PC sans les "" sans plus de succès.
    Pour LC tu as raison j'ai modifié
    Merci

  4. #4
    Membre confirmé
    Homme Profil pro
    Ex technicien Prévention Incendie
    Inscrit en
    Février 2009
    Messages
    156
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Ex technicien Prévention Incendie
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 156
    Par défaut Résolu
    J'ai résolu mon problème, je vais expliquer comment,ça peut rendre service à quelqu'un. Voici mes observations (mais je suis d'un niveau très faible)
    J'ai remplacé String par Single, ce qui fait de la valeur (20 par exemple) c'est écrite 20 alors qu'avec String j'avais "20" (je pense que pour l'adresse ça change pas mal).
    A bientôt

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

Discussions similaires

  1. [Tkinter] Copier un texte dans le presse-papier
    Par fire.stone dans le forum Tkinter
    Réponses: 3
    Dernier message: 01/05/2018, 10h22
  2. Réponses: 2
    Dernier message: 08/07/2013, 18h31
  3. [AC-2003] Copier le texte d'une TextBox dans une table
    Par fufi42 dans le forum VBA Access
    Réponses: 3
    Dernier message: 26/05/2013, 19h21
  4. Ajouter du texte dans un input à partir d'une autre fenêtre
    Par Michaël dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 13/04/2005, 20h14

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