Textbox text
09.11.2003 10:07:42
Lucien
Ich habe folgendes Makro das sehr gut funktioniert.
Aber ich stosse auf ein Problem wenn in einer gefundenen Zelle ein Text steht bekomme ich eine fehlermeldung und das Makro stoppt.
Ich möchte nun habe dass ich keine fehlermeldung bekomme und dass der Text in einer Textbox5 angezeigt wird.
If TextBox4.Text = "" Then
MsgBox ("Veuillez d'abort indruire le prix d'achat")
ElseIf TextBox1 <> "" Then
Dim rng As Range
Set rng = ActiveSheet.Cells.Find( _
what:=TextBox1, _
LookAt:=xlPart, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
TextBox5.Value = Range(rng.Address).Offset(0, 1) * CDbl(TextBox4)
TextBox2.Text = rng
Else
MsgBox "Le programme n'a pas trouver ce fournisseur"
Dim c As Control
For Each c In Me.Controls
If TypeName(c) Like "Text*" Then c.Value = ""
Next
End If
End If
End If
End Sub
Gruss Lucien