Probleme de Macros

Bonjour,

Voila je sollicite votre aide pour un souci sous excel pour une macro par exemple j'aimerais crée une base de donnée répertoriant tout un stock je voudrais dans ce tableau rentre la date d'arrivage des pièces automatiquement donc exemple Colonne A "description des pièces", colonne B "stock initial" donc en C je voudrais que la date du jour et l'heure s'affiche des que je rentre des donnée en B , j'ai essayer plusieurs macro mais problème une fois mon tableau rempli si je rentre des donnée en B3 toute les cellules en C se met a la même heure et à la même date, je ne commande que les pièce que j'ai besoin ceux dont le stock est suffisant je ne les recommande pas. (logique ;))
Merci de votre aide

Bonsoir,

dans l'évènement "Change" de la feuille, copies ce code

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row > 1 Then 'si saisie en col B supérieure a ligne 1 _   ligne 1 pour les entêtes Application.EnableEvents = False Target(1, 2) = Date 'résultat en col C, meme ligne Application.EnableEvents = True End If End Sub

---

avec l'heure remplace "Date" par "Now"

Code:

---

Target(1, 2) = Now

---

ca marche nickel merci le seul truc c que quand je clique sur la cellule B (vide) la date et l'heure se met dans la cellule C est-ce normal ?

Merci

c bon ca marche je n'était pas dans l'evenement " Change " mais dans l'evenement " ChangeSelection"

encore merci

Content pour toi, j'espère que tu as compris le principe,

Bonne soirée

je regarde le code et j'essaye de comprendre comment ca marche sinon si tu peux m'expliquer en gros le code que je puisse comprendre la façon de le programmer ou d'en programmer d'autre je te remet le code :

Code:

---

1 2 3 4 5 6 7

f Target.Column = 2 And Target.Row > 1 Then 'si saisie en col B supérieure a ligne 1 _   ligne 1 pour les entêtes Application.EnableEvents = False Target(1, 2) = Date 'résultat en col C, meme ligne Application.EnableEvents = True End If End Sub

---

si ca ne te dérange pas un truc assez simple comme " telle commande sert a ceci " ca m'aiderais beaucoup dans mon projet

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) 'donc ça c'est l'évenement Change quand tu change le contenu d'une cellule 'Target représente la cellule saisie If Target.Column = 2 And Target.Row > 1 Then 'si la saisie est en colonne B et supérieure a ligne 1 (si tu as des entêtes) Application.EnableEvents = False 'voir l'aide, je prévois cette instruction avec l'évènement "Change", pour d'éventuels changement de code 'ci-dessous, je décale la cellule d'une colonne à droite '1er chiffre, la ligne, 2ème la colonne 'avec "Offset" on commence à 0 donc Target.Offset(0, 1) idem que Target(1, 2) Target(1, 2) = Now 'résultat en col C, meme ligne, voir l'aide "F1" pour Now Application.EnableEvents = True 'je réactive les événements (important) End If 'fin de la condition End Sub

---

merci beaucoup je v pouvoir faire mon projet en m'aidant de ce code avec tes annotations ca m'aidera a mieux comprendre ce que je veux faire

merci de ta disposition et de ton aide qui m'est precieuse

:ccool: