VBA - Target.Value = (Target.Value 100) pas compilé
2 réponses
twinley
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne :
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Et je trouve pas l'aide XL.
J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then
Application.EnableEvents = False
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Application.EnableEvents = True
End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la colonne
H et
tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton format
personnalisé (0#" H "#0).
*Attention de toujours bien saisir 2 chiffres pour les minutes*.
A adapter selon ton besoin.
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
E KERGRESSE
Re,
Il manque le signe / dans Target.Value = (Target.Value/100) & ":" & (Target.Value Mod 100)
Cordialement.
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne : Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Et je trouve pas l'aide XL. J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then Application.EnableEvents = False Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Application.EnableEvents = True End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la colonne
H et tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton format
personnalisé (0#" H "#0). *Attention de toujours bien saisir 2 chiffres pour les minutes*. A adapter selon ton besoin.
******************
Si quelqu'un peut me dire ce qui cloche ?
Merci d'avance -- à+twinley
Re,
Il manque le signe / dans Target.Value = (Target.Value/100) & ":" &
(Target.Value Mod 100)
Cordialement.
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
ujmCePoyEHA.260@TK2MSFTNGP11.phx.gbl...
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne :
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Et je trouve pas l'aide XL.
J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then
Application.EnableEvents = False
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Application.EnableEvents = True
End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la
colonne
H et
tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton
format
personnalisé (0#" H "#0).
*Attention de toujours bien saisir 2 chiffres pour les minutes*.
A adapter selon ton besoin.
Il manque le signe / dans Target.Value = (Target.Value/100) & ":" & (Target.Value Mod 100)
Cordialement.
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne : Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Et je trouve pas l'aide XL. J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then Application.EnableEvents = False Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Application.EnableEvents = True End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la colonne
H et tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton format
personnalisé (0#" H "#0). *Attention de toujours bien saisir 2 chiffres pour les minutes*. A adapter selon ton besoin.
******************
Si quelqu'un peut me dire ce qui cloche ?
Merci d'avance -- à+twinley
twinley
merci et de plus, cela aide à comprendre la macro...
-- à+twinley "E KERGRESSE" a écrit dans le message de news:
Re,
Il manque le signe / dans Target.Value = (Target.Value/100) & ":" & (Target.Value Mod 100)
Cordialement.
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne : Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Et je trouve pas l'aide XL. J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then Application.EnableEvents = False Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Application.EnableEvents = True End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la colonne
H et tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton format
personnalisé (0#" H "#0). *Attention de toujours bien saisir 2 chiffres pour les minutes*. A adapter selon ton besoin.
******************
Si quelqu'un peut me dire ce qui cloche ?
Merci d'avance -- à+twinley
merci
et de plus, cela aide à comprendre la macro...
--
à+twinley
"E KERGRESSE" <ASUPPRIMEReric.kergresse@wanadoo.fr> a écrit dans le message
de news:uZjwzWoyEHA.3624@TK2MSFTNGP09.phx.gbl...
Re,
Il manque le signe / dans Target.Value = (Target.Value/100) & ":" &
(Target.Value Mod 100)
Cordialement.
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
ujmCePoyEHA.260@TK2MSFTNGP11.phx.gbl...
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne :
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Et je trouve pas l'aide XL.
J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then
Application.EnableEvents = False
Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100)
Application.EnableEvents = True
End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la
colonne
H et
tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton
format
personnalisé (0#" H "#0).
*Attention de toujours bien saisir 2 chiffres pour les minutes*.
A adapter selon ton besoin.
merci et de plus, cela aide à comprendre la macro...
-- à+twinley "E KERGRESSE" a écrit dans le message de news:
Re,
Il manque le signe / dans Target.Value = (Target.Value/100) & ":" & (Target.Value Mod 100)
Cordialement.
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonsoir,
Dans l'exemple ci-dessous, je n'arrive pas à compiler la ligne : Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Et je trouve pas l'aide XL. J'ai placé la sub dans le module de feuille.
*******************
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 And Not Target.HasFormula Then Application.EnableEvents = False Target.Value = (Target.Value 100) & ":" & (Target.Value Mod 100) Application.EnableEvents = True End If
End Sub
Dans cet exemple de code, tu peux taper 1400 dans une cellule de la colonne
H et tu auras 14:00 dans la cellule, que tu peux mettre en forme avec ton format
personnalisé (0#" H "#0). *Attention de toujours bien saisir 2 chiffres pour les minutes*. A adapter selon ton besoin.
