avec ce vba , quand on click dans la colone a ou c un useform apparait pour
mettre une date dans la cellule qu on a clicker.
pb
quand je rentre la date dans mon userform, je suis obliger de rentrer
02/06/2006
est il possible d avoir directement dans mon text box deje les bare de date
a savoir
..../..../.... et on ne mettrait que les dates
merci
voici le vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 5 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Load UserForm1
UserForm1.Show
If Cont = True Then
Target.Value = "NA"
Else
Target.Value = Dat
End If
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RV
Bonjour Damien,
Ceci peut être un début:
Private Sub TextBox1_Change()
TextBox1.MaxLength = 8 If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & "/" If Len(TextBox1) = 5 Then TextBox1 = TextBox1 & "/"
End Sub
Bon courage
RV
"damien" a écrit dans le message de news: 449326b8$0$10298$
avec ce vba , quand on click dans la colone a ou c un useform apparait pour mettre une date dans la cellule qu on a clicker.
pb quand je rentre la date dans mon userform, je suis obliger de rentrer 02/06/2006 est il possible d avoir directement dans mon text box deje les bare de date a savoir ..../..../.... et on ne mettrait que les dates merci
voici le vba Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 3 And Target.Column <> 5 Then Exit Sub If Target.Count > 1 Then Exit Sub Load UserForm1 UserForm1.Show If Cont = True Then Target.Value = "NA" Else Target.Value = Dat End If End Sub
merci
Bonjour Damien,
Ceci peut être un début:
Private Sub TextBox1_Change()
TextBox1.MaxLength = 8
If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & "/"
If Len(TextBox1) = 5 Then TextBox1 = TextBox1 & "/"
End Sub
Bon courage
RV
"damien" <damienguilbert@free.fr> a écrit dans le message de news:
449326b8$0$10298$636a55ce@news.free.fr...
avec ce vba , quand on click dans la colone a ou c un useform apparait
pour
mettre une date dans la cellule qu on a clicker.
pb
quand je rentre la date dans mon userform, je suis obliger de rentrer
02/06/2006
est il possible d avoir directement dans mon text box deje les bare de
date
a savoir
..../..../.... et on ne mettrait que les dates
merci
voici le vba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 5 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Load UserForm1
UserForm1.Show
If Cont = True Then
Target.Value = "NA"
Else
Target.Value = Dat
End If
End Sub
TextBox1.MaxLength = 8 If Len(TextBox1) = 2 Then TextBox1 = TextBox1 & "/" If Len(TextBox1) = 5 Then TextBox1 = TextBox1 & "/"
End Sub
Bon courage
RV
"damien" a écrit dans le message de news: 449326b8$0$10298$
avec ce vba , quand on click dans la colone a ou c un useform apparait pour mettre une date dans la cellule qu on a clicker.
pb quand je rentre la date dans mon userform, je suis obliger de rentrer 02/06/2006 est il possible d avoir directement dans mon text box deje les bare de date a savoir ..../..../.... et on ne mettrait que les dates merci
voici le vba Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 3 And Target.Column <> 5 Then Exit Sub If Target.Count > 1 Then Exit Sub Load UserForm1 UserForm1.Show If Cont = True Then Target.Value = "NA" Else Target.Value = Dat End If End Sub
