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]

Bonjour KTM,
Comme les mois semblent s'incrémenter, alors on peut utiliser simplement : =MAX(3:3)

 

[KTM]

Bonjour KTM,
Comme les mois semblent s'incrémenter, alors on peut utiliser simplement : =MAX(3:3)

IL me semble que je suis mal compris
La formule =MAX(3:3) en N1 donne Decembre 2019 et non Octobre 2019

 

[sylvanu]

Oups, sorry ! Bien lire avant de répondre.
Et en plus je n'ai pas trouvé de solution.

 

[sylvanu]

Je ne voulais pas rester sur un ridicule.
Une solution avec fonction perso, qui semble marcher.

 

[sylvanu]

Plus rapide et sans Alea() pour recalculer.

 

[KTM]

Plus rapide et sans Alea() pour recalculer.

Très formidable
Merci

 

[mapomme]

Bonjour @KTM, @sylvanu,

Avec une colonne auxiliaire insérée en A (colonne masquée) sans vba.

 

[sylvanu]

Re KTM, Mapomme,
Le problème de la nouvelle colonne, c'est que ce n'est peut être pas applicable dans le fichier utilisé ( je suppose que KTM n'a fourni qu'un court extrait )
Le problème du VBA, ... c'est le VBA quand on ne connait pas.
Maintenant KTM a deux solutions.

 

[job75]

Bonjour KTM, sylvanu, mapomme,

Voyez le fichier .xlsx joint et cette formule matricielle, à valider par Ctrl+Maj+Entrée :

=INDEX(3:3;MAX(SIGNE(SOUS.TOTAL(3;DECALER(A4:A10;;COLONNE(3:3)-1)))*COLONNE(3:3)))

Je n'ai pas regardé encore la solution de mapomme.

A+

 

[mapomme]

Re, @KTM, @sylvanu,

Le problème de la nouvelle colonne, c'est que ce n'est peut être pas applicable dans le fichier utilisé ( je suppose que KTM n'a fourni qu'un court extrait )

J'ai eu un petit moment d'égarement

Une formule plus simple en N3 sans colonne supplémentaire:
=INDEX(3:3;MAX(SI(B4:M10<>"";COLONNE(B4:M10);"")))
Cette formule est une formule matricielle.

edit : bonjour @job75

 

[mapomme]

Re,

Préférez cette formule matricielle qui renvoie une chaine vide si le tableau est vide:
=SIERREUR(INDEX(3:3;GRANDE.VALEUR(SI(B4:M10<>"";COLONNE(B4:M10);"");1));"")

 

[job75]

En effet il est inutile d'utiliser SOUS.TOTAL, finalement perso j'utiliserai :

=INDEX(3:3;MAX(SI(4:10<>"";COLONNE(4:10))))

Toujours avec validation matricielle, elle ne renvoie jamais d'erreur s'il n'y en a pas dans le tableau.

 

[KTM]

Merci à tous pour vos réponses .Toutes ces solutions m'aident et marchent dans mon cas.
Je voudrais expérimenter celle de Sylvanu mais un soucis avec la déclaration des variables

Function Derniere(Lig1, Col1, Lig2, Col2, Rien)
'Dim C, Col1, Col2, L, Lig1, Lig2, DC As Long
For C = Col1 To Col2
For L = Lig1 + 1 To Lig2
DC = Col2 + Col1 - C
If Cells(L, DC) <> "" Then
Derniere = Cells(Lig1, DC)
Exit Function
End If
Next L
Next C
End Function


en N1=Derniere(3;1;10;13;B3:M10)

 

[job75]

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)