Enregistrement de valeurs sur feuille

Question

Bonjour le forum je reviens avec mon fichier de calcul et pour finir ce fichier j'ai besoin de faire le code vba du bouton sauvegarde de mon userform.Je souhaiterais qu'il collecte les données du tableau de suivi et celui d'extraction données tableau en format date pour les enregistrer sur les tableaux sur la feuille valeurs .Merci de votre aide ...

Invité · Accepted Answer

Une proposition :

- Feuille "Calcul"
--- J'ai nommé la plage C22:G33 "Pl_Suivi_Calcul"
--- J'ai nommé la plage D38:F48 "Pl_Extraction_Calcul"

- Feuille "Valeurs"
--- J'ai nommé la plage C5:G16 "Pl_Suivi_Valeurs"
--- J'ai nommé la plage K6:N16 "Pl_Extraction_Valeurs"
--- La plage K6:N16 a été mis au format date "jj_mm_aaaa"

Reste le code du bouton "Validation" du formulaire

Private Sub CommandButton2_Click()
Dim WsC As Worksheet, WsV As Worksheet

   Set WsC = Worksheets("Calcul")
   Set WsV = Worksheets("Valeurs")

   WsV.Range("Pl_Suivi_Valeurs").ClearContents
   WsV.Range("Pl_Extraction_Valeurs").ClearContents

   WsV.Range("Pl_Suivi_Valeurs").Value = WsC.Range("Pl_Suivi_Calcul").Value
   WsV.Range("Pl_Extraction_Valeurs").Value = WsC.Range("Pl_Extraction_Calcul").Value

End Sub

11fichier-de-calcul.zip (296.98 Ko)

Biz