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 :

Dernière ligne du code executée avant les autres


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Developpeur amateur
    Inscrit en
    Juillet 2011
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Developpeur amateur
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Juillet 2011
    Messages : 34
    Par défaut Dernière ligne du code executée avant les autres
    Bonjour,

    Je poste car il m'arrive quelque chose d'incompréhensible.
    J'utilise une simple macro VBA pour remettre en forme mes lignes après application d'un filtre et un tri.

    Comme la liste peut être longue dans certains cas, je veux qu'à la fin de la macro, la cellule 1,1 soit sélectionnée pour afficher le haut du tableau.
    Avec la commande :Mais celle-ci s’exécute avant une boucle Do While Loop, alors qu'elle est tout à la fin du code et hors de la boucle bien entendu.
    Avant la boucle, je sélectionne la cellule (2,3) pour que la boucle fasse défiler les cellules de la colonne 3.

    Tout fonctionne bien avec le code ci-dessous :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub CommandButton1_Click()
        Dim numero As Integer
        lignes = Cells(1, 2).Value
        numero = 1
        Cells(2, 3).Select
        Do While numero <= lignes + 1
            SendKeys "{F2}"
            SendKeys "{ENTER}"
            numero = numero + 1
        Loop
    End Sub
    Or avec le code ci-dessous (ajout de Cells(1, 1).Select à la fin), la macro fait défiler les cellules de la colonne 1 !
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Private Sub CommandButton1_Click()
        Dim numero As Integer
        lignes = Cells(1, 2).Value
        numero = 1
        Cells(2, 3).Select
        Do While numero <= lignes + 1
            SendKeys "{F2}"
            SendKeys "{ENTER}"
            numero = numero + 1
        Loop
        Cells(1, 1).Select
    End Sub
    Merci pour votre aide.

  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
    Salut,

    saigneur d'yeux , pourquoi passes-tu par des Sendkeys

    A minima tu passes par une logique comme ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    lignes = Cells(1, 2).Value
    With Range("C2")
        .Formula = "=ROW()"
        .AutoFill Destination:=Range("C2:C" & lignes), Type:=xlFillDefault
    End With
    les sendkeys c'est vraiment une solution de la derniere chance
    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 averti
    Homme Profil pro
    Developpeur amateur
    Inscrit en
    Juillet 2011
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Developpeur amateur
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Juillet 2011
    Messages : 34
    Par défaut
    Merci pour ton aide.
    En fait c'est mon copain qui a fait le code initial et qui m'a demandé mon aide. Donc j'ai pas regardé le reste, j'ai bloqué sur le "bug" de la dernière ligne exécutée avant les autres.

    Je vais utiliser ta méthode ce sera plus propre en effet

    Par contre je veux quand même comprendre ce qu'il se passe avec cette dernière ligne !

  4. #4
    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
    Dis nous quelle valeur on peut trouver dans la cellule B1 deja
    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

  5. #5
    Membre averti
    Homme Profil pro
    Developpeur amateur
    Inscrit en
    Juillet 2011
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Developpeur amateur
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Juillet 2011
    Messages : 34
    Par défaut
    Les cellules contiennent du texte avec des retours à la ligne.
    Elle peuvent contenir entre 1 et X lignes.

    Et B1 contient un simple nombre qui affiche le nombre de lignes à traiter.

Discussions similaires

  1. Déplacer ligne de tableau sans écraser les autres
    Par kalitous dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/01/2012, 19h36
  2. Les pirates ont-ils compris avant les autres l'avantage du Cloud?
    Par Hinault Romaric dans le forum Actualités
    Réponses: 9
    Dernier message: 24/11/2010, 14h34
  3. Réponses: 1
    Dernier message: 02/07/2009, 12h16
  4. déclencher attachEvent avant les autres évènements
    Par renaudjuif dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 31/01/2008, 15h40
  5. Lancer un programme avant les autres
    Par windob dans le forum Windows XP
    Réponses: 6
    Dernier message: 04/08/2007, 08h55

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