MsgBox avec valeur d'une cellule

[sev]

Bonjour à tous,
Je voudrais insérer dans un MsgBox la valeur d'une cellule "G2".
Pourriez vous m'aider ?

Private Sub Worksheet_Activate()
Calculate
If Range("G2") < 1000 Then
    MsgBox "Vidange de la voiture à faire dans " & [COLOR="Blue"]" valeur de G2"[/COLOR] & " KMS", vbInformation + vbOKOnly
    End If
End Sub

Merci

 

[Catrice]

Re : MsgBox avec valeur d'une cellule

Bonjour;


Private Sub Worksheet_Activate()
Calculate
If Range("G2") < 1000 Then
MsgBox "Vidange de la voiture à faire dans " & Range("G2") & " KMS", vbInformation + vbOKOnly
End If
End Sub

 

[Pierre-Henry]

Re : MsgBox avec valeur d'une cellule

Bonjour,
Avec ce que tu as déjà, ça m'étonne que tu n'aies pas trouvé tout seul 😉

MsgBox "Vidange de la voiture à faire dans " & [color=red]Range("G2").Value[/color] & " KMS", vbInformation + vbOKOnly

Edit: Bonjour Catrice, bonjour Said....sacré collision là 🙂

 

[BERRACHED said]

Re : MsgBox avec valeur d'une cellule

Salut,Sev

essayé ce bout decode :

Dim T As String
T = Range("G2").Value
Calculate
If Range("G2") < 1000 Then
    MsgBox "Vidange de la voiture à faire dans " & T & " KMS", vbInformation + vbOKOnly
    End If

Cordialement

 

[sev]

Re : MsgBox avec valeur d'une cellule

Merci , celà fonctionne.
j'avais due faire une erreure de rédaction avant !!!