Bonjour, mon probleme concerne les heures en automatique
je cherche a automatiser un journal de campagne (je suis bénévole croix rouge) il me reste un soucis . je voudrais que l heure s indique dans une cellule lorsque la cellule à coté a été remplie . Donc avec une liste je clique sur un theme en A1 (par exemple) et lorsque je fait enter l heure s indique dans B1. la fonction maintenant ne fonctionne pas car lorsque je ferme et reouvre mon fichier les heures ce modifier car la formule est maintenant
voila merci de m aider
Bonjour et bienvenu,
Peux-tu nous envoyer ton fichier et demander de l'aide avec un exemple concrèt de ce que tu attends comme résultat ?
Bonjour
Avec ce bout de code de feuille
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Time
End If
End Sub
L'heure s'inscrit en colonne 2, si tu saisis quelque chose en colonne1
Cordialement
Raja a écrit :Bonjour et bienvenu,
Peux-tu nous envoyer ton fichier et demander de l'aide avec un exemple concrèt de ce que tu attends comme résultat ?
voici un brouillon de ce que je cherche a faire
merci d avance
Amadéus a écrit :Bonjour
Avec ce bout de code de feuille
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Target.Offset(0, 1) = Time
End If
End Sub
L'heure s'inscrit en colonne 2, si tu saisis quelque chose en colonne1
Cordialement
deso, mais je ne sais pas ou écrire ce code et encore moins comment le lance
merci ci joint l adresse d un brouillon de ce je fait
henri a écrit :Bonsoir,
regarde et dis quoi.
https://www.excel-pratique.com/~files/doc/Whq40nouveaux_jc.xls
A +
genial je pense que c est bien ce que je cherche à faire . peut tu expliquer ?
merci d avance
Bonjour,
ALT+F11 pour voir le code VBA
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
lorsque le contenu change
If Target.Column = 3 Then
->si la celulles modifiée est = a la colonne 3 alorsTarget.Offset(0, -1) = Time
->décale la sélection de 0 ligne et de moins une colonne puis écrit l'heure
End If
fin de si
End Sub
la procédure est finie.
C'est en gros ce cela veux dire
A +
henri a écrit :Bonjour,
ALT+F11 pour voir le code VBA
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
lorsque le contenu change
If Target.Column = 3 Then
->si la celulles modifiée est = a la colonne 3 alorsTarget.Offset(0, -1) = Time
->décale la sélection de 0 ligne et de moins une colonne puis écrit l'heure
End If
fin de si
End Sub
la procédure est finie.
C'est en gros ce cela veux dire
A +