[RESOLU] Date dans un TextBox

[Ternoise]

Bonsoir le Forum

Dans une feuille, un tableau avec des utilisateurs et des dates.

Dans un formulaire, Un TextBox (txtUtilisateur) qui récupère le nom d'un utilisateurs.

Dans un autre TextBox (txtDate)

J'aimerais récupérer la date du dernier enregistrement de cette utilisateur ajouté d'une journée.

Merci de votre aide

En pièce jointe, mon exemple

David

 

[Ternoise]

Re : Date dans un TextBox

Bonjour le forum

Une idée à mon problème ?

Merci. Bon dimanche

David

 

[job75]

Re : Date dans un TextBox

Bonjour Ternoise,

Code de l'UserForm :

Private Sub TextBox2_Change()
Dim tablo, lig As Variant, i&
TextBox1 = "" 'RAZ
tablo = Sheets("Feuil1").[A5].CurrentRegion
lig = Application.Match(TextBox2, Application.Index(tablo, , 2), 0)
If IsError(lig) Then Exit Sub
For i = lig To UBound(tablo)
  If tablo(i, 2) = TextBox2 Then _
    If tablo(i, 1) > tablo(lig, 1) Then lig = i
Next
TextBox1 = Format(tablo(lig, 1) + 1, "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
TextBox2 = ""
TextBox2 = "UTILISATEUR 1" 'lance TextBox2_Change
End Sub

Nota : à la place de TextBox2, en général on utilise une ComboBox.

A+

 

[job75]

Re : Date dans un TextBox

Re,

Pour que dans la boucle la comparaison ignore la casse, mettez tout en haut du code :

Option Compare Text 'la casse est ignorée

A+

 

[Ternoise]

Re : Date dans un TextBox

Merci Job75

Cela fonctionne super bien en état.

Toutefois, afin de l'adapter à mon projet, j'ai copié ton code dans un module et inituialisé l'UserForm avec MAJDate
Mais cela fonctionne pas.
Cela devrait pas être pareil ?

Private Sub UserForm_Initialize()
MAJDate
End Sub

Sub MAJDate()
Dim tablo, lig As Variant, i&
TextBox2 = ""
TextBox2 = "UTILISATEUR 1"
TextBox1 = "" 'RAZ
tablo = Sheets("Feuil1").[A5].CurrentRegion
lig = Application.Match(TextBox2, Application.Index(tablo, , 2), 0)
If IsError(lig) Then Exit Sub
For i = lig To UBound(tablo)
If tablo(i, 2) = TextBox2 Then _
If tablo(i, 1) > tablo(lig, 1) Then lig = i
Next
TextBox1 = Format(tablo(lig, 1) + 1, "dd/mm/yyyy")
End Sub

 

[job75]

Re : Date dans un TextBox

Re,

Ben c'est du tripotage 🙄

Il faut la macro TextBox2_Change si l'on veut que TextBox1 suive les modifications de TextBox2.

A+

 

[Ternoise]

Re : Date dans un TextBox

En fait dans mon projet, TextBox2 est déjà alimenté par :

Private Sub UserForm_Initialize()
TextBox2.Text = ActiveSheet.Name
MAJDate
End Sub

 

[Ternoise]

Re : Date dans un TextBox

Oui en effet, après essai, c'est du "Tripotage" !!!
C'est le "change" qui m'a mis sur une mauvaise piste étant donné que je ne changeais pas la valeur du TextBox2 !

Par curiosité, cela reste un mystère de savoir pourquoi ce code ne fonctionne pas dans un module !

D'autre pars, si il n'y a pas encore de nom d'utilisateur, peut-on mettre la date du jour ?

Merci de ta collaboration

David

 

[pierrejean]

Re : Date dans un TextBox

Re

Vois si cela te convient

 

[Ternoise]

Re : Date dans un TextBox

Re

Oui cela fonctionne très bien et cela va m’être utile plus tard.
Malgrès tout, je maintient que j'utilise bien un TextBox alimenté par le nom de la feuille active. Donc l'autre code, plus compréhensif pour moi, convenait ! Je pensais qu'il fallait "juste" entrer une condition du genre : "If" le nom de la feuille n'existe pas "then" alors date du jour !
De plus, quand je copie le premier code dans mon projet, en changeant bien sûre, les noms des contrôles et adresse du tableau, cela ne fonctionne pas alors que c'est identique. C'est pour cela, que je pensais mettre ce code dans un module.
Je ne suis peut êtes pas assez clair !

Merci pour ton aide, j'avance toutefois un peu

 

[pierrejean]

Re : Date dans un TextBox

Re

Vois ceci (mais il serait tout de même plus agréable de travailler avec un fichier un peu plus proche de ton projet)

 

[Ternoise]

Re : Date dans un TextBox

Re

Désolé. J'ai modifié le fichier comme la structure de mon projet

J'ai inversé les colonnes Utilisateurs et Date et ajouté 2 feuilles.

Merci de ton aide

 

[job75]

Re : Date dans un TextBox

Re, Bonsoir Pierre,

Quand Ternoise se décidera-t-il à nous dire ce qu'il veut faire avec son UserForm ?

A part remplir ses 2 TextBoxes, fort mignonnes mais complètement stériles pour l'instant.

A+

 

[Ternoise]

Re : Date dans un TextBox

Re à vous deux

J'ai toujours eu du mal à expliquer ce que j'aimerais !!! J'en suis désolé, pas facile pour vous, mais je pense que l'on va y arriver !!!

Je mets le fichier joint en l'état à savoir :

1) Cela fonctionne quand je suis sur la feuille "BASE". Sur les autres feuilles, cela ne marche pas

2) La colonne "Utilisateur" est en principe en colonne C et la colonne "Date" en colonne D

Merci à vous deux !

David

 

[job75]

Re : Date dans un TextBox

Re,

Il manquait un "Feuil1" :

tablo = Feuil1.Range("C9:D" & Feuil1.Range("D" & Rows.Count).End(xlUp).Row)

Mais vous restez polarisé sur vos TextBoxes...

A+