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

  • Initiateur de la discussion Initiateur de la discussion juju91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

juju91

XLDnaute Junior
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
 

Pièces jointes

Solution
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
1686554297521.png


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...
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
1686554297521.png


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

demo.gif


fichier joint
bonne journée 😉
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour