XL 2016 Repérer dernière colonne

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #2

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

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 4 Décembre 2019

• #3

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #4

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #5

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

 

Pièces jointes

• Copie de DColonne-1.xlsm

  16.9 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #6

Plus rapide et sans Alea() pour recalculer.

 

Pièces jointes

• Copie de DColonne-2.xlsm

  15 KB · Affichages: 7

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 4 Décembre 2019

• #7

sylvanu à dit:

Plus rapide et sans Alea() pour recalculer.

Cliquez pour agrandir...

Très formidable
Merci

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #8

Bonjour @KTM, @sylvanu,

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

 

Pièces jointes

• KTM- DColonne- v1.xlsx

  11 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #9

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Décembre 2019

• #10

Bonjour KTM, sylvanu, mapomme,

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

Code:

=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+

 

Pièces jointes

• DColonne(1).xlsm

  10.6 KB · Affichages: 1

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #11

Re, @KTM, @sylvanu,

sylvanu à dit:

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 )

Cliquez pour agrandir...

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

 

Pièces jointes

• KTM- DColonne- v2.xlsx

  10.3 KB · Affichages: 4

Dernière édition: 4 Décembre 2019

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 4 Décembre 2019

• #12

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));"")

 

Dernière édition: 4 Décembre 2019

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Décembre 2019

• #13

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

Code:

=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.

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 4 Décembre 2019

• #14

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)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Décembre 2019

• #15

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)

 

Pièces jointes

• DColonne VBA(1).xlsm

  15.9 KB · Affichages: 4

Vote positif 0 Vote négatif