Erreur msgbox [Résolu]

Signaler
Messages postés
7
Date d'inscription
vendredi 28 novembre 2014
Statut
Membre
Dernière intervention
9 décembre 2014
-
Messages postés
7
Date d'inscription
vendredi 28 novembre 2014
Statut
Membre
Dernière intervention
9 décembre 2014
-
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

3 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
tes & de concaténation doivent être précédés et suivis d'un espace !
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
237
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
Messages postés
7
Date d'inscription
vendredi 28 novembre 2014
Statut
Membre
Dernière intervention
9 décembre 2014

Merci mon problème est résolu.