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

Yann71 · 7 Juin 2020

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 · 7 Juin 2020

Bonjour Yann71,

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

Pas avec ceci :

VB:

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 · 7 Juin 2020

Il est plus simple d'utiliser :

VB:

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 · 7 Juin 2020

job75 à dit:
Il est plus simple d'utiliser :

VB:

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 · 7 Juin 2020

Yann71 à dit:
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 · 7 Juin 2020

job75 à dit:
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 · 7 Juin 2020

Autre solution :

VB:

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 · 7 Juin 2020

job75 à dit:

Autre solution :

VB:

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.

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

Yann71

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Yann71

XLDnaute Occasionnel

Discussions similaires