Commentaire par Userform

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:

---

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

Salut

Code:

---

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+

Salut Gorfael

desolé j'ai pas compris la reponse.

peux-tu m'expliquer stp.

Mes Slts

Chaelo

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

Code:

---

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+

Bonjour Gorfael

merci pour l'aide


mes Slts

Chaelo