Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Cnum en VBA?

Cnum en VBA?

14 réponses
Avatar
Frédo P
Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir cette
ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
bonsoir Fredo,

ActiveCell.Formula "=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"
' ou
x = Evaluate("=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))")

isabelle


Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir cette
ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre


Avatar
Philippe.R
Bonsoir Fredo,
=max(value(right([G9380:G9396],len([G9380:G9396])-1)))
conviendrait il ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Frédo P" a écrit dans le message de news:
Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir cette
ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre




Avatar
GD
eh eh !!! Philippe ....
et le array ?????
toi y'en a chirogourdiste aussi ????
Selection.FormulaArray = _

"=MAX(VALUE(RIGHT(R[9379]C[6]:R[9395]C[6],LEN(R[9379]C[6]:R[9395]C[6])-1)))"

;-)))
@+

"Philippe.R" a écrit dans le message de
news:
Bonsoir Fredo,
=max(value(right([G9380:G9396],len([G9380:G9396])-1)))
conviendrait il ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Frédo P" a écrit dans le message de
news:

Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir cette
ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre








Avatar
Philippe.R
Bonsoir Gilbert,

eh eh !!! Philippe ....
et le array ?????
toi y'en a chirogourdiste aussi ????


Ben, je crois bien que oui ! ;o)))))
--
Amicales Salutations

Avatar
Frédo P
Isabelle : ce qui est donné, est donné. Mais malheureusement je n'ai pas le
résultat escompté.Elle doit être matricielle pour le cas et le résultat
attribué à une variable.... avec Evaluate?
--
.

Fred
Ôter nsp pour répondre
"isabelle" <"il_était_une_fois......."@..> a écrit dans le message de news:

bonsoir Fredo,

ActiveCell.Formula > "=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"
' ou
x = Evaluate("=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))")

isabelle


Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir cette
ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre




Avatar
isabelle
bonsoir Fredo,

dans ce cas,

ActiveCell.FormulaArray "=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"

isabelle


Isabelle : ce qui est donné, est donné. Mais malheureusement je n'ai pas le
résultat escompté.Elle doit être matricielle pour le cas et le résultat
attribué à une variable.... avec Evaluate?
--
.

Fred
Ôter nsp pour répondre
"isabelle" <"il_était_une_fois......."@..> a écrit dans le message de news:

bonsoir Fredo,

ActiveCell.Formula > > "=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"
' ou
x = Evaluate("=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))")

isabelle


Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir cette
ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre






Avatar
Frédo P
Je ne sais pas trop la signification exact de Chirogourdiste, J'ai essayé
toutes les propositions et je n'ai pour aucune le bon résultat
Voila ce que j'ai en réalité:
Adrs = Eprv & "!" & Course.Offset(0, 3 + (Eprv = "Plat") * -1 + (Eprv "Monté") * 1).Address ' Eprv=Sheet
J'ai essayé:
[C5]= Evaluate("=MAX(ISNUMBER(RIGHT(" & Adrs & ",LEN(" & Adrs & ")-1)))").
[C5].FormulaArray=("=MAX(CNUM(RIGHT(" & Adrs & ",LEN(" & Adrs & ")-1)))").
Cette dernière m'inscrit bien le cnum mais ne le calcul pas.
Fred
Ôter nsp pour répondre
"GD" a écrit dans le message de news:

eh eh !!! Philippe ....
et le array ?????
toi y'en a chirogourdiste aussi ????
Selection.FormulaArray = _


"=MAX(VALUE(RIGHT(R[9379]C[6]:R[9395]C[6],LEN(R[9379]C[6]:R[9395]C[6])-1)))"


;-)))
@+

"Philippe.R" a écrit dans le message de
news:
Bonsoir Fredo,
=max(value(right([G9380:G9396],len([G9380:G9396])-1)))
conviendrait il ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"Frédo P" a écrit dans le message de
news:

Bonsoir tout le monde de Mpfe
Il y a t'il encore à cette heure :23h08 une âme pour me convertir
cette



ligne en VBA
{=MAX(CNUM(DROITE(G9380:G9396;NBCAR(G9380:G9396)-1)))}
--
.

Fred
Ôter nsp pour répondre












Avatar
Frédo P
Bonjour, il 1H37 du mat Isa

.> dans ce cas,

ActiveCell.FormulaArray > "=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"


ISNUMBER donne ESTNUM et non pas CNUM,donc ça ne get pas.J'ai cherché dans
mes archives et n'ai rien trouvé, peut être dans disciplus, on verra dans qq
heures après zzzz.

Avatar
isabelle
ha ! ok, c'est VALUE la traduction de CNUM

Selection.FormulaArray = _
"=MAX(VALUE(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"
bonne nuit !
isabelle


Bonjour, il 1H37 du mat Isa

.> dans ce cas,

ActiveCell.FormulaArray > > "=MAX(ISNUMBER(RIGHT(G9380:G9396,LEN(G9380:G9396)-1)))"


ISNUMBER donne ESTNUM et non pas CNUM,donc ça ne get pas.J'ai cherché dans
mes archives et n'ai rien trouvé, peut être dans disciplus, on verra dans qq
heures après zzzz.



Avatar
AV
Sans pouvoir me prononcer sur la validité de la chaîne "Adrs" :

[C5] = Evaluate("MAX(VALUE(RIGHT(" & Adrs & ",LEN(" & Adrs & ")-1)))")
ou encore (entre autres)
[C5] = Evaluate("MAX((RIGHT(" & Adrs & ",LEN(" & Adrs & ")-1))/1)")

AV
1 2