Discussion :

[Kyrolen]

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

[casefayere]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  Target(1, 2) = Now

[Kyrolen]

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

[casefayere]

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

Bonne soirée

[Kyrolen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kyrolen]

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