Discussion :

[Taillise]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Taillise]

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