Code VBA figer le temps
Twixman
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention -
danielc0 Messages postés 1859 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerai figer le temps dans la colonne D suivant le mot "ok" en colonne E qui serait donnée par la somme des cellules des colonne F et G.
Cellule E1 =si((F1+G1)=2;"ok";"")
Cellule E2 =si((F2+G2)=2;"ok";"")
.......
N'étant pas une spécialiste du code VBA serait-il possible de compléter ou de modifier le code ci-dessous.
Merci.
Bonne journée.
J'aimerai figer le temps dans la colonne D suivant le mot "ok" en colonne E qui serait donnée par la somme des cellules des colonne F et G.
Cellule E1 =si((F1+G1)=2;"ok";"")
Cellule E2 =si((F2+G2)=2;"ok";"")
.......
N'étant pas une spécialiste du code VBA serait-il possible de compléter ou de modifier le code ci-dessous.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("e1:e16")) Is Nothing Then Exit Sub
If Target.Value = "ok" Then Target.Offset(0, -1).Value = Time
End Sub
Merci.
Bonne journée.
Configuration: Windows / Chrome 71.0.3578.98
A voir également:
- Code VBA figer le temps
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Figer les volets - Guide
6 réponses
Bonjour,
Le changement de valeur du résultat d'une cellule ne provoque pas le déclenchement de la macro "Worksheet_Change". Vois si les valeurs de F1 ou G1 résultent d'une formule ou non. S'ils ne résultent pas d'une formule ou non. Reviens avec la réponse.
Cordialement.
Daniel
Le changement de valeur du résultat d'une cellule ne provoque pas le déclenchement de la macro "Worksheet_Change". Vois si les valeurs de F1 ou G1 résultent d'une formule ou non. S'ils ne résultent pas d'une formule ou non. Reviens avec la réponse.
Cordialement.
Daniel
Bonjour
A tester
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Target.Offset(0, -1) = Format(Now, "dd/mm/yyyy")
End If
End Sub
A tester
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Target.Offset(0, -1) = Format(Now, "dd/mm/yyyy")
End If
End Sub
Ne serait-il pas possible de réagir juste sur le "OK" en colonne E;
Pour pouvoir l'adapter à plusieurs tableaux.
Merci.
Pour pouvoir l'adapter à plusieurs tableaux.
Merci.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question