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
Quetzalcoatl
" C15" a écrit ...
Comment aussi interdire la saisie de nombres ?
Bonjour,
Est-ce que le VBA suivant, placé dans le code de la feuille considérée, répond au besoin ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Not IsDate(Cells(Target.Row, Target.Column).Value) Then Application.EnableEvents = False 'pour éviter de ré-entrer dans Worksheet_Change Cells(Target.Row, Target.Column).Value = "" Application.EnableEvents = True MsgBox "Vous devez saisir une date" End If End Sub
" C15" a écrit ...
Comment aussi interdire la saisie de nombres ?
Bonjour,
Est-ce que le VBA suivant, placé dans le code de la feuille considérée, répond au besoin ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Not IsDate(Cells(Target.Row, Target.Column).Value) Then
Application.EnableEvents = False 'pour éviter de ré-entrer dans Worksheet_Change
Cells(Target.Row, Target.Column).Value = ""
Application.EnableEvents = True
MsgBox "Vous devez saisir une date"
End If
End Sub
Est-ce que le VBA suivant, placé dans le code de la feuille considérée, répond au besoin ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Not IsDate(Cells(Target.Row, Target.Column).Value) Then Application.EnableEvents = False 'pour éviter de ré-entrer dans Worksheet_Change Cells(Target.Row, Target.Column).Value = "" Application.EnableEvents = True MsgBox "Vous devez saisir une date" End If End Sub
C15
Bonjour Quetzalcoatl,
Merci de cette réponse qui fonctionne bien, mais je suis surpris que l'on ne puisse se dispenser du Vba !
A+
C15
"Quetzalcoatl" a écrit dans le message de news: 470dbbfc$0$5074$
" C15" a écrit ...
Comment aussi interdire la saisie de nombres ?
Bonjour,
Est-ce que le VBA suivant, placé dans le code de la feuille considérée, répond au besoin ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Not IsDate(Cells(Target.Row, Target.Column).Value) Then Application.EnableEvents = False 'pour éviter de ré-entrer dans Worksheet_Change Cells(Target.Row, Target.Column).Value = "" Application.EnableEvents = True MsgBox "Vous devez saisir une date" End If End Sub
Bonjour Quetzalcoatl,
Merci de cette réponse qui fonctionne bien, mais je suis surpris que l'on ne
puisse se dispenser du Vba !
A+
C15
"Quetzalcoatl" <quetzalHIHIHIcoatl@free.fr.invalid> a écrit dans le message
de news: 470dbbfc$0$5074$ba4acef3@news.orange.fr...
" C15" a écrit ...
Comment aussi interdire la saisie de nombres ?
Bonjour,
Est-ce que le VBA suivant, placé dans le code de la feuille considérée,
répond au besoin ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Not IsDate(Cells(Target.Row,
Target.Column).Value) Then
Application.EnableEvents = False 'pour éviter de ré-entrer dans
Worksheet_Change
Cells(Target.Row, Target.Column).Value = ""
Application.EnableEvents = True
MsgBox "Vous devez saisir une date"
End If
End Sub
Merci de cette réponse qui fonctionne bien, mais je suis surpris que l'on ne puisse se dispenser du Vba !
A+
C15
"Quetzalcoatl" a écrit dans le message de news: 470dbbfc$0$5074$
" C15" a écrit ...
Comment aussi interdire la saisie de nombres ?
Bonjour,
Est-ce que le VBA suivant, placé dans le code de la feuille considérée, répond au besoin ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Not IsDate(Cells(Target.Row, Target.Column).Value) Then Application.EnableEvents = False 'pour éviter de ré-entrer dans Worksheet_Change Cells(Target.Row, Target.Column).Value = "" Application.EnableEvents = True MsgBox "Vous devez saisir une date" End If End Sub