XL 2010 Concatenation de deux combobox

jeje77

XLDnaute Junior
Bonjour à tous !

Voila je viens vers vous pour un petit soucis de concatenation de deux combobox (combobox4 et combobox5)sur mon USF.

je souhaiterais que lors de la validation de mon USF les deux noms des combobx (formateurs 1 et 2) se retrouvent dans ma cellule de la colonne "F" genre : xxxxxx / yyyyyy.
Je tourne depuis quelques temps sur les forums mais je ne trouve pas réelement ce qu'il me faudrait.

dans l'attente de vous lire

cordialement
 

Pièces jointes

  • Formation EPI.xlsm
    120.7 KB · Affichages: 37

jeje.77

XLDnaute Nouveau
Re bonsoir

1 Private Sub TextBox7_Change()

2 ' Entrée de la date JJMMAA

3 Dim jour As String
4 Dim ExDate As String
5 jour = TextBox7.Value
6 If ((Len(jour) > 5) And (Len(jour) < 8)) Then
7 Application.EnableEvents = False
8 ExDate = Mid(jour, 1, 2) & "/" & Mid(jour, 3, 2) & "/20" & Mid(jour, 5)
9 TextBox7.Value = ExDate
10 Application.EnableEvents = True
11 End If

Dans ce code concernant l'entrée de la date, j'aurais voulu savoir si les lignes 7 et 10 sont importantes ou pas car si je les met en annotations (avec l'apostrophe) je ne remarque pas de probleme particulier.
 

jeje.77

XLDnaute Nouveau
Merci pour ton aide jacky67 mais j'ai un message d'erreur qui me dit :
- Impossible de charger l'objet car il n'est pas sur cette machine
et quand je clique OK, mon USF s'affiche bien et quand je double-clique sur date il bloque sur la ligne :
- Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 

Pièces jointes

  • Capture erreur.JPG
    Capture erreur.JPG
    44.7 KB · Affichages: 21

Jacky67

XLDnaute Barbatruc
Re...
Dans l'éditeur vba
Sélectionne un userform
Dans la boite à outils==>clic droit==>Contrôles Supplémentaires
Dans la boite de sélection, coche le contrôle "Contrôle Calendrier"
Voir photo
upload_2017-5-16_0-31-52.png


Bonne Nuit
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 899
Membres
101 834
dernier inscrit
Jeremy06510