Garder la trace des entrées d'une textbox d'un userform

[bomagicmusic]

Bonjour,

J'ai créé un user form avec differents controles dont une text box pour laquelle je souhaiterai garder la trace des modifications sur une feuille excel. Sur le forum, quelqu'un m'a donné le code suivant qui marche mais uniquement si le text box se trouve sur une feuille excel. Là mon text box est sur le user form. Pouvez-vous m'aider?
Merci

Private Sub Historique_Click()
Dim der_lig%

If Sheets("Etat Fiche").OLEObjects("TextBoxEtatAvancement").Object.Value <> "" Then
With Sheets("Etat Fiche")
der_lig = .Range("A65536").End(xlUp).Row + 1
.Cells(der_lig, 1).Value = Date
.Cells(der_lig, 2).Value = Sheets("Etat Fiche").OLEObjects("TextBoxEtatAvancement").Object.Value
End With
End If
End Sub

 

[Davidc57]

Re : Garder la trace des entrées d'une textbox d'un userform

Salut,

Il te faut tester la zone
Userform.Textbox1.Text
au lieu de
If Sheets("Etat Fiche").OLEObjects("TextBoxEtatAvancement").Object .Value <> ""

A+
David

 

[Guest]

Re : Garder la trace des entrées d'une textbox d'un userform

Bonjour bomagicmusic,

Où Textbox1 est le nom du Textbox du userform.

Dim der_lig%
If [SIZE=3][COLOR=red]TextBox1[/COLOR][/SIZE].Value <> "" Then
With Sheets("Etat Fiche")
der_lig = .Range("A65536").End(xlUp).Row + 1
.Cells(der_lig, 1).Value = Date
.Cells(der_lig, 2).Value = [SIZE=3][COLOR=red]TextBox1[/COLOR][/SIZE].Value
End With
End If
End Sub

A+

 

[bomagicmusic]

Re : Garder la trace des entrées d'une textbox d'un userform

J'essaye tout de suite...merci

 

[bomagicmusic]

Re : Garder la trace des entrées d'une textbox d'un userform

ça marche merci. juste une chose puisque vous avez l'air hyper à l'aise avec l'outil. Si je veux conserver les commentaires dans une plage précise de cellules avec la date suivie du commentaire comment dois-je m'y prendre?
merci

 

[Guest]

Re : Garder la trace des entrées d'une textbox d'un userform

RE,

tu peux récupérer un texte de commentaire de cellule avec cette fonction:

Function GetCommentaire(cellule As Range) As String
    If Not cellule.Comment Is Nothing Then
        GetCommentaire = cellule.Comment.Text
    End If
End Function
'Exemple d'appel:
Dim MonCommentaire as string
MonCommentaire=getcommentaire(Sheets("Feuil1").range("A100"))

A+

 

[bomagicmusic]

Re : Garder la trace des entrées d'une textbox d'un userform

Bjr,

j'ai copié ton code dans un command button de mon user form pour qu'il envoie les commentaire dans une feuille et dans une plage prédefinie de cellule mais ça ne marche pas. je ne me suis peux etre pas très bien expliquée

 

[Guest]

Re : Garder la trace des entrées d'une textbox d'un userform

Re,

Joins un fichier avec la macro du commandbutton et quelques données anonymisées, avec commentaire et tout ce qu'il faut pour comprendre ton problème.

Mais pour le moment je vais manger...

A++

 

[bomagicmusic]

Re : Garder la trace des entrées d'une textbox d'un userform

Bon appétit, moi je mange devant l'ordi.
J'ai joint le fichier ce sera plus clair. Merci

 

[Guest]

Re : Garder la trace des entrées d'une textbox d'un userform

Re,

Attention aux miettes sous les cabochons.

La prochaine fois essaie de joindre tes tentatives d'essai de macro.

Voici la procédure de ton bouton de validation:

Private Sub Historique_Click()
    'Si y a une date dans le textbox et que TextBoxEtatAvancement n'est pas vide
    If IsDate(TextBox7.Text) And TextBoxEtatAvancement.Text <> vbNullString Then
        'On travaille sur la feuille Historique Commentaire
        With Sheets("Historique Commentaire")
            'Si c2 contient déjà de date, on insert une nouvelle fiche
            If IsDate(.Range("C2").Text) Then
                .Range("A2:D10").Copy
                .Range("A2:D10").Insert Shift:=xlDown
                Application.CutCopyMode = False
            End If
            Range("C2").Value = DateValue(TextBox7.Text)
            Range("A3") = TextBoxEtatAvancement.Text
        End With
    End If
End Sub

A+

 

[bomagicmusic]

Re : Garder la trace des entrées d'une textbox d'un userform

Bonjour,

Merci je vais tester ton code et l'analyser