trouver dernière cellule non vide col A et aficher resultat de la col I correspondante

[pascal21]

bonjour le forum
je souhaite en vba obtenir le resultat suivant dans la cellule c3

en b3 j'ai cette formule qui récupère le contenu de la derniere cellule non vide de la col A

INDEX(A8:A200;NBVAL(A8:A200)

j'aimerais obtenir en c3 le resultat de la ligne correspondante au resultat de la cellule B3 de la colonne I sachant que cette colonne comporte des celulles vides
pas clair!!
exemple:
resultat de B3 1/10/2015 trouvé sur la ligne 15
en C3 il me faut le résultat de la colonne I à la ligne 15 sachant que cette cellule peut etre vide
comment faire en formule si possible ou alors en VBA
merci

 

[Lone-wolf]

Bonjour Pascal

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig As Long, rw
derlig = Cells(Rows.Count, 2).End(xlUp).Row
Range("e3").Value = Cells(derlig, 2).Value
rw = Application.Match(Range("e3"), Columns(2), 0)
Range("c3").Value = Cells(rw, 9).Value
Cancel = True
End Sub

'OUBIEN

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim derlig As Long, rw

  If Not Intersect(Target, Columns("J:J")) Is Nothing Then
  derlig = Cells(Rows.Count, 2).End(xlUp).Row
  Range("e3").Value = Cells(derlig, 2).Value
  rw = Application.Match(Range("e3"), Columns(2), 0)
  Range("c3").Value = Cells(rw, 9).Value
  End If

End Sub

 

[pascal21]

bonjour lone wolf
pour commencer j'ai fais une erreur dans l'énonce pour les cellules
c'est rectifé
par contre ton code recopie a chaque fois le derniere ligne de la col I
ce qui n'est pas bon
et j'ai bien fais quelques essais de modifs mais sans résultat

edit c'est bon j'ai truvé le problème
merci