Dernière ligne dans laquelle une valeur donnée apparait

Bonjour,

Pour le boulot, je dois crée un rapport de visite pour des commerciaux.

J'ai donc crée un formulaire. Une fois rempli, les réponses sont exportées dans une autre feuille (grâce à une macro).

Je souhaiterais récupérer les dernières données enregistrées dans cette autre feuille selon le nom de la société que l'on renseigne afin de ré-encoder les dernières données automatiquement à chaque visite au sein d'un même société.

Je pensais donc récupérer le numéro de la dernière ligne où cette société apparaît pour ensuite récupérer les données.

Comment puis-je récupérer ce numéro de ligne? ou peut-être avez-vous une autre solution?

Au besoin, je peux fournir mon fichier.

Merci de votre aide =)

Range("A65536").Select
Selection.End(xlUp).Select
valeurdeladerniercelulledutableau = ActiveCell.Value

ou

Dim Derligne As long
Derligne = Range("H" & Rows.Count).End(xlUp).Row
valeurderniereligne = Worksheets("Sheet1").Cells(A, derligne) 

Je suis pas encore un pro des macros mais ca devrait fonctionner, dis moi

Merci pour ta réponse.

Je suis un débutant en matière de macro et j'ai du mal à comprendre quoi faire avec ton bout de code. ^^'

Je te propose ceci qui évite les Select

 dernière_ligne = [A65000].End(xlUp).Row

Du même genre si tu veux la première ligne

  première_ligne = [A1].End(xlDown).Row

Pour plus de précision quant à ton cas, fourni ton fichier

Cordialement

Ce n'est pas juste la dernière ligne dont j'ai besoin.

J'ai besoin d'obtenir le numéro de la dernière ligne où se trouve une valeur renseignée (ici le nom de la société) sachant que cette valeur apparaîtra plusieurs fois dans la même colonne.

Avec le code posté ci-dessus, la variable dernière_ligne sera un numéro,

Quel est le problème ?

Joins un fichier si tu peux

Bonsoir,

Voir et tester cette proposition !

=SOMMEPROD(MAX((A4:A23=F6)*LIGNE(A4:A23)))

Bonjour à tous,

J'ai un probleme similaire, j'ai fait un bout de code qui marche tres bien pour selectionner la derniere ligne remplie.

 Range("A17").Select
    selection.End(xlDown).Select
    derniere_ligne = ActiveCell.Row
    If derniere_ligne = 45 Then Exit Sub

Mon probleme est que depuis, j'ai amelioré mon fichier pour que les n° dans la colonne A (de A17 à A44) s'incremente tout seul avec une formule

{=SI(NBCAR(B18);SOMME(SI(NBCAR($B$18:$B18);1;0));"")}

du coup, vu qu'il y a une formule, ma selection va tout le temps à la ligne 45.

Y'a t il un moyen pour que cette selection se fasse tant que la formule donne un numero et qu'elle s'arrete au resultat de la formule cellule vide ""?

Merci de votre aide

Bonjour,

Noisy, démarre ta propre question, sinon tout va s'entrecroiser ici et ça sera illisible.

eric

OK desolé

Bonjour

JFL a écrit :

Bonsoir,

Voir et tester cette proposition !

=SOMMEPROD(MAX((A4:A23=F6)*LIGNE(A4:A23)))

C'est exactement ce que je recherche.

ça n'a pas l'air de fonctionner pour le moment, mais je vais tenter de continuer avec ça. Merci

Voici mon fichier, au cas où quelqu'un veut tenter par lui-même.

C'est bon parfait! ça fonctionne =D Merci à tous