projet vb

[MICHAEL]

Bonjour,
je souhaiterai enregistrer les valeurs d'une cellule meme lorsque je change les ref en fonction de la date.

 

[Roland_M]

Re : projet vb

Bonjour,

voir ci-joint !?

voir macro dans code feuille !

 

[camarchepas]

Re : projet vb

Bonjour , Roland , Michael

Une variante :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range
If Target.Address = "$H$4" Then
 Set trouve = Me.Range("A:A").Find(Range("H1"), lookat:=xlWhole)
 If Not trouve Is Nothing Then
   Application.Goto Me.Range("A" & trouve.Row), True
   ActiveCell.Offset(0, 1) = Target
  Else
   MsgBox " Date non disponible dans cette période ou erronnée": Exit Sub
 End If
End If
End Sub

 

[MICHAEL]

Re : projet vb

Merci à vous, c'est bien cela que je désirais.
Bonne journée !

bien cordialement.