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 :

Pb code vba paramétrage de variable


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    268
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 268
    Par défaut Pb code vba paramétrage de variable
    Bonjour
    j'ai fait un petit code permettant d'extraire des données tous les XXX pas en définissant la ligne de début et le nb de colonne
    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
    24
    Sub reno1()
    '
     
    z = InputBox("Veuillez rentrer la valeur du pas")
    y = InputBox("Veuillez rentrer la première ligne à prendre en compte pour l'extraction", , 1)
     
    nbcol = InputBox("Veuillez indiquer le nombre de colonnes que contient le fichier", , 3)
    x = 10
    col = 1
     
    While Cells(x, 1).Value <> ""
     
            For col = 1 To nbcol
     
            Cells(y, col + nbcol).Value = Cells(x, col).Value
            Next col
     
            x = x + z
            y = y + 1
     
     
    Wend
     
    End Sub

    Ce code fonctionne or j'aimerais paramétrer également la valeur x qui doit être égale à y et ca fonctionne plus
    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
    24
    Sub reno1()
    '
     
    z = InputBox("Veuillez rentrer la valeur du pas")
    y = InputBox("Veuillez rentrer la première ligne à prendre en compte pour l'extraction", , 1)
     
    nbcol = InputBox("Veuillez indiquer le nombre de colonnes que contient le fichier", , 3)
    x = y
    col = 1
     
    While Cells(x, 1).Value <> ""
     
            For col = 1 To nbcol
     
            Cells(y, col + nbcol).Value = Cells(x, col).Value
            Next col
     
            x = x + z
            y = y + 1
     
     
    Wend
     
    End Sub
    seule la première ligne est recopiée alors que la valeur rentrer pour y est de 10 donc x = y = 10 ca devrait fonctionnait pareil et ben non !!!
    merci de m'aider

  2. #2
    Membre chevronné Avatar de mordrhim
    Inscrit en
    Avril 2007
    Messages
    270
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Avril 2007
    Messages : 270
    Par défaut
    c'est normal ^^

    tu ne définis pas tes variable or inputbox renvoie une chaine de caractere, ce qui fait que x, y, z, et nbcol sont des String (non pas ceux la !)

    donc au tout debut de ta sub rajoute
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Dim z As Integer
    Dim y As Integer
    Dim x As Integer
    Dim NbCol as integer
    Dim Col as Integer
    ca reglera tes problèmes

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Septembre 2006
    Messages
    268
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2006
    Messages : 268
    Par défaut
    effectivement ca marche !!!
    merci et bonne journée

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

Discussions similaires

  1. Conserver valeur variable en fin d´exécution de code VBA excel
    Par andromedor dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 25/10/2021, 10h34
  2. Racine carrée d'une variable dans un code vba
    Par developpeur82 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 01/03/2013, 08h46
  3. Réponses: 2
    Dernier message: 14/10/2009, 08h57
  4. [code VBA]passage de variable pour une requête paramétrée
    Par christrabin dans le forum VBA Access
    Réponses: 3
    Dernier message: 13/04/2007, 14h30
  5. Réponses: 7
    Dernier message: 11/03/2007, 09h35

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