XL 2016 Dernière colonne suivant un critère

[Atoto]

Bonjour tout le monde

Merci de m'aider de trouve un code VBA pour me situé à la dernière colonne à droite remplie comme colonne en (AA3) et de ce référer au texte "NL" sur la ligne 2.

j'espère que j'ai bien expliqué.vous trouverez un fichier ci-joint comme exemple.

 

[sylvanu]

Bonjour Atoto,
J'ai mis sous forme de fonction qui euvent être utilisés dans les feuilles et en VBA.
Tant qu'à faire j'ai mis le dernier NL "occupé" et le premier NL "libre".

Function FindLastNL(N)
For i = 53 To 1 Step -1
    If Cells(2, i) = "NL" And Cells(N, i) <> "" Then
        FindLastNL = i
        Exit Function
    End If
Next i
End Function
Function FindFirstFreeNL(N)
For i = 1 To 53
    If Cells(2, i) = "NL" And Cells(N, i) = "" Then
        FindFirstFreeNL = i
        Exit Function
    End If
Next i
End Function

 

[Atoto]

Merci Sylvanu
comment intégrer cette Fonction dans un Sub pour récupérer la colonne trouvée?

 

[sylvanu]

Une fonction perso s'utilise comme toute fonction, par ex :

Sub Essai()
' Je recherche le dernier NL occupé de la ligne 3
DernierOccupé = FindLastNL(3)
' Je recherche le premier NL libre de la ligne 5
PremierLibre = FindFirstFreeNL(5)
End Sub

dans votre ex, cela me semblait plus "souple" plutot qu'une sub qui aurait dépendu du contexte.

 

[Atoto]

Merci Sylvanu