XL 2016 Repérer dernière colonne

sylvanu à dit:

C'est une fonction. Pour fixer le type, utiliser :
Function Derniere(Lig1 As Integer, Col1 As Integer, Lig2 As Integer, Col2 As Integer, Rien As Variant)

Cliquez pour agrandir...

job75 à dit:

En VBA j'utiliserai cette fonction sans boucle :

VB:

Function DernierMois(plage As Range)
If plage.Rows.Count = 1 Then Exit Function
Dim c As Range
Set c = plage.Rows(2).Resize(plage.Rows.Count - 1).Find("*", , xlValues, , xlByColumns, xlPrevious)
If Not c Is Nothing Then DernierMois = plage(1, c.Column - plage.Column + 1)
End Function

Formule en N1 du fichier joint =DernierMois(3:10)

Cliquez pour agrandir...

job75 à dit:

En VBA j'utiliserai cette fonction sans boucle :

VB:

Function DernierMois(plage As Range)
If plage.Rows.Count = 1 Then Exit Function
Dim c As Range
Set c = plage.Rows(2).Resize(plage.Rows.Count - 1).Find("*", , xlValues, , xlByColumns, xlPrevious)
If Not c Is Nothing Then DernierMois = plage(1, c.Column - plage.Column + 1)
End Function

Formule en N1 du fichier joint =DernierMois(3:10)

Cliquez pour agrandir...

job75 à dit:

En N1 la formule =DernierMois(3:10) va très bien mais on peut aussi utiliser =DernierMois(B3:M10)

Cliquez pour agrandir...