Excel Automatiser raccourcis Résolu/Fermé

Question

Bonjour!

Bon, j'ai crée un worksheet permettant de suivre la gestion des stocks de mon entreprise.

J'ai donc créé des tableaux dont l'onglet porte le nom de l'objet. Ce sont toujours les mêmes tableaux du reste.

Je veux que dès qu'une cellule de la colonne B est remplie, que la colonne C indique la date (fixée)automatiquement. Idem pour les colonnes D et E qui suivent la même logique.

Cause: flux entrants et flux sortants.

J'ai écrit le code suivant pour la feuille "Coca" par exemple:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then If Not (IsEmpty(Target.Value)) Then Range("C" & Target.Row).Value = Worksheets("Coca").Cells(17, 1).Value Else Range("C" & Target.Row).ClearContents
If Target.Column = 4 Then If Not (IsEmpty(Target.Value)) Then Range("E" & Target.Row).Value = Worksheets("Coca").Cells(17, 1).Value Else Range("E" & Target.Row).ClearContents

End Sub

Ok. Vous avez vu que la formule récupère date affichée en A17.
Or, c'est pour une gestion de stock, donc je ne veux pas que la date se base sur l'heure système: je la veux fixe.

J'ai donc une case sur ma page "Général" (première page), dans laquelle j'exécute le raccourci suivant: 
"Ctrl+;" puis un espace, puis "Ctrl+:" pour avoir ça "16/07/2008 12:17" en C5

Mais c'est assez lourd.

Est-ce que je peux avoir une ligne VBA qui me permette d'exécuter ces touches de raccourci automatiquement dans la case C5 au lancement de Excel?

Je vous remercie et reste à votre disposition

lermite222 · Answer

Bonjour,
Sais pas si j'ai bien compris, mettre la date et l'heure à l'ouverture du classeur ?

Private Sub Workbook_Open()
    Sheets("Général").Cells(5,3).Value = Now
End SubTu dit...
A+

bacardi972 · Answer

Bonjour!

Merci pour votre rapidité.
La formule donnée me donne la date et l'heure du moment. Mais elle évolue avec le temps. Elle n'est pas fixée à la différence de la manip "Ctrl+;" par exemple.

C'est une information capitale dans le problème car c'est pour réaliser un historique. et j'ouvre le classeur tous les jours pour suivre la consommation des produits.

Il faut donc que quand j'ouvre mon classeur, le moment d'ouverture (date heure) soit affiché dans une cellule (C5 en particulier), mais que cette automatisation ne soit pas le résultat d'une formule =now(); =aujourdhui(); =maintenant() et j'en passe.
Ces formules impliquent en effet des données variables et volatiles. Il me faut une date fixée qui ne changera pas quand j'ouvrirai le classeur le lendemain par exemple.

C'est la dernière chose qui me manque à mon classeur.

Je reste à votre disposition!

lermite222 · Answer

J'ai toujours pas compris...
Que veux-tu comme date dans cette cellule et quand doit-elle être initialisée.
Et avec quoi ?

lermite222 · Answer

Si ru veux pas que cette date soit inirialisée à chaque ouverture du classeur amis que la 1èere fois oui, alors ...
Je doit dire que malgré tes explications j'ai pas bien compris.


Private Sub Workbook_Open()
    If Sheets("Général").Cells(5,3).Value ="" then
         Sheets("Général").Cells(5,3).Value = Now
    End if
End Sub
Mais PAS COMPRIS !!!!!

eriiic · Answer

Il faut donc que quand j'ouvre mon classeur, le moment d'ouverture (date heure) soit affiché dans une cellule (C5 en particulier)...
et
Il me faut une date fixée qui ne changera pas quand j'ouvrirai le classeur le lendemain par exemple. 

Faudrait savoir....
En fait tu veux que lorsque tu ouvres le classeur la date se mette dans une cellule, sauf si tu regardes l'écran méchamment. C'est ça ?

Autre chose, il y a, il me semble confusion :
si dans une cellule tu mets =aujourdhui() ou qcq chose comme ça à la prochaine ouverture ça se mettra à jour effectivement.
Si c'est par macro que tu utilises =now() ça ne se mettra à jour QUE SI C'EST VOULU. 

eric

eriiic · Answer

Une question pour éclairer ma lanterne :
Pourquoi mettre la date ET l'heure si tu désires que cette valeur reste fixée à l'heure d'ouverture du fichier ?

Ton code a l'air correct même si je ne l'aurais pas écrit ainsi.
Si tu ajoutes le bout donné par lermite au post 1 ça sera complet.
Contrairement à ce que tu dis, ce n'est pas parce qu'il a utilisé now que la valeur va changer dans la cellule toutes les secondes. Il ne sera rafraichi  qu'à chaque ouverture de fichier comme tu l'as demandé (c'est la différence entre une formule et du code vba que j'essayais de t'expliquer).

Teste l'ensemble et demande ensuite si il faut rajouter qcq chose ou s'il y a une erreur.

eric

lermite222 · Answer

Eureka, je crois que j'ai compris Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static AncCol As String, Col As Integer, Lig As Long If AncCol <> "" Then Col = Range(AncCol).Column Lig = Range(AncCol).Row If Cells(Lig, Col) <> éé Then If Col = 1 And Cells(Lig, Col + 1) = "" Then Cells(Lig, Col + 1) = Now End If End If End If AncCol = Target.Address End Sub Quand tu met une donnée dans la colonne A la date s'inscrit automatiquement danq la colonne B et ne changera plus. A+

bacardi972 · Answer

Super!!!!

Merci lermite, tu me sors de mon isolement intellectuel.

Merci à toi aussi Eric!

C'est précisément ce que je voulais. Génial !
Je n'ai plus qu'à l'adapter à mes colonnes.

Merci beaucoup, je peux enfin boucler le projet..

A bientôt