Date

[chinel]

Salut tout le monde !

1.voici mon code et j'aimerais bien convertir la date de la cellule E7 en date française et non anglaise, merci
2. les deux checkbox les vider (décocher)
Private Sub CommandButton1_Click()

Dim Valeur As String
Valeur = Range("E7")
With Sheets("Encoder")
If .Range("A4") = "" Then
.Range("A4").Value = Valeur
Else
.Range("A65536").End(xlUp).Offset(1, 0).Value = Valeur

End If
End With

Valeur = ComboBox1.Value
With Sheets("ENCODER")
If .Range("B4") = "" Then
.Range("B4").Value = Valeur
Else
.Range("B65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With


Valeur = ComboBox2.Value
With Sheets("ENCODER")
If .Range("C4") = "" Then
.Range("C4").Value = Valeur
Else
.Range("C65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With


Valeur = ComboBox3.Value
With Sheets("ENCODER")
If .Range("D4") = "" Then
.Range("D4").Value = Valeur
Else
.Range("D65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With

Valeur = CheckBox1.Value
With Sheets("ENCODER")
If .Range("E4") = "" Then
.Range("E4").Value = Valeur
Else
.Range("E65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With

Valeur = CheckBox2.Value
With Sheets("ENCODER")
If .Range("F4") = "" Then
.Range("F4").Value = Valeur
Else
.Range("F65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With


ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
checkbox1.value= "" cela ne fonctionne pas !
checkbox2.value= " " cela ne fonctionne pas !
End Sub

Merci !

 

[Paritec]

Re : Date

Bonjour Chinel,
essayes comme cela
à+
Bon week-end
papou

Dim Valeur As String
Valeur = Format(Range("E7"),"dd mm yyyy")
With Sheets("Encoder")
If .Range("A4") = "" Then
.Range("A4").Value = Valeur
Else

 

[chinel]

Re : Date

super merci Paritec ! pour la date super mais mon deuxième souci pour les checkbox les décocher
Bon week-end !!!

 

[Gael]

Re : Date

Bonjour Chinel, bonjour Paritec, bonjour à tous,

Pour les checkbox, la valeur doit être "False" ou "true".

Essaye:

Checkbox1.value=false

@+

Gael

 

[chinel]

Re : Date

Merci Gael, que je suis b... !

Bon week-end !