Affecter la valeur trouvée par Msgbox à une variable

Fermé

Saad1988 - 13 févr. 2015 à 14:11
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 févr. 2015 à 11:40

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 !!

A voir également:

1 réponse

Réponse 1 / 1

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 févr. 2015 à 11:40

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

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"

programme qui n'affiche pas le mot secret

Impossible d'ouvrir des liens via mon Samsung A71

enigme

Code Ascii

Discussions similaires

Newsletters