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

VB 6 et antérieur Discussion :

Insérer une variable dans une valeur ?


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2016
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : Mars 2016
    Messages : 14
    Par défaut Insérer une variable dans une valeur ?
    Bonjour,

    C'est BleuBite le Hobbit qui vient encore chercher de l'aide

    Je cherche à faire ne boucle pour écrire dans un fichier excel sur une même ligne mais dans plusieurs colonne.
    Je n'arrive pas à écrire correctement ma variable dans la valeur d'écriture, j'ai testé &col1 &col1& "&col1" "&col1&" sans succès
    Peut-être n'est-ce pas possible ?
    Voici mon script si quelqu'un a la bonté de jeter un œil
    voir ligne 8
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    While Col1 < "5" 
    	col1 = col1 + 1
     
    Set objExcel = CreateObject("Excel.Application")
    'objExcel.Visible = True
    Set objWorkbook = objExcel.Workbooks.Open(fichier2)
    Set objWorksheet = objWorkbook.Worksheets(1)
    	objWorksheet.Cells(9,&col1&).Value = Lect1
    objWorkbook.Save()
    objExcel.Quit
     
    Wend
    Merci pour vos réponses

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 132
    Par défaut
    Salut
    Ligne 1, While Cstr(col1) = "4" ou mieux (plus propre) While Col1 = 4 .
    Ta ligne 8, tu devrais essayer objWorksheet.Cells(9,col1).Value = Lect1 .
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2016
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : Mars 2016
    Messages : 14
    Par défaut
    Bonjour,

    Merci pour ta réponse ProgElecT mais mon problème porte sur la variable de la ligne 8
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objWorksheet.Cells(9,&col1&).Value = Lect1
    Ma commande est bonne mais je n'arrive pas à écrire la variable col1 correctement, à chaque fois cela me mets erreur de syntaxe (&col1 &col1& "&col1" "&col1&")

    Si tu as une idée ?

  4. #4
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    Bonjour,

    quelques remarques :
    - Evite de fermer/ouvrir Excel plusieurs fois dans la même sub, surtout si tu as plusieurs valeurs à enregistrer dans ta feuille
    - Si, comme je le pense, Col1 est une variable de type numérique tu ne peux pas écrire
    mais plutôt :
    Et du coup la ligne qui te poses problème devient tout simplement (comme te le suggérait ProgElect) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objWorksheet.Cells(9,Col1).Value = Lect1
    Sinon je te suggère un truc du style :
    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
    Dim xl As Excel.Application
    Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
     
    Private Sub Command1_Click()
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open(NomFichier)
    Set ws = xl.ActiveWindow.ActiveSheet
     
    Do While col1 < 5
        col1 = col1 + 1
        ws.Cells(9, col1).Value = VariableDeTonChoix
    Loop
     
    wb.save
    xl.Quit
    End Sub

  5. #5
    Membre averti
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mars 2016
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Distribution

    Informations forums :
    Inscription : Mars 2016
    Messages : 14
    Par défaut
    Yeah ça marche ! Mon problème était donc la définition de variable col = 1

    Merci OhMonBato (Trop délire ton profil"
    Merci ProgElecT (désolé je n'avais pas vu la subtilité dans ta réponse)

    Très bon week-end à vous !

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

Discussions similaires

  1. Insérer le contenu d'une variable dans une table SQLITE avec php
    Par St-42-FCM-57 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 26/10/2017, 20h27
  2. Réponses: 2
    Dernier message: 24/10/2011, 17h15
  3. Réponses: 1
    Dernier message: 02/06/2010, 14h05
  4. portée d'une variable dans une fonction dans une méthode
    Par laurentg2003 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 29/06/2009, 19h05
  5. Réponses: 1
    Dernier message: 15/02/2007, 00h24

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