Commentair avec Uform

[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 :

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

 

[skoobi]

Re : Commentair avec Uform

Bonsoir,
si j'ai bien compris:

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

 

[chaelo]

Re : Commentair avec Uform

Salut skoobi

merci pour votre aide.


á la Prochaine

Chaelo