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 :

While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2017
    Messages : 3
    Par défaut While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
    Bonjour,

    Je cherche à remplir une ligne d'un tableau à partir d'informations saisis auparavant. L'objectif est que quand je clique sur le bouton valider de mon interface, la ligne 1 de mon tableau se complète.
    Si je reclique la ligne 2 se remplis etc (avec des infos différentes que j'ai rentré)

    la ligne a remplir qui compose 11 colonnes peut ,ne pas être complète. Je peux avoir des cellules de ma ligne vide.

    J'ai partiellement réussi mais des messages d'erreur surviennent quand je change des données.

    voici le code de mon bouton:


    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
    Sub Macro1()
    I = 2
     
    While Sheets("Bilan").Range("A" & I).Value <> "" And Sheets("Bilan").Range("B" & I).Value <> "" And Sheets("Bilan").Range("C" & I).Value <> "" And Sheets("Bilan").Range("D" & I).Value <> "" And Sheets("Bilan").Range("E" & I).Value <> "" And Sheets("Bilan").Range("F" & I).Value <> "" And Sheets("Bilan").Range("G" & I).Value <> "" And Sheets("Bilan").Range("H" & I).Value <> "" And Sheets("Bilan").Range("I" & I).Value <> "" And Sheets("Bilan").Range("J" & I).Value <> "" And Sheets("Bilan").Range("K" & I).Value <> ""
     
    I = I + 1
     
    Wend
     
    Sheets("bilan").Range("A" & I).Value = Sheets("menu").Range("E4").Value
    Sheets("bilan").Range("B" & I).Value = Sheets("menu").Range("H4").Value
    Sheets("bilan").Range("C" & I).Value = Sheets("menu").Range("B4").Value
    Sheets("bilan").Range("D" & I).Value = Sheets("menu").Range("B8").Value
    Sheets("bilan").Range("E" & I).Value = Sheets("menu").Range("E8").Value
    Sheets("bilan").Range("F" & I).Value = Sheets("menu").Range("H8").Value
    Sheets("bilan").Range("G" & I).Value = Sheets("menu").Range("E18").Value
    Sheets("bilan").Range("H" & I).Value = Sheets("menu").Range("E22").Value
    Sheets("bilan").Range("I" & I).Value = Sheets("menu").Range("E13").Value
    Sheets("bilan").Range("J" & I).Value = Sheets("menu").Range("B22").Value
    Sheets("bilan").Range("K" & I).Value = Sheets("menu").Range("H12").Value
     
    End Sub
    Merci d'avance

  2. #2
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2016
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2016
    Messages : 54
    Par défaut While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
    Bonjour,

    Peux-tu nous donner plus de précisions sur les erreurs que tu as stp ?

  3. #3
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2017
    Messages : 3
    Par défaut
    J'obtient:

    Erreur d'exécution '13'
    Incompatibilité de type

    le déblocage m'ouvre la ma macro et me surligne mon while et ce qui suit

  4. #4
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Décembre 2016
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Décembre 2016
    Messages : 54
    Par défaut While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
    Déjà si j'ai bien compris, tu nous dis que ta ligne peut comporter des cases vides or si une seule (ou plusieurs) de tes cases est vide, ton "i" ne va pas s'incrémenter ce qui doit surement t'emmener vers une erreur.

    Peux-tu nous poster ton projet pour que l'on jette un oeil ?

  5. #5
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2017
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2017
    Messages : 3
    Par défaut While multiple en VBA - remplir ligne d'un tableau à partir d'un bouton
    Voila mon dossier ci joint

    Je veux mettre comme condition que toutes les cellules A,B,C,D,E etc... doivent avoir le indice

    merci d'avance
    Fichiers attachés Fichiers attachés

  6. #6
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Je n'ouvre jamais (pas question) un classeur tiers et n'ai pas ouvert le tien.
    Ta variable i n'est pas typée !
    Commence par le faire et fais-le proprement, en gardant à l'esprit qu'elle peut atteindre une valeur supérieure à la valeur maximum d'une variable de type integer.

Discussions similaires

  1. Suppression d'une ligne d'un tableau à partir d'une valeur de cellule
    Par jerem1 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/12/2010, 14h15
  2. Réponses: 31
    Dernier message: 27/11/2010, 19h14
  3. Réponses: 9
    Dernier message: 14/04/2009, 16h20
  4. [Conception] Supprimer une ligne d'un tableau à partir d'un CHECKBOX
    Par snakejl dans le forum PHP & Base de données
    Réponses: 71
    Dernier message: 30/05/2006, 08h43
  5. [VBA-E] lancer un programme VB à partir d'un bouton
    Par yaya54 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 27/02/2006, 10h54

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