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 coher ok pour
valider et faire apparaitre la date dans la cellule, comment faire pour que
je puisse rentrer la date sans avoir a coher toujour la case ok mais
appuiyer sur entree puis valider le tout
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
JLuc
*Bonjour damien*, Tu mets la propriete "Default" du bouton a "True". Lorsque tu valide, ca valide le bouton.
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 coher ok pour valider et faire apparaitre la date dans la cellule, comment faire pour que je puisse rentrer la date sans avoir a coher toujour la case ok mais appuiyer sur entree puis valider le tout
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 de votre aide
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour damien*,
Tu mets la propriete "Default" du bouton a "True".
Lorsque tu valide, ca valide le bouton.
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 coher ok pour
valider et faire apparaitre la date dans la cellule, comment faire pour que
je puisse rentrer la date sans avoir a coher toujour la case ok mais appuiyer
sur entree puis valider le tout
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
*Bonjour damien*, Tu mets la propriete "Default" du bouton a "True". Lorsque tu valide, ca valide le bouton.
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 coher ok pour valider et faire apparaitre la date dans la cellule, comment faire pour que je puisse rentrer la date sans avoir a coher toujour la case ok mais appuiyer sur entree puis valider le tout
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 de votre aide
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
damien
merci jean luc
"JLuc" a écrit dans le message de news:
*Bonjour damien*, Tu mets la propriete "Default" du bouton a "True". Lorsque tu valide, ca valide le bouton.
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 coher ok pour valider et faire apparaitre la date dans la cellule, comment faire pour que je puisse rentrer la date sans avoir a coher toujour la case ok mais appuiyer sur entree puis valider le tout
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 de votre aide
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
merci jean luc
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.857d7d668ad9c08c.40692@free.fr.ns...
*Bonjour damien*,
Tu mets la propriete "Default" du bouton a "True".
Lorsque tu valide, ca valide le bouton.
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 coher ok
pour valider et faire apparaitre la date dans la cellule, comment faire
pour que je puisse rentrer la date sans avoir a coher toujour la case ok
mais appuiyer sur entree puis valider le tout
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
*Bonjour damien*, Tu mets la propriete "Default" du bouton a "True". Lorsque tu valide, ca valide le bouton.
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 coher ok pour valider et faire apparaitre la date dans la cellule, comment faire pour que je puisse rentrer la date sans avoir a coher toujour la case ok mais appuiyer sur entree puis valider le tout
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
