Récupérer la valeur de la dernière cellule non vide d'une colonne

Bonjour ;

Si la combobox2 affiche «route» alors dans la textBox6 j’aimerais récupérer la valeur de la dernière cellule non vide de la colonne correspondant à route (I). Si quelqu’un peut m’aider se serai sympa.

Je joins un fichier

Bonsoir TouToune, le forum,

Un essai....

Private Sub ComboBox2_Change()
 Dim tablo, i
 tablo = Sheets("Données_sortie_vélo").ListObjects(1).DataBodyRange
   For i = LBound(tablo, 1) To UBound(tablo, 1)
    If tablo(i, 3) Like Me.ComboBox2.Value Then
     TextBox6 = tablo(i, 9)
    End If
   Next i
End Sub

Cordialement,

Bonsoir xorsankukai

Je viens de tester votre code qui fonctionne parfaitement pour un choix.

Dans ma première demande je me suis mal exprimé, dans ma combobox2 il y a deux choix possibles

Si choix route alors on prend la dernière valeur de la cellule non vide de la colonne disque avant route « I » que l’on range dans la textbox6 , sinon c’est la dernière valeur de la cellule non vide de la colonne disque avant vtt « K » que l’on met dans la textbox6. Je m’excuse pour le temps que je vous ai fait perdre.

Bonsoir,

Xor bonsoir,

je vous propose ceci :

Private Sub ComboBox2_Change()
    TabDonnées = Sheets("Données_sortie_vélo").ListObjects(1).DataBodyRange
    ColExtract = IIf(ComboBox2.Value = "Route", 9, 11)
    TextBox6.Value = LRD(ComboBox2.Value, 3, TabDonnées, ColExtract)
End Sub

Function LRD(Recherche, ColRecherche, TabDonnées, ColExtractArr)
    ' Scan pour récupérer les données en fonction d'un test (ou plus) sur une ou plusieurs colonnes
    For I = UBound(TabDonnées) - 1 To 2 Step -1
        ' la condition recherchée
        If TabDonnées(I, ColRecherche) = Recherche And WorksheetFunction.Index(TabDonnées, I, ColExtractArr) <> "" Then
            LRD = WorksheetFunction.Index(TabDonnées, I, ColExtractArr)
            Exit Function
        End If
    Next I
    LRD = "N/A"
End Function

@ bientôt

LouReeD