Affecter la valeur trouvée par Msgbox à une variable

Saad1988 -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je souhaite ne pas affiché Msgbox mais affacter la valeur trouvée à une variable appelée valeurtrouve ?

Dim rngData As Range, rngLabelRow As Range, rngLabelColumn As Range, fn As WorksheetFunction, Dim valeurtrouve as single
Set fn = Application.WorksheetFunction
With ThisWorkbook1.Worksheets("Feuil1")
Set rngData = .Range("Y2:AK6")
Set rngLabelRow = .Range("X2:X6")
Set rngLabelColumn = .Range("Y1:AK1")
End With
With fn
MsgBox .Index(rngData, .Match(pvnai, rngLabelRow, 0), .Match(semaig, rngLabelColumn, 0))
End With
End Sub


Merci d'avance !!


1 réponse

michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour

variable=MsgBox(.Index(rngData, .Match(pvnai, rngLabelRow, 0), .Match(semaig, rngLabelColumn, 0)))

ou peut-^tre + logique
variable= .Index(rngData, .Match(pvnai, rngLabelRow, 0), .Match(semaig, rngLabelColumn, 0))
Msgbox variable
0