Affecter la valeur trouvée par Msgbox à une variable
Saad1988
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 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 ?
Merci d'avance !!
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 !!
