XL 2016 Repérer dernière colonne

[KTM]

Salut Tout le Forum
J aimerais à l'aide de code récupérer en N1 le mois concernant la dernière colonne remplie de ma table ( Voir Fichier joint )
Dans l"exemple ci ça sera le mois d'octobre 2019
Merci et bon début de journée.

 

[sylvanu]

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)

 

[sylvanu]

Bonjour Job75,
Désolé nos messages se sont croisés. Ma réponse était pour KTM.

 

[KTM]

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)

Merci

 

[KTM]

En VBA j'utiliserai cette fonction sans boucle :

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)

Tres Sympa Job75
C'est enorme!!

 

[KTM]

En VBA j'utiliserai cette fonction sans boucle :

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)

ça fonctionne mais comment me limiter à la plage B3:M10 ? Encore merci

 

[job75]

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

 

[KTM]

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

Ok Merci