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 :

Renseignement de cellule par range ou cells ?


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    Novembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 618
    Par défaut Renseignement de cellule par range ou cells ?
    Est-il plus performant de renseigner une cellule en utilisant le range ou en activant la feuille et en utilisant cells.value ?

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    que tu utilises un range simple, un cells(ligne,colonne) ou encore un range(Cells(ligne,colonne),Cells(ligne,colonne)) ... il sera toujours plus rapide de directement les manipuler, plutôt que d'activer les feuilles et les sélectionner

    exemple avec un range simple (c'est pareil pour les Cells et les Range incluant des Cells)

    Méthode à proscrire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Sub PasOptimal()
     
    Sheets("Feuil1").Activate
    Range("A1").Select
    Selection.Copy
    Sheets("Feuil2").Activate
    Range("B4").Select
    ActiveSheet.Paste
     
    End Sub
    Methode conseillée
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Sub PlusOptimal()
     
    Sheets("Feuil1").Range("A1").Copy Sheets("Feuil2").Range("B4")
     
    End Sub

  3. #3
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    Novembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 618
    Par défaut
    Je pensais davantage à des données provenant de curseur sql.

  4. #4
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Je suis désolé, ma boule de cristal ne fonctionne pas très bien, et vu que tu postes dans la catégorie "Excel VBA", je répond stricto sur ce périmètre puisque tu ne précisait pas de contexte particulier


    tes données ont déjà été rapatriée sur Excel ? Ta requête SQL est dans une table sur Excel ou ailleurs ? Que souhaites-tu faire de ta sélection ? etc..
    il faut encore des précisions sinon on va encore répondre en dehors de ton souhait

  5. #5
    Membre éprouvé
    Homme Profil pro
    Inscrit en
    Novembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 618
    Par défaut
    Mes données proviennent d'une base de données oracle.

    Est-il plus performant de coder

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    With worksheet("mafeuille")
          .range("A" & i).value = valeur de mon recordset
    End with
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    worksheet("mafeuille").activate
    Cells(i,1).value = valeur de mon recordset

  6. #6
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Si on reprend ma première explication, c'est ton premier code le plus perfomant : tu n'actives pas de feuille

    mais on peut rendre ton second code équivalent au premier, il suffit de rattacher ton Cells à la feuille concernée :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    With worksheet("mafeuille")
        .Cells(i,1).value = valeur de mon recordset
    End With
    Par ailleurs, le ".value" n'est pas nécessaire, c'est la propriété par défaut... si tu n'indiques aucun propriété ( Range("A1") = Une valeur) alors c'est interprété comme un .Value

  7. #7
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    Bonjour,


    Citation Envoyé par juju05 Voir le message
    Est-il plus performant de renseigner une cellule en utilisant le range ou en activant la feuille et en utilisant cells.value ?
    Sans avoir fait une revue exhaustive des expériences des "collègues" voici, comme dirait Guy A. Lepage, "La question qui tue" : Pourquoi activer la feuille ?

    Cells et Range sont fondamentalement la même chose, des Objets Range. Les moments où il faut sélectionner ou activer la feuille pour manipuler des objets Range, sont excessivement rares.

Discussions similaires

  1. [XL-2010] Comment renseigner une cellule par un certain nombre de caractère ?
    Par juju05 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/04/2015, 13h38
  2. [XL-2007] Fct : Range accès à une cellule par son "index"
    Par Bleys dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 06/11/2009, 18h43
  3. [VB6]renseigner un recordset par le code source
    Par dubidon dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 27/01/2006, 13h27
  4. Renseignement pop-up par fenêtre apellante - Firefox / IE
    Par damjal dans le forum Général JavaScript
    Réponses: 13
    Dernier message: 07/12/2005, 16h53
  5. TValueListEditor : Avoir des couleurs différentes par rangée
    Par Griswold dans le forum Composants VCL
    Réponses: 2
    Dernier message: 06/08/2004, 19h41

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