sauvegarder des infos après incrémentation

yann1983

XLDnaute Nouveau
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.
 

Pièces jointes

  • prise en charge.xlsm
    225 KB · Affichages: 25
  • prise en charge.xlsm
    225 KB · Affichages: 29
  • prise en charge.xlsm
    225 KB · Affichages: 30

Papou-net

XLDnaute Barbatruc
Re : sauvegarder des infos après incrémentation

Bonjour yann1983, et bienvenue,

Voici une proposition de modification de ta macro :

Code:
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.
 

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 223
Membres
105 296
dernier inscrit
bob44