Afficher la valeur d'une ou plusieurs cellules dans un msgBox

[AdrienG]

Bonjour à tous,

Mon problème va sans doute vous sembler très simple et pourtant des débutant comme moi peuvent encore butter là-dessus.

A travers un bouton je voudrais afficher dans un msgBox les valeurs de deux cellules qui se trouvent dans un autre onglet (Pilote).
J'ai déjà ecrit quelque ligne là-dessus mais le seul bug c'est que ma fenêtre qui affiche les bonnes valeurs apparait dans le mauvais onglet (Pilote). Je veux rester dans l'onglet Pilote BS.

Voici mon code:

Sub Bouton287_QuandClic()
Sheets("Pilote").Select
Range("DZ2").Select
Range("DZ3").Select

variable1 = Range("DZ2")
variable2 = Range("DZ3")
MsgBox "Le pourcentage global pour BS est de: " & variable2 & " " & "%" & Chr(10) & "Le pourcentage global pour SM est de: " & variable1 & " " & "%"

End Sub


Merci d'avance.

Adrien

 

[Hulk]

Re : Afficher la valeur d'une ou plusieurs cellules dans un msgBox

Hello tout le monde,

Essaie comme ceci..

    Dim Var1 As Variant
    Dim Var2 As Variant

    Set Var1 = Sheets("Pilote").Range("DZ2")
    Set Var2 = Sheets("Pilote").Range("DZ3")

    variable1 = Var1
    variable2 = Var2
    MsgBox "Le pourcentage global pour BS est de: " & variable2 & " " & "%" & Chr(10) & "Le pourcentage global pour SM est de: " & variable1 & " " & "%"

EDIT :

C'était à cause des Select... ben évidemment ça sélectionnait la feuille "Pilote" !

 

[AdrienG]

Re : Afficher la valeur d'une ou plusieurs cellules dans un msgBox

Sa fonctionne très bien.

Merci beaucoup

Adrien