Besoin de MAX en VBA

JNP

XLDnaute Barbatruc

• 20 Août 2013

• #2

Re : Besoin de MAX en VBA

Bonjour Temjeh 🙂
Quelque chose comme ça ? 🙂
Bonne soirée 🙂

 

Pièces jointes

• PairImpair.xlsm

  25.4 KB · Affichages: 24

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 20 Août 2013

• #3

Re : Besoin de MAX en VBA

Merci beaucoup c'est exactement cala.

Aussi est-ce possible soit un ou l'autre ... le dernier atteint dans la même formule

Le dernier de la colonne si PAIR ou IMPAIR

EX: si la dernière fois rencontrer est un pair ou impair = ligne

Si ma dernière valeur écrite pair ou impair est en ligne 512 ...donne 512

Y a-t-il quelques choses de semblable en VBA?

Temjeh

 

Dernière édition: 20 Août 2013

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 20 Août 2013

• #4

Re : Besoin de MAX en VBA

Re 🙂
Bah il suffit de calculer le max des 2... 🙂

Code:

Function MaxPairOuImpair(Plage As Range)
Application.Volatile
MaxPairOuImpair = Evaluate("=MAX(MAX(IF(" & Plage.Address & "=""PAIR"",ROW(" & Plage.Address _
    & "))),MAX(IF(" & Plage.Address & "=""IMPAIR"",ROW(" & Plage.Address & "))))")
End Function

Bonne suite 🙂

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Août 2013

• #5

Re : Besoin de MAX en VBA

Bonjour.
Une toute autre solution, avec un marteau pilon, certes, mais très facile à utiliser et qui peut servir à bien d'autres cibles que cette mouche.

 

Pièces jointes

• PairImpairTemjeh.xls

  192 KB · Affichages: 25

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 20 Août 2013

• #6

Re : Besoin de MAX en VBA

Merci

Je remplace Plage.Adress par mon range?

Et comment j'appel cette fonction?
Ex: msgbox = MaxPairOuImpair (pas bon)

Désolé je ne suis pas très familier avec les fonction

Temjeh

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 20 Août 2013

• #7

Re : Besoin de MAX en VBA

Merci beaucoup

Parfait ton dernier exemple me convient parfaitement.

Je vais l'adapter à mes besoins

Merci encore

Temjeh

 

Vote positif 0 Vote négatif