XL 2019 Afficher le contenu des TexBox dans un User pour pouvoir les modifiers

[Yann71]

Bonjour la com.
J'ai un User qui me permet de modifier les prénoms du personnel, mais lorsque j'ouvre cette User le champs des TxtBox sont vide, et si je souhaite modifier un ou plusieurs prénoms je suis obligé de remplir toutes mes textBox pour effectuer le changement.

 

[job75]

Bonjour Yann71,

si je souhaite modifier un ou plusieurs prénoms je suis obligé de remplir toutes mes textBox pour effectuer le changement.

Pas avec ceci :

Private Sub f_b_ok_Click()
    If txt1 <> "" Then Range("E63") = txt1
    If txt2 <> "" Then Range("N63") = txt2
    If txt3 <> "" Then Range("W63") = txt3
    If txt4 <> "" Then Range("AF63") = txt4
    If txt5 <> "" Then Range("AO63") = txt5
    If txt6 <> "" Then Range("AX63") = txt6
    If txt7 <> "" Then Range("BG63") = txt7
    If txt8 <> "" Then Range("BP63") = txt8
'---

A+

 

[job75]

Il est plus simple d'utiliser :

Private Sub f_b_ok_Click()
Dim i
    For i = 1 To 8
        If Me("txt" & i) <> "" Then Cells(63, 9 * i - 4) = Me("txt" & i)
        Me("txt" & i) = ""
    Next
    choix_OK = True
    Me.Hide
End Sub

Pourquoi Me.Hide plutôt que Unload Me ?

A+

 

[Yann71]

Il est plus simple d'utiliser :

Private Sub f_b_ok_Click()
Dim i
    For i = 1 To 8
        If Me("txt" & i) <> "" Then Cells(63, 9 * i - 4) = Me("txt" & i)
        Me("txt" & i) = ""
    Next
    choix_OK = True
    Me.Hide
End Sub

Pourquoi Me.Hide plutôt que Unload Me ?

A+

Bonjour job75. Merci mais j'ai une question ou dois-je insérer ce code et si je dois en suprimer

 

[job75]

Bonjour job75. Merci mais j'ai une question ou dois-je insérer ce code et si je dois en suprimer

Question curieuse, ces codes remplacent la macro du même nom dans UserForm3 !!!

 

[Yann71]

Question curieuse, ces codes remplacent la macro du même nom dans UserForm3 !!!

OUPS dsl. j'aurai aimer savoir aussi si il était possible d'afficher les prénoms déjà inscrit dans les textBox

 

[job75]

Autre solution :

Private Sub f_b_ok_Click()
Dim i
    For i = 1 To 8
        Cells(63, 9 * i - 4) = Me("txt" & i)
    Next
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i
    For i = 1 To 8
        Me("txt" & i) = Cells(63, 9 * i - 4)
    Next
End Sub

 

[Yann71]

Autre solution :

Private Sub f_b_ok_Click()
Dim i
    For i = 1 To 8
        Cells(63, 9 * i - 4) = Me("txt" & i)
    Next
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i
    For i = 1 To 8
        Me("txt" & i) = Cells(63, 9 * i - 4)
    Next
End Sub

Je te remercie c'est ce que je souhaitais. Je m'aperçois que des code vba peuvent être simplifiée tel que la tienne vis-à-vis de la mienne. Merci encore et bonne fin de journée.