Discussion :

[Potzo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If c.Value = 0 Then MsgBox "Diese WBS" & c.Offset(0, 33).Value & " hat keine Kosten !"

[Potzo]

Merci de ta reponse mercadog, mais ca n'a malheureusement rien change.

[fring]

Bonjour,

Ta colonne BS contient bien des valeurs ?

[Potzo]

Bonjour,

Ta colonne BS contient bien des valeurs ?

Hehe... je comprenais pas ta question, pusque j'utilise pas la colonne BS ...

Mais oui... j'ai oublie le signe - dans mon offset.

Mes excuses a mercadog pour ma meprise.

Merci a toi frings