Affichage de variables dans les MsgBox
Bonjour tout le monde,
je vous ecris parce-que je suis confronte a un petit probleme. J'aimerai afficher un message d'erreur contenant une variable. Je m'explique; j'ai une colonne dans laquelle j'ai des coûts correspondant chacun a une reference (dans une autre colonne).
J'aimerai donc que lorsque pour une reference donnee, mon coût est nul, cela me renvoie un message d'erreur avec la reference en question.
Voici ce que j'ai ecris :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub KostenNichtNull()
Dim SOLL As Worksheet
Dim C As Range
Set SOLL = Worksheets("SOLL")
For Each C In SOLL.Range("AL6:AL" & SOLL.Cells(Rows.Count, 38).End(xlUp).Row)
If C.Value = 0 Then
m = MsgBox("Diese WBS" & C.Offset(0, 33).Value & " hat keine Kosten !")
End If
Next
End Sub |
Evidemment...la MsgBox n'affiche que ce qui est entre guillemet.
Merci de m'eclairer !
Potzo