Discussion :

[jonathanoudelet]

Bonjour à tous,

Bonaprès moult recherches, le topic se rapporchant le plus de mon problème est celui-ci.
J'ai donc le même souci, mais dans mon cas, je ne sais pas où mettre "NumberFormat = "dd/mm/yyyy""...
J'ai bien essayé de mettre:
Feuil2.Range("G2:I10000").NumberFormat = "dd/mm/yyyy" pour convertir ma plage de cellules ayant les dates...mais rien n'y fait, à moins qu'il faille mettre quelquechose du genre calendar1.NumberFormat = "dd/mm/yyyy"...
Pourriez-vous m'aider please ?

Merci par avance.

[jonathanoudelet]

Je vais tenter d'être plus précis car je m'apercois que ca ne l'est pas vraiment
Avec mon calendar, je remplis une textbox:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
    'spécifie la date du jour lors de l'affichage de l'USF
    Calendar1.Value = Now
End Sub[/COLOR]
 
Private Sub Calendar1_Click()
UserForm1.TextBox36.Value = Calendar1.Value
UserForm8.Hide
End Sub

La textbox va alimenter une colonne date dans une feuille excel:

Code :

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

Feuil2.Range("H" & i).Value = TextBox36.Value

A partir de là, et avec des checkbox, j'ai 3 cas de figures pour calculer une nouvelle date à partir de la 1ere: (simple ajout de jours à la date initiale pour calculer un préavis)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'pour le calcul des dates de fin de préavis
If CheckBox17.Value <> 0 Or CheckBox19.Value <> 0 Then
Feuil2.Range("I" & i).Value = Feuil2.Range("H" & i).Value + 30
 
ElseIf CheckBox15.Value <> 0 Or CheckBox18.Value <> 0 Then
Feuil2.Range("I" & i).Value = Feuil2.Range("H" & i).Value + 15
 
ElseIf CheckBox16.Value <> 0 Then
Feuil2.Range("I" & i).Value = Feuil2.Range("H" & i).Value + 8
End If

Et c'est là qu'apparait mon problème, celui de la conversion de date Anglais / Francais...
Soit il me met la date dans la collone H en format mm/dd/yyy soit il ajoute les jours au mois qui sont devenu des jours...enfin le boxons quoi

j'ai bien tenté

Code :

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

.numberformat = "dd/mm/yyyy"

mais rien n'y fait.

Pour le moment j'ai:
colonne H, 04/08/2008 pour le 4 aout 2008 (donc là ca va).
colonne I, 23/04/2008 alors que je devrait avoir 19/08/2008...il m'inverse les jours et mois et viens ajouter les jours où il ne faut pas...

Si quelqu'un pouvait m'aider avant que je pleure...

Merci par avance.

Jonathan

Ps: oups, désolé pour les balises...

[fring]

Bonjour,

Sans te préoccuper du format, teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Calendar1_Click()
Dim Dt As Date
 
Dt = Me.Calendar1
Unload Me
 
With Feuil2
    .Range("A1") = Dt
    .Range("C1") = Dt + 8
    .Range("C2") = Dt + 15
    .Range("C3") = Dt + 30
End With
End Sub

[jonathanoudelet]

Bon bah j'ai pas trouvé de solution à mon problème et en regardant dans les bouquins, (genre "VBA pour excel"), ils disent en gros que VBA mettant les dates au format US, il ne vaut mieux pas s'amuser à aller contre...
Ma solution;
j'ai tout mis au format US puis j'ai inséré:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'pour convertir en format francais
Application.ScreenUpdating = False
Dim Cellule_en_Cours
 
For Each Cellule_en_Cours In Feuil3.Range("G2:I3000")
If Not (Cellule_en_Cours.FormulaR1C1 = "") Then
With Cellule_en_Cours
.Value = DateValue(Mid(.Value, 1, 2) & "/" & Mid(.Value, 4, 2) & "/" & Mid(.Value, 7, 4))
.NumberFormat = "dd/mm/yyyy"
End With
End If
Next Cellule_en_Cours
Range("I" & i).Select
Application.ScreenUpdating = True

Cela permet d'inverser les mois et jours...
Si ca peux aider quelqu'un...

Merci encore pour votre aide.