Format des cellules lors de la saisie via VBA
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 a écrit :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
Bonjour Maitre BANZAI
JE vous sollicite a m’aider si c’est possible ?
merci
Bonjour,
essaye d'adapter ce format, exemple pour la cellule A1
range("A1").NumberFormat = "dddd dd/mm/yyyy"Cdt
Gestionnaire rh
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
gestionnaire_rh a écrit :Bonjour,
essaye d'adapter ce format, exemple pour la cellule A1
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"