Microsoft 365 Liste en cascade

[Electron24]

Bonsoir à tous

J'ai un petit problème de remplissage d'une 2ème liste selon la sélection de la première liste déroulante dans mon formulaire.
J'ai fait des recherches sur le net mais je n'arrive pas à transcrire les trouvailles pour mon classeur.
j'aimerai que vous m'aidiez j'y ai joint mon travail. d'avance merci

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[Electron24]

Bonjour le Forum et fanfan38

C'est parfait. Je n'avais pas cherché du coté des select case Un grand merci et bonne journée.

 

[fanfan38]

En fait on coche la solution et non le dernier commentaire... lol
A+ François

 

[Electron24]

Oups Merci

 

[Electron24]

Re,
Désolé de vous importuner une nouvelle fois, mais j'ai un souci avec les dates.
Dans mon formulaire j'ai inscrit la macro suivante

Private Sub T_Date_afterupdate()
T_Date.Value = Format(T_Date.Value, "ddd dd mmm yyyy")
End Sub

Le souci est que dans ma cellule j'ai bien la datee inscrite au format mais avec un point aprés le jour (mer. 22 déc 2022) ce qui fait qu'Excel ne le prend pas au format date car j'ai une erreur de valeur si je veux récupérer l'année dans une autre cellule.

Private Sub Btn_Valider_Click()
Dim L As Integer

    Sheets("Base").Select
   
L = Range("B65536").End(xlUp).Row + 1
        Range("B1500").End(xlUp).Offset(1, 0).Select ' Se place sur la dernière ligne
With WS
            Range("A" & L) = CDate(T_Date)           ' Date
            Range("B" & L) = Cmb_Moyen.Value        ' Moyen
            Range("C" & L) = T_Numéro.Value         ' Chèque
            Range("D" & L) = Cmb_Categorie.Value    ' Catégorie
            Range("E" & L) = Cmb_Poste.Value        ' Poste
            Range("F" & L) = T_Libelle.Value        ' Libellé
            Range("G" & L) = T_Montant.Value        ' Montant
           
    End With
   
    Unload Me
'        Range("A4").Select
'
End Sub

CDate me donne une erreur dans la macro

PS: La cellule contenant la valeur du TextBox est au format "jjj jj mmm aaaa"

 

[ChTi160]

Bonjour
peut-être en utilisant la propriété .Tag de ton TextBox

Private Sub T_Date_afterupdate()
T_Date.Value = Format(T_Date.Value, "ddd dd mmm yyyy")
T_Date.Tag = T_Date.Value
End Sub

puis

Range("A" & L) = CDate(T_Date.Tag)           ' Date

a voir non testé
EDIT :
a quoi sert cette Ligne

Range("B1500").End(xlUp).Offset(1, 0).Select ' Se place sur la dernière ligne

Bonne Journée
Jean marie

 

[Electron24]

Bonjour Chti60
Cela ne fonctionne pas j'ai une erreur 13 d'incompatibilité de type

 

[ChTi160]

Re
Comme dit
je n'ai pas testé, je n'ai pas regardé le fichier
J'y retourne Lol
Excuses !
Jean marie

 

[ChTi160]

Re
Ce que j'ai mis pour tester

Private Sub T_Date_afterupdate()
T_Date.Tag = Format(T_Date.Value, "00000")
T_Date.Value = Format(T_Date.Value, "ddd dd mmm yyyy")
MsgBox Format(T_Date.Tag, "dddd dd mmmm yyyy") & vbCrLf & _
Format(T_Date.Tag, "dd/mm/yyyy")
End Sub

à voir donc
il faut bien sûr que ce soit une date valide qui est Saisie (il n'y a pas de control) peut être utiliser un des Nombreux calendriers proposés sur le site pour saisir la date)
Jean marie

 

[Electron24]

Re,
C'est toujours cette histoire de point après le jour de la semaine "mer." qui me produit une erreur.

 

[Electron24]

Re,
Je joins le classeur sans les véritables données

 

[fanfan38]

Bonjour
J'ai changé ton calendrier qui ne renvoyé pas une date mais un texte...

A+ François

 

[ChTi160]

Bonsoir le Fil
D'après le travail de François
J'ai modifié pour revenir à l'affichage Initial de la date dans le TextBox .

Sub saisiedate(ctrl)
 If ctrl = "" Then Exit Sub
 If Controls(ctrl).Value <> "" Then
    Me.LabelDate = CDate(Controls(ctrl).Value)
   Else
    Me.LabelDate = Date
   End If
   calendar.Show
   With Controls(ctrl)'------> Ici
       .Value = Format(CDate(ladate), "ddd dd mmm yyyy")'------> Ici
       .Tag = CDate(ladate) '------> Ici
    End With '------> Ici
   Unload calendar
End Sub

Private Sub CommandButton1_Click()
  saisiedate (Me.T_Date.Name)
End Sub

Private Sub Btn_Valider_Click()
   Range("A65536").End(xlUp).Offset(1, 0).Value = CDate(T_Date.Tag)'------> Ici
   Range("A65536").End(xlUp).Offset(0, 1).Value = Cmb_Moyen.Value
   Range("A65536").End(xlUp).Offset(0, 2).Value = T_Numéro.Value
   Range("A65536").End(xlUp).Offset(0, 3).Value = Cmb_Categorie.Value
   Range("A65536").End(xlUp).Offset(0, 4).Value = Cmb_Poste.Value
   Range("A65536").End(xlUp).Offset(0, 5).Value = T_Libelle.Value
   Range("A65536").End(xlUp).Offset(0, 6).Value = Ccur(T_Montant) '------> Ici
   Unload Me
End Sub

Bonne fin de Soirée
Jean marie

 

[Electron24]

Bonjour le Forum, Bonjour ChTi160, bonjour fanfan18

Un grand merci à vous deux qui avaient fait un travail splendide.
J'ai mis vos contributions en service dans mon classeur et le résultat me satisfait pleinement
Je vous souhaite une bonne journée ainsi que de bonnes fêtes.
cordialement