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 Byref ou byval


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Avatar de tamtam64
    Homme Profil pro
    stagiaire developpement vba
    Inscrit en
    Mai 2012
    Messages
    456
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : stagiaire developpement vba
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2012
    Messages : 456
    Billets dans le blog
    17
    Par défaut Optimisation Byref ou byval
    Bonjour, je m'adresse aux fan de l'optimisation, je cherche eventuellement une explication:
    je vous propose une fonction pour ajouter une colonne dans un tableau,
    quelle est la meilleure facon de fonctionner? plutot une sub en passant le tableau par reference ou bien un fonction avec un tableau par valeur .
    Je serais tenté de dire la sub , qui evite de creer une copie de la variable tableau mais je cherche confirmation.

    Merci a vous
    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
    25
    26
    27
    28
    29
    30
    31
    32
     
    Sub test()
        with ThisWorkbook.Worksheets(1)
    tab1 = .Range("A1").CurrentRegion
    tab2= .Range("A16").CurrentRegion
    If UBound(tab2) = UBound(tab1) Then
    MyCol = Application.Index(tab1, , 2)
    end with
    with ThisWorkbook.Worksheets(2)
        'on a un tableau de depart
    .Range("A1").Resize(UBound(tab2), UBound(tab2, 2)).Value = tab2
        'on a un tableau final
    Call FusionTableau(tab2, MyCol)
    .Range("A16").Resize(UBound(tab2), UBound(tab2, 2)) = tab2
    End If
    End Sub
     
     
        'Fusion tableau/ajout lignes
    Sub FusionTableau(ByRef TableauSource As Variant, Ligne As Variant)
            'definition variables
        Dim i As Long, j As Long
            'forcage
        ReDim Preserve TableauSource(1 To UBound(TableauSource, 1), 1 To UBound(TableauSource, 2) + 1)
            'Fusion
        For i = 1 To UBound(Ligne, 1)
            TableauSource(i, UBound(TableauSource, 2)) = Ligne(i, 1)
        Next i
             'ici ce qui servirait pour une fonction byval 
            'Assignation
        'FusionTableau = TableauSource
    End Sub

  2. #2
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 173
    Billets dans le blog
    2
    Par défaut
    Bonsoir tamtam,

    Je crois qu'on ne peut pas passer de Tableau par valeur, ce qui limite les choix

    Edit : Ah, tu utilises un tableau dans un variant, alors ça change tout, désolé

  3. #3
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, voir ici ?

  4. #4
    Membre éclairé
    Avatar de tamtam64
    Homme Profil pro
    stagiaire developpement vba
    Inscrit en
    Mai 2012
    Messages
    456
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : stagiaire developpement vba
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2012
    Messages : 456
    Billets dans le blog
    17
    Par défaut
    Bonjour,

    excuse moi kiki mais je ne trouve pas vraiment de réponse dans ton lien. Je veux juste savoir si passer par ref c'est mieux qu par val.
    ensuite je précise que ma fonction marche tres bien , c'est juste a titre d'exemple. C'est pour avoir des meilleur notions concernant es performances, ce qui peut me servir en stage pour proposer des codes tjs plus rapide. comme j'ai pas mal de données parfois un passage par ref ou par val peut peut etre s'averer etre un choix important , outre les non actualisation de l'ecran , le calcul manuel... etc

    merci

  5. #5
    Membre éclairé
    Avatar de tamtam64
    Homme Profil pro
    stagiaire developpement vba
    Inscrit en
    Mai 2012
    Messages
    456
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : stagiaire developpement vba
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2012
    Messages : 456
    Billets dans le blog
    17
    Par défaut
    un jour je penserais a regarder sur google dsl d'avance voici la reponse pour les anglophones
    http://www.jpsoftwaretech.com/which-...yval-or-byref/

  6. #6
    Invité
    Invité(e)
    Par défaut
    Si ton tableau ne fait qu'une dimension tu peux le redimensionner
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    dim T()
    Dedim t(1)
    Redimt(2)
    si il fait plusieurs dimension Alor ce n'est pas possible! Alors byval ou byref on sens fiche!
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    dm t()
    Redim t(10,5)
    Redim t(11,9) 'Erreur
    au-delà de savoir si le variable doit être modifiable ou pas car dans le cas d'un tableau il n'est souvent pas modifiable c'est l'occupation mémoire byref fait référence a la variable appelante et byval fait une copie donc double l'espace mémoire!
    Dernière modification par Invité ; 17/07/2015 à 02h00.

  7. #7
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 173
    Billets dans le blog
    2
    Par défaut
    Bonsoir à tous,

    si il fait plusieurs dimension Alor ce n'est pas possible!
    si, mais on peut seulement redimensionner la dernière dimension

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    dim t() Redim t(10,5) Redim t(10,9)

  8. #8
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    ce que j'ai voulu dir dans mon dernier post, c'est que de toutes les façon un tableau est délicat à manier et suivant l'exemple proposé, il est toujours préférable de créer un nouveau tableau qui fusionne les deux tableau que de manipuler un tableau existant!

    dans l'exemple proposé le tableau passé en paramètre n'est pas modifié mais est utilisé pour en créer un nouveau! don byVal ou ByRef peut importe.

    ByRef permet la modification d'une variable passé en paramètre tout en modifiant la variable source donnée en paramètre dans la méthode appelante! alors que ByVal modifie la valeur de la variable qu'a l'intérieur de la méthode appelé et 'affecte en rien la variable de la méthode appelante.

    Byref fait référence à l'adresse mémoire de la variable passé en paramètre de la méthode appelante, alors que ByVal fait une copie du contenu de cette variable.

    ByRef ne contient que l'adresse mémoire alors que ByVal tout le contenu de la variable.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Function MyFonction(ByRef V)
    dim V2
    V2=V 'ici on recopie la variable ByRef ça revient à ByVal
    end Function
    en revanche on se rends compte que ByRef minimise l'occupation mémoire!
    Dernière modification par AlainTech ; 28/07/2015 à 02h56. Motif: Suppression de la citation inutile

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

Discussions similaires

  1. Byref ou Byval pour tableau VBA?
    Par Nono Sto dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/10/2013, 09h50
  2. ByRef ou ByVal le return d'une fonction?
    Par tribaleur dans le forum Framework .NET
    Réponses: 4
    Dernier message: 01/09/2011, 16h39
  3. [VB.NET] ByVal qui réagie comme un ByRef
    Par ricil78 dans le forum Windows Forms
    Réponses: 5
    Dernier message: 11/02/2009, 14h14
  4. Profiling d'un Byref vs Byval
    Par EvaristeGaloisBis dans le forum Général VBA
    Réponses: 6
    Dernier message: 31/10/2008, 20h25
  5. ByVal et byRef
    Par qltmi dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/02/2008, 12h41

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