Bonjour tout le monde,
J’ai besoin de votre aide,
Avec le code suivant je rempli un Tableau.
comment je peux changer mon code de telle facon que:
S’il ya un texte dans le textbox Kom1 il doit le prendre en commentaire si le Textbox est vide (pas de commentaire) il l’ignore.
Code :
Private Sub CommandButton1_Click()
z = 2
Do While Sheets("Tabelle1").Cells(z, 1) <> ""
z = z + 1
Loop
Sheets("Tabelle1").Cells(z, 1) = Me.BestNR
Sheets("Tabelle1").Cells(z, 2) = Me.Kunde
Dim cmt As Comment
Set cmt = Sheets("Tabelle1").Cells(z, 1).Comment
If cmt Is Nothing And Kom1.Text <> "" Then
Set cmt = Sheets("Tabelle1").Cells(z, 1).AddComment
cmt.Text Text:=Kom1.Text
End If
End Sub
Merci d’avance
Chaelo