Heure automatique et fixe Résolu/Fermé

Question

Bonjour, 
Je voudrais savoir comment fixer l heure  dans une case quand je remplis dans une case.

Exemple je mets 1 dans la case AH1  et dans la case S40 je veux afficher l heure.

J ai essayé  avec le macro suivant mais sans réussite. 

Private sub worksheet_selectionChange(ByVal Target As Range)
If Not intersect (Target, Range("AH1:AH80") ) is nothing then
Target.range("S40") = Time
End if
End sub

Je n ai pas d erreur à  la compilation, mais je n ai pas l heurr qui s affiche.. 

Merci d avance je suis débutant.
Configuration: Android / Chrome 84.0.4147.111

via55 · Answer

Bonjour

range("S40") = Time (sans Target)

Cdlmnt
Via

JCB40 · Answer

Bonjour Lynch ,Via
Tu remplaces la première ligne du code par celle-ci
Private Sub worksheet_Change(ByVal Target As Range) 
 Crdlt

Lynch · Answer

Finalement ça  ne fonctionne plus.. 

L heure c est affichée.. je relance et plus rien..  


Comment peut on faire pour exécuter  sur differente colone?

Je vous mets le fichier en piece jointe pour mieux comprendre.

On rempli de 1 à  7 dans la colone V in.

Ici j ai essayé  de remplir via la colone AH. 
Pour que l heure se note en S40 ce qui ne va plus.

Mais j aimerais que ça  fonctionne pour AI en S41 AJ en S42 etc... ( 7 voyages)

Merci d avance.

Je suis perdu.. 

https://we.tl/t-a9WQob4RIj

via55 · Answer

Bonjour

Les colonnes AH et suivantes contiennent en ligne 6 des formules qui ne peuvent lancer des macros
Où veux tu exactement entrer des données ? donner une plage précise

Ensuite pour que l'heure s'affiche dans la 1ere cellule vide dd la colonne S il faut dans la macro rechercher la ligne de cette cellule

via55 · Answer

Précise :
Si en D6 on rentre 3 il faut mettre l'heure en S40, S41 et S42 ou seulement en S 42 ?

Que se passe-t-il lorsqu'on rentre ensuite une autre valeur en D7 ?

via55 · Answer

Ok, alors macro à mettre dans le worksheet de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D6:D37")) Is Nothing Then
Range("S" & 39 + Target.Value) = Time
End If
End Sub
Cdlmnt
Via

Heure automatique et fixe

6 réponses

Discussions similaires