Bonjour à tous,
Dans une feuille Excel afin de facilité la rapidité de saisie, j'ai crée un masque de saisie pour les heures sous cette forme 00:00, code ci-dessous.
En saisie, cellule par cellule pas de problème cela fonctionne très bien.
Toutefois, en copier glisser, j'ai une erreur sur "If IsNumeric(Target) And Target > 1 Then"
Après plusieurs recherches, je ne trouve pas de solutions.
Merci d'avance de votre aide.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
If IsNumeric(Target) And Target > 1 Then
txt = Right("0000" & CStr(Target), 4)
Target = Mid(txt, 1, 2) / 24 + Mid(txt, 3, 2) / 24 / 60
End If
End If
End Sub
Dans une feuille Excel afin de facilité la rapidité de saisie, j'ai crée un masque de saisie pour les heures sous cette forme 00:00, code ci-dessous.
En saisie, cellule par cellule pas de problème cela fonctionne très bien.
Toutefois, en copier glisser, j'ai une erreur sur "If IsNumeric(Target) And Target > 1 Then"
Après plusieurs recherches, je ne trouve pas de solutions.
Merci d'avance de votre aide.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("C")) Is Nothing Then
If IsNumeric(Target) And Target > 1 Then
txt = Right("0000" & CStr(Target), 4)
Target = Mid(txt, 1, 2) / 24 + Mid(txt, 3, 2) / 24 / 60
End If
End If
End Sub