XL 2010 Concatenation de deux combobox

Jacky67

XLDnaute Barbatruc

• 15 Mai 2017

• #2

Bonjour,
Un début à tester.....

**Exemple modifié

 

Pièces jointes

• Formation EPI.xlsm

  117.1 KB · Affichages: 26

Dernière édition: 15 Mai 2017

Vote positif 0 Vote négatif

jeje77

XLDnaute Junior

• 15 Mai 2017

• #3

Un grand merci pour cette aide c'est ce que je cherchais a faire mais mes compétence en VBA sont très petites.
Ca a l'air si simple pour certain 🙂
cordialement
Jéjé

 

Vote positif 0 Vote négatif

J

jeje.77

XLDnaute Nouveau

• 15 Mai 2017

• #4

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.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 15 Mai 2017

• #5

Re...
Une version avec un calendrier pour la date.
Un double clic sur la box de la date affiche un calendrier

 

Pièces jointes

• Formation EPI.xlsm

  121.6 KB · Affichages: 35

Vote positif 0 Vote négatif

J

jeje.77

XLDnaute Nouveau

• 15 Mai 2017

• #6

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

  44.7 KB · Affichages: 26

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Mai 2017

• #7

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


Bonne Nuit

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 16 Mai 2017

• #8

jeje.77 à dit:

Re bonsoir


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.

Cliquez pour agrandir...

Pour répondre à cette question...
Dans le cas présent, ces 2 instructions ne servent à rien. elles peuvent être supprimer.

 

Vote positif 0 Vote négatif

jeje77

XLDnaute Junior

• 17 Mai 2017

• #9

Avec excel 2010 impossible de trouver un cotrole Calendrier ni DatePickeret apparement je ne suis pas le seul. est ce normal ? je trouvais ca bien pratique🙁

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 17 Mai 2017

• #10

jeje77 à dit:

Avec excel 2010 impossible de trouver un cotrole Calendrier ni DatePickeret apparement je ne suis pas le seul. est ce normal ? je trouvais ca bien pratique🙁

Cliquez pour agrandir...

Re..
Peut-être en appliquant ceci
https://support.microsoft.com/fr-fr/help/2676583

 

Vote positif 0 Vote négatif

jeje77

XLDnaute Junior

• 17 Mai 2017

• #11

dans Excel, quand je veux ajouter d'autres controles en loccurence le calendrier un message d'erreur s'affiche me disant que le fichier ne contient pas de controle.
le fichier "MSCOMCT2.OCX" pese 646 Ko.

 

Vote positif 0 Vote négatif