Modification d'un code VBA
Résolu
Liçou
-
Liçou -
Liçou -
Bonjour,
J'avais inscrit ce code VBA qui inscrivait dans la colonne A la date et l'heure si du texte était inscrit dans la colonne B (de la même ligne biensur):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
Target.Offset(0, -1) = Now
End If
End Sub
Je n'arrive pas à le modifier pour qu'il m'inscrive la date et l'heure dans la colonne B si du texte est inscrit dans la colonne C.
Quelqu'un peut-il m'aider?
Merci d'avance.
J'avais inscrit ce code VBA qui inscrivait dans la colonne A la date et l'heure si du texte était inscrit dans la colonne B (de la même ligne biensur):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
Target.Offset(0, -1) = Now
End If
End Sub
Je n'arrive pas à le modifier pour qu'il m'inscrive la date et l'heure dans la colonne B si du texte est inscrit dans la colonne C.
Quelqu'un peut-il m'aider?
Merci d'avance.
A voir également:
- Modification d'un code VBA
- Code ascii - Guide
- Suivi de modification word - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
4 réponses
Bonjour Mélanie,
Merci beaucoup, ça fonctionne!
Peux-tu m'expliquer comment fonctionne le rapport entre les colonnes de mon tableau et ce que l'on note pour la macro???
Merci d'avance!
Merci beaucoup, ça fonctionne!
Peux-tu m'expliquer comment fonctionne le rapport entre les colonnes de mon tableau et ce que l'on note pour la macro???
Merci d'avance!
Bonjour,
Voici le code pour pour qu'il inscrive la date et l'heure dans la colonne B si du texte est inscrit dans la colonne C.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
Target.Offset(0, -1) = Now
End If
End Sub
Voici le code pour pour qu'il inscrive la date et l'heure dans la colonne B si du texte est inscrit dans la colonne C.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
Target.Offset(0, -1) = Now
End If
End Sub
bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then ' si la colonne de la cellule modifier est la 3ème (soit C) (Target.Column = 3 ) et si tu ne modifies qu'une seule cellule ( Target.Count = 1 )
Target.Offset(0, -1) = Now ' alors la cellule située sur la même ligne (0) mais colonne B (-1) = date et heure du moment (fonction Now)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then ' si la colonne de la cellule modifier est la 3ème (soit C) (Target.Column = 3 ) et si tu ne modifies qu'une seule cellule ( Target.Count = 1 )
Target.Offset(0, -1) = Now ' alors la cellule située sur la même ligne (0) mais colonne B (-1) = date et heure du moment (fonction Now)
End If
End Sub