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 :

Remplir les cellules Excel avec des variables VB


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Inscrit en
    Novembre 2005
    Messages
    20
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 20
    Points : 10
    Points
    10
    Par défaut Remplir les cellules Excel avec des variables VB
    :
    je souhaite mettre les données d'un tableau vb sur une ligne de cellules Excel.
    C'est-à-dire que si le tableau s'appelle a() : a(1) va sur la cellule A1, a(2) sur B1, etc...
    Je ne trouve pas le code

    Help!

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    290
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2005
    Messages : 290
    Points : 374
    Points
    374
    Par défaut
    Bonjour,
    VBA Excel où VB6 ??

    jpleroisse

  3. #3
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    J'ai ça qui consiste à passer des paramètres de Word à Excel

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub PasserDesParamètres()
        AppExcel.Workbooks("MonClasseur").MaVariable = AppWord.Documents("MonDoc").MaVariable
    End Sub
    Ton "truc" devrait ressembler à ça

    A tout hasard

    A+

  4. #4
    Membre à l'essai
    Inscrit en
    Novembre 2005
    Messages
    20
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 20
    Points : 10
    Points
    10
    Par défaut
    Citation Envoyé par leroissejp
    Bonjour,
    VBA Excel où VB6 ??

    jpleroisse
    vb6

  5. #5
    Membre à l'essai
    Inscrit en
    Novembre 2005
    Messages
    20
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 20
    Points : 10
    Points
    10
    Par défaut
    Citation Envoyé par ouskel'n'or
    J'ai ça qui consiste à passer des paramètres de Word à Excel

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Sub PasserDesParamètres()
        AppExcel.Workbooks("MonClasseur").MaVariable = AppWord.Documents("MonDoc").MaVariable
    End Sub
    Ton "truc" devrait ressembler à ça
    je vais essayer de voir ce que je peux faire avec ça. merci

  6. #6
    Membre expérimenté Avatar de Megaxel
    Profil pro
    Inscrit en
    Mai 2003
    Messages
    1 187
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2003
    Messages : 1 187
    Points : 1 405
    Points
    1 405
    Par défaut
    Pourquoi est-ce que tu parles de Word, Ousk?
    Il est dans VB, il a un tableau, c'est tout. Il faut juste faire:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    For i = 1 To 5
       AppExcel.ActiveWorkbook.ActiveSheet.Cells(1, i).Value = a(i)
    Next i
    Non?

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    290
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2005
    Messages : 290
    Points : 374
    Points
    374
    Par défaut
    Bonsoir,
    Dans l'exemple suivant, je crée un nouveau classeur.
    Placer la référence à Excel !
    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
     
    Private Sub Command1_Click()
       Dim objXL As New Excel.Application
    Dim wbXL As New Excel.Workbook
    Dim wsXL As New Excel.Worksheet
    If Not IsObject(objXL) Then
        MsgBox "Vous Avez Besoin de Microsoft Excel  pour cette Fonction", vbExclamation, "Excel"
        Exit Sub
    End If
    ' Ouvre Excel
    objXL.Visible = True
    Set wbXL = objXL.Workbooks.Add
    Set wsXL = objXL.ActiveSheet
    Dim a(3)
    a(0) = "Bonjour"
    a(1) = "Comment vas-tu ?"
    a(2) = "Bien et toi ?"
    a(3) = "Moi ça va aussi."
    wsXL.Cells(1, 1) = a(0)
    wsXL.Cells(1, 2) = a(1)
    wsXL.Cells(1, 3) = a(2)
    wsXL.Cells(1, 4) = a(3)
    End Sub
    jpleroisse

  8. #8
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 546
    Points
    15 546
    Par défaut
    Pourquoi est-ce que tu parles de Word, Ousk?
    Il est dans VB, il a un tableau, c'est tout. Il faut juste faire:
    Parce que j'avais le passage d'un paramètre d'une appli à l'autre dans ces deux lignes et, en attendant que tu répondes, et comme je n'ai pas VB, c'était juste pour qu'il extrapole... mais heureusement, tu es arrivé...

    A+

Discussions similaires

  1. Comment remplir les cellules excel par le contenu des textbox
    Par USER_QUOT dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 29/05/2015, 16h10
  2. [Toutes versions] Sous VBA appeler une cellule excel avec une variable
    Par karatetiger76 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/04/2011, 19h04
  3. fusionner les cellules excel avec php
    Par ilyes_dev dans le forum Langage
    Réponses: 2
    Dernier message: 18/11/2009, 11h32
  4. Réponses: 11
    Dernier message: 29/05/2008, 16h26
  5. Remplir une cellule Excel avec une condition sous vb
    Par enibris dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 14/01/2008, 13h47

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