OVH Cloud OVH Cloud

Index / Equiv dans Msgbox

2 réponses
Avatar
Didier NOVARIN
Bonjour
J'ai une liste A2:A33, que je souhaite indexer sur une colonne B2:B33
J'ai le début de ma procédure, et je souhaite avoir la fin
Je vous remercie
Didier

Sub Test()
Mavar = [index(A2:A33,int(rand()*(33-1)+1))]
MsgBox Mavar
MsgBox ??????
End Sub

2 réponses

Avatar
isabelle
bonjour Didier,

sans être sur d'avoir bien compris la question,

Sub Test()
Mavar = [index(A2:A33,int(rand()*(33-1)+1))]
x = Application.Match(Mavar, Range("A:A"), 0)
MsgBox Mavar
MsgBox Range("B" & x)
End Sub

isabelle

Bonjour
J'ai une liste A2:A33, que je souhaite indexer sur une colonne B2:B33
J'ai le début de ma procédure, et je souhaite avoir la fin
Je vous remercie
Didier

Sub Test()
Mavar = [index(A2:A33,int(rand()*(33-1)+1))]
MsgBox Mavar
MsgBox ??????
End Sub




Avatar
Didier NOVARIN
Bonjour Isabelle
C'est parfaitement cela !
Je te remercie beaucoup
Didier

"isabelle" a écrit dans le message de news:

bonjour Didier,

sans être sur d'avoir bien compris la question,

Sub Test()
Mavar = [index(A2:A33,int(rand()*(33-1)+1))]
x = Application.Match(Mavar, Range("A:A"), 0)
MsgBox Mavar
MsgBox Range("B" & x)
End Sub

isabelle

Bonjour
J'ai une liste A2:A33, que je souhaite indexer sur une colonne B2:B33
J'ai le début de ma procédure, et je souhaite avoir la fin
Je vous remercie
Didier

Sub Test()
Mavar = [index(A2:A33,int(rand()*(33-1)+1))]
MsgBox Mavar
MsgBox ??????
End Sub