erreur msgboxRésolu

Question

Bonjour, 

Une erreur apparaît dans la message box mais je ne vois pas laquelle 
pouvez vous m'aider svp
merci d'avance

Public Sub Tableaudonnées()
Dim échelon As String
Dim montantannuel As Integer
Dim mensualités As Integer
Dim C As Object

échelon = Worksheets("Identité").Range("O64")

Set C = Worksheets("Montant annuel").Range("A2")
While Not IsEmpty(C) And C.Value <> Worksheets("Identité").Range("O64").Value
    Set C = C.Offset(1, 0)
Wend
If C.Value = Worksheets("Identité").Range("O64").Value Then
montantannuel = C.Offset(0, 1)
mensualités = C.Offset(0, 2)
MsgBox("L'échelon" &échelon& "vous donne droit à" &montantannuel& "pour l'année soit" &mensualités& "par mois")
End If
End Sub

ucfoutu · Answer

tes & de concaténation doivent être précédés et suivis d'un espace !

ucfoutu · Answer

et ceci :
While Not IsEmpty(C) And C.Value <> Worksheets("Identité").Range("O64").Value  Set C = C.Offset(1, 0)Wend 
Montre par ailleurs que tu as très nettement besoin de commencer à apprendre les rudiments

MeliAntho · Answer

Merci mon problème est résolu.

Erreur msgbox

3 réponses

Votre réponse

Discussions similaires