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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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 Then
    Set cmt = Sheets("Tabelle1").Cells(z, 1).AddComment
    cmt.Text Text:=Kom1.Text
    End If
 
End Sub
Merci d’avance

Chaelo