sauvegarder des infos après incrémentation

[yann1983]

bonjour,

je souhaite que les informations inscrites dans la prise en charge se sauvegarde dans l'onglet recap en fonction du numéro de la prise en charge.
le smile jaune me permet d'incrémenter ma prise en charge.

comment je dois faire pour que les infos de la prise en charge 1 reste visible lorsque je passe à la prise en charge 2?
merci de votre aide.

 

[Papou-net]

Re : sauvegarder des infos après incrémentation

Bonjour yann1983, et bienvenue,

Voici une proposition de modification de ta macro :

Sub plus1()
Dim num As Integer, Lg As Long

' Sauvegarde des donnée sur feuille "recap"
With Feuil1
  Lg = .Range("F1") + 1
  Feuil2.Cells(Lg, 2) = .Range("C15") ' Date de réception
  Feuil2.Cells(Lg, 3) = .Range("C12") ' Destinataire
  Feuil2.Cells(Lg, 4) = .Range("C19") ' Fournisseur
  Feuil2.Cells(Lg, 5) = .Range("C17") ' Transporteur
  Feuil2.Cells(Lg, 6) = .Range("C21") ' Nature marchandise
  Feuil2.Cells(Lg, 7) = .Range("C28") ' Remis le
  Feuil2.Cells(Lg, 7) = .Range("E40") ' Nom du signataire
  ' Incrémentation du bordereau de prise en charge
  .Range("f1").Value = .Range("f1").Value + 1
End With
End Sub

Cordialement.

 

[yann1983]

Re : sauvegarder des infos après incrémentation

bonjour Papou et merci beaucoup pour la reponse ca me va très bien.
c'est super