Erreur dans un code VBA
Résolu/Fermé
jc80
Messages postés
4242
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
23 sept. 2015 à 13:57
jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 23 sept. 2015 à 14:17
jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 23 sept. 2015 à 14:17
A voir également:
- Erreur dans un code VBA
- Erreur 0x80070643 - Guide
- Code asci - Guide
- Code puk bloqué - Guide
- Erreur 38 free ✓ - Forum Mobile
- Code telephone oublié - Guide
3 réponses
f894009
Messages postés
17192
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2024
1 708
23 sept. 2015 à 14:02
23 sept. 2015 à 14:02
Bonjour,
Datedonne la date, pas date et heure
Range(co2 & li).Value = Now
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 304
Modifié par michel_m le 23/09/2015 à 14:10
Modifié par michel_m le 23/09/2015 à 14:10
bonjour
essaies avec
With Range("B4") 'par eaxemple
.Value = Now
.NumberFormat = "dd/mm/yyyy hh:mm"
End With
mais fais un essai avec des dates et mois <12
edit:excuse moi F89, je n'avais pas rafraichi
Michel
essaies avec
With Range("B4") 'par eaxemple
.Value = Now
.NumberFormat = "dd/mm/yyyy hh:mm"
End With
mais fais un essai avec des dates et mois <12
edit:excuse moi F89, je n'avais pas rafraichi
Michel
f894009
Messages postés
17192
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2024
1 708
23 sept. 2015 à 14:16
23 sept. 2015 à 14:16
Bonjour,
Pas grave, mieux vaut deux reponses que pas du tout
Pas grave, mieux vaut deux reponses que pas du tout
jc80
Messages postés
4242
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 423
23 sept. 2015 à 14:17
23 sept. 2015 à 14:17
Bonjour
Merci a tous les 2
En me creusant un peu le ciboulot j'ai réussi avec cela
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, -2) = Format(Now, "dd/mm/yy hh:mm")
End If
End Sub
Cordialement
Merci a tous les 2
En me creusant un peu le ciboulot j'ai réussi avec cela
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, -2) = Format(Now, "dd/mm/yy hh:mm")
End If
End Sub
Cordialement
