Heure automatique et fixe

Résolu

Lynch -
Lynch - 13 août 2020 à 14:45

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

A voir également:

Heure automatique et fixe
Réponse automatique thunderbird - Guide
Recherche automatique des chaînes ne fonctionne pas - Guide
Logiciel de sauvegarde automatique gratuit - Guide
Sommaire automatique word - Guide
Réponse automatique gmail - Guide

6 réponses

Réponse 1 / 6

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 742

Bonjour

range("S40") = Time (sans Target)

Cdlmnt
Via

Lynch

Merci.
Ça fonctionne mon problème est que si je clique ca note l heure.. comment puis je faire pour que ca note si par exemple j écris 1. Et non quand je clique..

Merci à vous.

Réponse 2 / 6

JCB40 Messages postés 3000 Date d'inscription Statut Membre Dernière intervention 463

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

Lynch

Bonjour,

J essayé cela fonctionne merci

Mais je n arrive pas a lui dire.

Si dans la colones D il y a 1 alors en s40 mettre l heure..
Si 2 mettres l heure en s41 etc..

Merci d avance.

J ai plus facile dans d autre langage.. je suis perdu..

Je vous mets le fichier en piece jointe pour mieux comprendre.

On rempli de 1 à 7 dans la colone V in.(D)

https://we.tl/t-a9WQob4RIj

Réponse 3 / 6

Lynch

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

Réponse 4 / 6

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 742

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

Lynch

Merci, oui j ai vu en suite que ça ne fonctionnait pas car un code dans la cellule.

Alors je me suis dit:
Pourquoi ne pas faire par apport a la colone D.
Mais faire une recherche: si 1 mettre l heure en S40
Si 2 mettre en S41 erc jusque 7..

Mais je ne trouve pas comment mettre des conditions dans le macro.

Bien à vous

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 742

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 ?

Lynch

Oui S41 42 43 44 45 46 47.

J ai jamais plus de voyage que ça, donc si on mets 10 il ne doit rien se passer par exemple..

Si 3 en d6. L heure devrait se mettre en S43.

Le 1 correspond a 41 le 2 a 42 ainsi de suite..

Ça semble complexe dit comme ça..

Merci

Réponse 6 / 6

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 742

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

Lynch

Nickel merci vous le sauvez.

Me reste un autre soucis dans ce fichier mais ce n est plus concernant l heure..

Discussions similaires

35 GO à l'étranger

Colissimo

Numéro de messagerie vocale Free fixe

Je tiens combien de temps avec 2Go d'internet ?

Comment reinitialiser mon telephone fixe ?

Votre réponse

Discussions similaires