Discussion :

[scoubi77]

Bonjour à tous,

J'ai un soucis pour convertir une date de la forme 11/03/2015 en MERCREDI 11 MARS 2015
Sur certaines dates ça fonctionne mais sur d'autres non, j'ai une erreur d’exécution 9 l'indice n'appartient pas à la sélection


Voici ma programmation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub TextBox1_Change()
 
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
    Valeur = Len(TextBox1)
    If Valeur = 2 Or Valeur = 5 Then
    TextBox1 = TextBox1 & "/"
 
End If
TextBox1.Text = UCase(TextBox1.Text)
 
End Sub
 
Private Sub CommandButton1_Click()
j = Array("", "LUNDI", "MARDI", "MERCREDI", "JEUDI", "VENDREDI", "SAMEDI", "DIMANCHE")
m = Array("", "JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE")
TextBox2 = TextBox1.Value
TextBox2 = j(Day(TextBox1.Value)) & " " & Day(TextBox1.Value) & " " & m(Month(TextBox1.Value)) & " " & Year(TextBox1.Value)
 
End Sub

J'ai constitué un fichier exemple, par exemple la date 11/03/2015 ne fonctionne pas, le 01/01/2015 fonctionne !
Merci par avance pour vos aides

[clementmarcotte]

http://www.developpez.net/forums/d84...s-discussions/



http://mhubiche.developpez.com/vba/f...ions/datetime/

http://didier-gonard.developpez.com/...-excel-et-vba/

http://www.developpez.net/forums/d88...ous-excel-vba/


http://www.developpez.net/forums/d14...ncais-anglais/

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim mydate as date
Mydate = cdate(format(TextBox1.Value,"yyyy-mm-dd"))
TextBox2 = j(day(Mydate )) & " " & Day(Mydate) & " " & m(Month(Mydate)) & " " & Year(Mydate)

[scoubi77]

Merci mais c'est comme moi il y a la même erreur

[Invité]

Bien vue Clément pour WeekDay, évidant mais j'ai pas pensé!

[Ben02]

Bonsoir,

Pourquoi erreur d'exécution 9 ? parce que dans l'exemple du 11/03/2015, la commande "j(day(Mydate ))" demande le 11è élément du tableau alors qu'il y en a que 7.

Pour faire super simple, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox2  = Format(TextBox1.Value, "dddd dd mmmm yyyy")

ça devrait marcher.

Cordialement.

[scoubi77]

un grand merci à vous deux

[patricktoulon]

bonsoir
Avant de poser une question il serait bien d'aller fouiller dans les contrib

je dis ca mais je crois reconnaitre mon code a ce sujet en ce qui concerne les slashs


tu aurais donc trouvé cette contrib il suffisait d'ajouter
textboxX=format( textboxX,"dddd dd mmmm yyyy") et le tour est joué

enfin bref

je repose le lien au cas ou tu l'aurais perdu
http://www.developpez.net/forums/d13...boxs-formates/

[patricktoulon]

essai celui la

tape 31122015 ou 12312015
tu a la possibilite de taper j m anée ou m j année dans nimporte quel cas le resultat sera du genre Vendredi 31 décembre 2015
il te reste a blindé les 2 prmiere tranche j m

si left(textbox,1)>1 then le 1er chiffre de la 2 eme tranche ne peut que comencer par 1 maximum cela peut etre dans le case 2,5
tu a aussi la possibilté de revenir en arriere tranche par tranche avec la tous effacer(fleche vers la gauche)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Const val_numeric = "[0-9]"
Dim ltt
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
ltt = KeyAscii
    If Not Chr(KeyAscii) Like val_numeric Then KeyAscii = 0
    If Len(TextBox1) > 10 Then KeyAscii = 32
    Select Case Len(TextBox1): Case 2, 5: TextBox1 = TextBox1 & "/": End Select
TextBox1.Tag = TextBox1
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       If KeyCode = 8 Then
        If Len(TextBox1) > 10 Then
            TextBox1 = Left(TextBox1.Tag, 6)
        Else
            If Len(TextBox1) >= 2 Then TextBox1 = Left(TextBox1, Len(TextBox1) - 2)
        End If
    Else
    If Len(TextBox1) = 10 Then TextBox1 = Format(TextBox1.Tag & ChrW(ltt), "dddd dd mmmm yyyy")
        End If
End Sub

voila la on a un texte box formaté dynamiquement