Application.worksheetFonction
Barahaoua
Messages postés
105
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
bonjour SVP Je veux transformer cette formule excel en format qui s’écrit dans une macro
voila la fonction
=SI(NON(ESTVIDE(O7));INDEX($H13:$H1048576;ARRONDI.SUP(ALEA()*NBVAL($H13:$H1048576);0);1))
et voila ce que j'ai fait mais c'est faux
Application.WorksheetFunction.Index(H13:H1048576);Round.SupRand()*Counta(H13:H1048576);0);1)
merci
voila la fonction
=SI(NON(ESTVIDE(O7));INDEX($H13:$H1048576;ARRONDI.SUP(ALEA()*NBVAL($H13:$H1048576);0);1))
et voila ce que j'ai fait mais c'est faux
Application.WorksheetFunction.Index(H13:H1048576);Round.SupRand()*Counta(H13:H1048576);0);1)
merci
1 réponse
Bonjour
Déjà entre la formule et le code VBA, il y a une différence. Qu'est devenu le contrôle de la cellule vide?
Utilisez l'enregistreur de macro.
Avec l'enregistreur en cellule A1 et après toilettage du résultat, voici ce que ça donne
Cdlt
Déjà entre la formule et le code VBA, il y a une différence. Qu'est devenu le contrôle de la cellule vide?
Utilisez l'enregistreur de macro.
Avec l'enregistreur en cellule A1 et après toilettage du résultat, voici ce que ça donne
Range("A1").FormulaR1C1 = "=IF(NOT(ISBLANK(R[4]C[10])),INDEX(R[10]C8:R[1048573]C8,ROUNDUP(RAND()*COUNTA(R[10]C8:R[1048573]C8),0),1))"
Cdlt
