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 :

optimisation du code pour la variable tableau


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    instituteur
    Inscrit en
    Juillet 2018
    Messages
    615
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : instituteur
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2018
    Messages : 615
    Par défaut optimisation du code pour la variable tableau
    Bonjour à tous.
    je m'initie maintenant aux variables tableaux. j'ai essayé de travailler en ressource avant de reproduire ce travail sur la feuille Excel comportant un tableau. je voudrais savoir s'il n'y a pas plus optimal que ce que j'ai écrit?
    le but de mon code est de faire un enregistrement .
    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
    Private Sub CommandButton1_Click()
    Dim i As Integer: Dim Tablo(): Dim x As Integer
    With Sheets(1)
        Tablo = .Range("Tabl").Value
     
        For x = LBound(Tablo) To UBound(Tablo)
        Tablo(x, 1) = TextBox3
        Tablo(x, 2) = TextBox2
        Tablo(x, 3) = TextBox4
     
        .ListObjects(1).ListRows.Add
        i = .Range("b" & Rows.Count).End(xlUp).Row   
        .Range("b" & i) = Tablo(x, 1)
        .Range("c" & i) = Tablo(x, 2)
        .Range("d" & i) = Tablo(x, 3)
        Exit For
        Next
     
    End With
     
    End Sub
    merci de votre attention.

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 682
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 682
    Par défaut
    Bonjour,

    sans savoir l'objectif exact de ton code, ce qui m'interpelle ici est ton Exit For, qui te fait sortir de ta boucle et donc ne parcourt pas ton tableau, se limitant au premier élément de celui-ci...


    Est-ce voulu ?
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Migrer les applications VBA Access et VBA Excel vers la Power Platform
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Coffrets disponibles de mes ouvrages : https://www.editions-eni.fr/jean-philippe-andre
    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre éclairé
    Homme Profil pro
    instituteur
    Inscrit en
    Juillet 2018
    Messages
    615
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : instituteur
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2018
    Messages : 615
    Par défaut
    merci pour la réponse.
    la sortie de la boucle prématurément a été faite sciemment. si je laisse la boucle l'ajout d'une nouvelle ligne se fait mal et ce n'est pas le but de mon code. en ajoutant " exit for " j'obtiens l'enregistrement voulu après la ligne non vide. en fait il ajoute une seule ligne après chaque click alors que sans "exit for", il ajoute à chaque fois à la ligne précédente deux nouvelles lignes.

  4. #4
    Membre éclairé
    Homme Profil pro
    instituteur
    Inscrit en
    Juillet 2018
    Messages
    615
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : instituteur
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2018
    Messages : 615
    Par défaut le but de mon code...
    Citation Envoyé par Jean-Philippe André Voir le message
    Bonjour,

    sans savoir l'objectif exact de ton code...


    Est-ce voulu ?
    j'enregistre des données dans un tableau sur une feuille excel. le but est d'ajouter un nouveau client à la suite de l'ancien. après plusieurs conseils de vos collègues j'ai préféré comprendre les variables tableaux et essayé de les utiliser. j'espère que vous m'avez compris. merci

Discussions similaires

  1. Optimisation du code pour vérifier si variable déjà utilisée
    Par MicKRub dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 15/10/2017, 14h24
  2. Réponses: 0
    Dernier message: 29/08/2007, 16h57
  3. Utiliser le même code pour différents variables
    Par vladvad dans le forum Windows Forms
    Réponses: 16
    Dernier message: 09/06/2007, 18h10
  4. Optimiser un code pour éviter " out of memory"
    Par risack dans le forum MATLAB
    Réponses: 16
    Dernier message: 19/03/2007, 09h36
  5. Réponses: 8
    Dernier message: 14/09/2006, 16h43

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