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 :

trouver numero ligne premiere ligne vide


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2014
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2014
    Messages : 75
    Par défaut trouver numero ligne premiere ligne vide
    Bonjour tout le monde,

    Je suis à la recherche du code qui permet d'enregistrer dans une variable le numéro de ligne la première ligne vide d'une feuille excel. J'ai trouvé des bouts de code sur le net mais aucun ne correspond à ce que je cherche.

    Par exemple j'ai trouvé
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("A1").end(xldown).offset(1,0).select
    Il y a deux problèmes. Le premier est qu'on ne regarde que la colonne A, alors que je cherche une ligne entièrement vide. Le second est que je n'arrive pas à récupérer le numéro de ligne.


    J'ai essayé aussi avec un while, mais je ne le maitrise pas suffisament pour faire ce que je veux. De plus il ne marche que pour une colonne (du moins dans ce que j'ai essayé).
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    while Isempty(cells(i,1)) = false
    i=i+1
    wend

    Pouvez vous m'aider ? Je vous en remercie d'avance.

    Cordialement.

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Sujet fréquemment évoqué sur ce forum. Je te conseille la lecture de la FAQ et particulièrement ce chapitre http://excel.developpez.com/faq/?pag...reLigneNonVide
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut

    Bonjour, bonjour !

    (cf règles du forum ‼)


    Il y a pourtant tout le nécessaire sur ce forum : FAQ, tutoriel, forum Contribuez & discussions …

    En étant logique, la fonction End est ce qu'il y a de mieux avec la fonction Find


    Sinon de la p'tite usine en utilisant le B-A-BA d'Excel, une fonction de feuille de calculs !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub Demo()
        Do
            R& = R& + 1:  T% = Application.CountA(Rows(R))
        Loop Until R = Rows.Count Or T = 0
     
        If T = 0 Then MsgBox R
    End Sub
    _______________ _____________________________________ _____________________________

    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2014
    Messages
    75
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2014
    Messages : 75
    Par défaut
    Merci pour vos réponses.

    En fait je trouvais des résultats qui ne correspondaient pas à ce que j'attendais quand je lancais mon code. Je tombais à chaque fois sur la ligne 128 oO. J'avais un problème dans mes données. Bref le code fonctionnait bien.

    Sujet résolu.

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

Discussions similaires

  1. [XL-2007] Ajouter les donnée d'un userform dans la premiere ligne vide
    Par dodo28 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 31/07/2009, 00h12
  2. recuperer la premier ligne non vide
    Par nsqualli dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/12/2008, 18h12
  3. Réponses: 4
    Dernier message: 27/11/2008, 10h36
  4. mettre la premiere ligne vide dans combobox
    Par oscar.cesar dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 27/02/2008, 13h24
  5. Réponses: 6
    Dernier message: 27/10/2007, 12h16

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