Controlsource et mode formulaire

Bonjour,
pour actualiser un fichier de 200 lignes de projets et 80 colonnes, je souhaite créer un formulaire affichant pour chaque ligne d'un projet des champs non contigus sous forme de textboxes dans un userform. Les textbox doivent afficher la valeur des champs et inversement, on doit pouvoir actualiser.
je pensais utiliser la propriété "Controlsource" des txtbox, mais ce n'est pas possible avec des formules (?). En essayant de renseigner la propriété Controlsource en passant par le code des textbox, j'ai rencontré des bugs que ne n'ai pas compris. Finalement, j'obtiens un code qui me donne le résultat voulu dans mon fichier d'essai...mais dont je me demande s'il est suffisamment sûr pour être appliqué au fichier officiel (par exemple, est-ce que les entrées dans les textbox ne vont pas écraser les formats initiaux des cellules cibles?):
code pour actualiser les textbox:

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim tet As String tii = ActiveCell.Row tet = Range("G" & tii).Text UserForm1.TextBox1 = tet tet = Range("CU" & tii).Text UserForm1.TextBox3 = tetEnd Sub

---

Code pour actualiser la feuille en retour après actualisation dans la txtbox:

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim tet1 As String tii = ActiveCell.Row tet = UserForm1.TextBox1 Range("G" & tii).Value = tet End Sub

---

Merci d'avance pour vos conseils (je pensais que ce type de besoin devait être fréquent mais je n'ai pas trouvé sur le forum)
LT

Bonjour,

Vérifie bien ce que tu récupères. Normalement, un textbox retourne une valeur texte. De plus, VBA ne reconnait que le format date US et interprétera les dates comme étant saisies au format mm/jj/aaaa" dans la mesure où les deux premiers caractères son inférieurs à 13. Dans le cas contraire, il retournera du texte.

Par exemple, pour une date :

Code:

---

1 2 3 4 5 6 7

With Me.TextBox1 If Len(.Value) = 10 Then [A1] = DateSerial(Right(.Value, 4), Mid(.Value, 4, 2), Left(.Value, 2)) Else MsgBox "erreur de saisie" End If End With

---

C'est pourquoi, pour une date, il vaut mieux utiliser un contrôle MonthView ou Date and time picker.

Merci Daniel, DT picker correspond à mon besoin, par contre il faut sélectionner l'évènement change plutôt que "callbackkeydown" qui est proposé par défaut.
un grand merci, Serge