Dernière adresse connue

Paf

XLDnaute Barbatruc

• 21 Juillet 2016

• #2

bonsoir mdo100,

un essai par fonction personnalisée (je ne sais pas faire par formule) :

Dans un module standard:

Code:

Function DerNum(Plage, Num)
For i = Plage.Columns.Count + Plage(1).Column - 1 To Plage(1).Column Step -1
    If Cells(Plage.Row, i) = Num Then
        DerNum = Cells(Plage.Row, i).Address(0, 0)
        Exit For
    End If
Next
End Function

et, en N5 : =DerNum(C5:K5;M5)
A+

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 21 Juillet 2016

• #3

Bonjour à tous,

Un essai par formule matricielle:
=SI(M5="";"";ADRESSE(LIGNE();MAX((A5:K5=M5)*(COLONNE(A5:K5)))))

JHA

 

Pièces jointes

• Classeur1 (4).xlsx

  10.4 KB · Affichages: 37

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 21 Juillet 2016

• #4

Bonsoir Ce lien n'existe plus
Impeccable la fonction personnalisée, j'ai juste corrigé =DerNum(A5:K5;M5).
Bonsoir JHA,
Je prends aussi cette formule matricielle.

Mais si quelqu'un à une idée sans formule matricielle, je suis preneur aussi.

Merci à vous 2 et bonne soirée.
Cordialement.

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 22 Juillet 2016

• #5

Bonsoir

On peut aussi faire avec

Code:

ADRESSE(LIGNE();SOMMEPROD(MAX((A5:K5=M5)*COLONNE(A5:K5))))

@ plus

 

Vote positif 0 Vote négatif

mdo100

XLDnaute Occasionnel

• 23 Juillet 2016

• #6

Bonjour CISCO,

Parfait cette formule non matricielle, on peut dire que j'ai le choix maintenant.
Merci à tous.
Je te souhaite un bon week-end.
Cordialement.

 

Vote positif 0 Vote négatif