Modification d'un code VBA
Résolu/Fermé
A voir également:
- Modification d'un code VBA
- Suivi de modification word - Guide
- Code asci - Guide
- Logiciel modification pdf gratuit - Guide
- Code puk bloqué - Guide
- Code telephone oublié - 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!
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 sept. 2013 à 17:19
2 sept. 2013 à 17:19
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
melanie1324
Messages postés
1504
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
3 sept. 2013 à 10:35
3 sept. 2013 à 10:35
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