Discussion :

[chaelo]

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

[Gorfael]

Salut

Code :

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

1
2
3
4
5
 
    If cmt Is Nothing and Kom1.Text<>"" Then
    Set cmt = Sheets("Tabelle1").Cells(z, 1).AddComment
    cmt.Text Text:=Kom1.Text
    End If

A+

[chaelo]

Salut Gorfael

desolé j'ai pas compris la reponse.

peux-tu m'expliquer stp.

Mes Slts

Chaelo

[Gorfael]

salut
j'ai juste ajouté un test supplémentaire à ta ligne

Code :

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

If cmt Is Nothing and Kom1.Text<>"" Then

si le commentaire est vide et la textbox différente de chaine vide alors
le reste de ta macro semblant te convenir, pourquoi y toucherai-je ?
A+

[chaelo]

Bonjour Gorfael

merci pour l'aide


mes Slts

Chaelo