recherche derniere valeur

  • Initiateur de la discussion Initiateur de la discussion gh4
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gh4

XLDnaute Occasionnel
bonjour

j'aimerais afficher dans i19 (feuil1) la derniere valeur trouver dans un tableau
en feuil2 colone b (lign 6 à lign15000)

merci de votre aide
 
Re : recherche derniere valeur

Bonjour,

Une solution par macro :

Sub DernièreCellule()
Dim L As Long
For L = 15000 To 6 Step (-1)
If Worksheets("Feuil2").Cells(L, 2).Value <> "" Then
Worksheets("Feuil1").Range("i9").Value = Worksheets("Feuil2").Cells(L, 2).Value
Exit For
End If
Next L
End Sub

Il peut y avoir des cellules vides en colonne B dans ma solution !
 

Pièces jointes

Dernière édition:
Re : recherche derniere valeur

Bonjour,

criscris11, ton code donne la valeur la plus grande et non pas la dernière valeur de la colonne ! En plus il faut que cette colonne soit composée de nombres, il pourrait très bien y avoir du texte par exemple.
 
Dernière édition:
Re : recherche derniere valeur

Bonjour à tous,

Juste pour sourire 🙂

Bien Marmotte, tu as lu le sujet de la discussion 🙂

Avec plein d'humour (rapport à une autre discussion)

A++ Marmotte et Cris (Bises at Home 🙂)
A+ à tous
 
Re : recherche derniere valeur

Cher mécano41,

Ta formule me ramène 0 avec mon fichier, ce qui ne correspond pas à la dernière valeur.

Oui, et c'est bien pour cela que j'avais dit que cela ne fonctionnait pas s'il y avait des trous! 🙂


Hormis le petit problème cité, j'aimerais comprendre comment fonctionne la formule RECHERCHE de Raja...avec 9^9 ou d'autres valeurs mais pas n'importe lesquelles...

Cordialement
 
Re : recherche derniere valeur

Pour Marmotte18,

Je n'avais pas regardé ta macro...mais cela devrait suffire :

Code:
Sub DernièreCellule()
      Worksheets("Feuil1").Range("i9").Value = Worksheets("Feuil2").Range("B15000").End(xlUp).Value
End Sub

Cordialement
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
456
Réponses
18
Affichages
399
Réponses
10
Affichages
388
Retour