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 :

récupérer la valeur de l'avant dernière cellule d'une colonne [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut récupérer la valeur de l'avant dernière cellule d'une colonne
    Bonjour à tous,

    Encore un peu d'aide serait la bienvenue.

    En fait, je sais qu'avec ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("AP65536").End(xlUp).Row
    je récupère le numéro de la dernière ligne.
    Mais je souhaiterai avoir la valeur de l'avant dernière cellule et celle de l'avant avant dernière cellule afin de les mettre dans deux variables distinctes pour les utiliser par la suite dans un TCD.

    Croyez vous que cela soit simplement réalisable ?

    Merci

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Tu retranche 1 et 2 respectivement. Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim LastLig As Long, Lig_1 As Long, Lig_2 As Long
     
    With Sheets("Feuil1")
        LastLig = .Cells(.Rows.Count, "AP").End(xlUp).Row
        If LastLig > 2 Then
            Lig_1 = LastLig - 1
            Lig_2 = LastLig - 2
        End If
    End With

  3. #3
    Membre Expert
    Femme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Juin 2007
    Messages
    673
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Conseil

    Informations forums :
    Inscription : Juin 2007
    Messages : 673
    Par défaut
    Bonjour,
    Valeur de l'avant dernière cellule en remontant d'une ligne :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("AP65536").End(xlUp).Offset(-1, 0).Value
    Et celle encore avant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("AP65536").End(xlUp).Offset(-2, 0).Value

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut
    ah ben deux réponses pour le prix d'une, c'est plus rapide que l'éclair ce forum,
    en tout cas merci à vous deux.

    Bon alors la deuxième solution de tedo01 étant plus simple à mettre en oeuvre, j'ai pris celle là. Ca marche impec.

    Enfin, j'ai un autre problème maintenant mais je vais créer un autre sujet

  5. #5
    Expert confirmé
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Par défaut
    Bonsoir,

    Attention, cette écriture est obsolète et dangereuse sous 2007 (tag de cette question) et plus:

    Range("AP65536").End(xlUp)
    combien y-a-t-il nativement de lignes sous 2007 ?

    cordialement,

    Didier

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

Discussions similaires

  1. Nb.si des x dernières cellules d'une colonne
    Par Phixidor dans le forum Excel
    Réponses: 4
    Dernier message: 21/03/2013, 23h02
  2. avant dernière cellule d'une colonne filtrée
    Par orgnobi dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 10/09/2012, 11h51
  3. Réponses: 2
    Dernier message: 10/11/2011, 05h40
  4. [VBA-E] dernière cellule d'une colonne
    Par anisr dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/03/2007, 15h41

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