Microsoft 365 problème de rangement VBA

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 !

halimhamdi

XLDnaute Junior
Bonjour
J'ai un problème sélection des motifs selon les types pour un userform : je veux quand je selectionne un type de ce tableau j'aurai seulement les motifs lié de ce type comme indiqué dans ce tableau dans le userform
1673384069520.png
1673384175118.png
 

Pièces jointes

Bonjour halimhamdi, xUpsilon, le forum,

La feuille "config" n'est pas cohérente, il y a 2 tableaux avec 2 listes différentes pour TYPE.

Mais voyez le fichier joint et ces macros qui utilisent la 2ème liste :
VB:
Private Sub ComboBox1_Enter()
Dim tablo, i&
ComboBox1.Clear
ComboBox3.Clear
ComboBox3 = ""
tablo = Sheets("config").[A17].CurrentRegion.Columns(1)
For i = 2 To UBound(tablo)
    If tablo(i, 1) <> "" Then ComboBox1.AddItem tablo(i, 1)
Next
End Sub

Private Sub ComboBox3_Enter()
Dim c As Range
If ComboBox1.ListIndex = -1 Then ComboBox3.Clear: Exit Sub
Set c = Sheets("config").[A17].CurrentRegion.Columns(1).Find(ComboBox1, , xlValues, xlWhole)
ComboBox3.List = c(1, 2).Resize(c.MergeArea.Count, 2).Value  'au moins 2 éléments
End Sub
Edit : j'ai aussi modifié le code pour la date :
VB:
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
On Error Resume Next
If Not IsDate(TextBox2) Or Year(TextBox2) < 1900 Then
    Cancel = True
    MsgBox "Le format de date n’est pas valide"
    TextBox2 = ""
End If
End Sub
A+
 

Pièces jointes

Dernière édition:
- 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

Réponses
15
Affichages
629
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Retour