XL 2021 TEXTBOX FORMAT DD/MM/YYYY mise a jour automatique label

juju91 · 12 Juin 2023

Bonjour à tous,
j'ai encore un ''petit'' problème.

J'ai un UserForm dans lequel j'ai un textbox qui doit être alimenté par une date (format jj/mm/aaaa) qui va aller une cellule.
Dans cet Userform il y a aussi des Labels qui reprennent des informations qui sont dans la feuille de calcule.
je souhaiterais que lors de la saisie dans le textbox les labels se mettent ç jour automatiquement.
je ne sais pas si mon problème est explicite, je mais donc une fichier pour plus de clarté.

Je suis preneur de toute suggestions

Par avance merci

patricktoulon · 12 Juin 2023

bonjour
1° ta formule N°semaine est incomplète et de plus ça ne respecte pas la norme iso
au 1 janvier 2023 elle donne sem°1 alors que le 01/01/2023 c'est la 52eme semaine de 2022 puisque l'on tombe sur un dimanche
donc dans tes cellules "sen°par exemple en D4 je met =NO.SEMAINE.ISO(C4)
et en effet le 01 janvier 2023 c'est bien la semaine 52 de 2022 et non la semaine 1 de 2023

pour le userform j'ai simplifié les choses en taguant les controls avec l'address de cellules correspondantes
ainsi le code est réduit a peau de chagrin
je me suis permis de l'arranger un peu
nouveau code complet du userform

VB:

Option Explicit


Private Sub SAISIE_Change()
    If IsDate(Me.SAISIE) And...

fanfan38 · 12 Juin 2023

Bonjour
Ci joint ma solution

A+ François

patricktoulon · 12 Juin 2023

bonjour
1° ta formule N°semaine est incomplète et de plus ça ne respecte pas la norme iso
au 1 janvier 2023 elle donne sem°1 alors que le 01/01/2023 c'est la 52eme semaine de 2022 puisque l'on tombe sur un dimanche
donc dans tes cellules "sen°par exemple en D4 je met =NO.SEMAINE.ISO(C4)
et en effet le 01 janvier 2023 c'est bien la semaine 52 de 2022 et non la semaine 1 de 2023

pour le userform j'ai simplifié les choses en taguant les controls avec l'address de cellules correspondantes
ainsi le code est réduit a peau de chagrin
je me suis permis de l'arranger un peu
nouveau code complet du userform

VB:

Option Explicit


Private Sub SAISIE_Change()
    If IsDate(Me.SAISIE) And Len(Me.SAISIE) = 10 Then
        Sheets("DATE").Range("C4").Value = CDate(Me.SAISIE.Value)
        refresh
    End If
End Sub
Sub refresh()
    Dim ctrl
    For Each ctrl In Me.Controls
        If ctrl.Tag <> "" Then
                 If ctrl.Name Like "[!*_SN*]" Then
                    ctrl.Caption = Format(DateValue(Sheets("DATE").Range(ctrl.Tag).Value), "ddd dd mmm")
                Else
                    ctrl.Caption = Sheets("DATE").Range(ctrl.Tag).Text
                End If
            Else
               End If
        
    Next
End Sub

Private Sub Userform_initialize()
'SAISIE.Value = Format((Sheets("DATE").Range("C4")), "ddd dd mmm yy")
    refresh
End Sub

demo

fichier joint
bonne journée

juju91 · 12 Juin 2023

Bonjour,
Merci a tous les deux.
C'est parfait.

XL 2021 TEXTBOX FORMAT DD/MM/YYYY mise a jour automatique label

juju91

XLDnaute Junior

Pièces jointes

patricktoulon

fanfan38

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Pièces jointes

juju91

XLDnaute Junior

Discussions similaires