Format des cellules lors de la saisie via VBA

[sidah.med]

Bonjour Tous le monde
J’ai un blm concernant la mise en forme des cellules quand je rempli mon tableau via un formulaire VBA toutes les formats de cellule disparaitre.
Exemple :
Dans une colonne nommée « Date départ » le format des cellules est : jjjj jj/mm/aaaa
(Lunidi 30/01/2012) lors de la saisie via VBA il s’affiche 30/01/2012 ?
Qlq 1 peut m’aider a régler ce pblm
Merci

[sidah.med]

Bonjour Tous le monde
J’ai un blm concernant la mise en forme des cellules quand je rempli mon tableau via un formulaire VBA toutes les formats de cellule disparaitre.
Exemple :
Dans une colonne nommée « Date départ » le format des cellules est : jjjj jj/mm/aaaa
(Lunidi 30/01/2012) lors de la saisie via VBA il s’affiche 30/01/2012 ?
Qlq 1 peut m’aider a régler ce pblm
Merci

Desolé .. ci dessous le code :

Private Sub CommandButton1_Click()
Dim Ind As Integer

Range("B10").Select
Maligne = Range("B10").End(xlDown).Row

Sheets("FSC 2012").Range("B" & Maligne + 1) = Me.ComboBox1
Sheets("FSC 2012").Range("A" & Maligne + 1) = Range("A" & Maligne) + 1
Sheets("FSC 2012").Range("D" & Maligne + 1) = Me.ComboBox2
Sheets("FSC 2012").Range("F" & Maligne + 1) = Me.TextBox1
Sheets("FSC 2012").Range("G" & Maligne + 1) = Me.TextBox2
Sheets("FSC 2012").Range("O" & Maligne + 1) = Me.ComboBox4
Sheets("FSC 2012").Range("R" & Maligne + 1) = Me.ComboBox5
Sheets("FSC 2012").Range("V" & Maligne + 1) = Me.TextBox4
Sheets("FSC 2012").Range("Z" & Maligne + 1) = Me.ComboBox7
Sheets("FSC 2012").Range("AB" & Maligne + 1) = Me.ComboBox8
Sheets("FSC 2012").Range("AF" & Maligne + 1) = Me.ComboBox9
Sheets("FSC 2012").Range("AG" & Maligne + 1) = Me.TextBox6
Sheets("FSC 2012").Range("AI" & Maligne + 1) = Me.TextBox7

' Eviter les erreurs avec lec controls qui n'existent pas
On Error Resume Next
' Pour effacer tous les TextBox
For Ind = 1 To 7
Me("TextBox" & Ind).Value = ""
Next Ind
' Pour effacer tous les Combobox
For Ind = 1 To 9
Me("ComboBox" & Ind).Value = ""
Next Ind
On Error GoTo 0
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = "=CONTROLEURNOM"
Me.ComboBox2.RowSource = "=ORDRE"
'Me.ComboBox3.RowSource = "=ouinon"
Me.ComboBox4.RowSource = "=CONTRAT"
Me.ComboBox5.RowSource = "=IMMATRICULATION"
'Me.ComboBox6.RowSource = "=ouinon"
Me.ComboBox7.RowSource = "=PC"
Me.ComboBox8.RowSource = "=PHOTO"
Me.ComboBox9.RowSource = "=ouinon"
End Sub
Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
End Sub
Private Sub TextBox2_Enter()
' Lorsque l'on entre dans le texte box date, on ouvre l'UsF_Calendrier
' Définir l'objet conteneur pour la date
Set ObjDate = Me.TextBox2
UsF_Calendrier.Show
End Sub
Private Sub TextBox4_Change()
TextBox4 = UCase(TextBox4)
End Sub
Private Sub TextBox6_Change()
TextBox6 = UCase(TextBox6)
End Sub
Private Sub TextBox7_Change()
TextBox7 = UCase(TextBox7)
End Sub

[sidah.med]

Bonjour Maitre BANZAI
JE vous sollicite a m’aider si c’est possible ?
merci

[gestionnaire_rh]

Bonjour,

essaye d'adapter ce format, exemple pour la cellule A1

Code: Tout sélectionner

range("A1").NumberFormat = "dddd dd/mm/yyyy"

Cdt
Gestionnaire rh

[Banzai64]

Bonjour

M'interpeller directement ne me fera pas trouver une solution si je ne la connais pas

Désolé pour toi mais je suis sans solution pour ce problème

[sidah.med]

Bonjour,

essaye d'adapter ce format, exemple pour la cellule A1

Code: Tout sélectionner

range("A1").NumberFormat = "dddd dd/mm/yyyy"

Cdt
Gestionnaire rh

Re bonjour Gestionnaire
Je l’ai essayé mais ça fonctionne pas tjr
Juste pour vous informer j’ai un tableau dynamique
Et j’ai place ce code de cette façon DANS MON CODE CI DESSUS
range("g").NumberFormat = "dddd dd/mm/yyyy"