XL 2019 Création de formulaire

[JFR]

Bonjour,
J'aurai besoin de votre aide encore une fois.
Je souhaiterais à partir de mon onglet "création" remplir la cases correspondantes pour me générer le document dans l'onglet suivent.
La cerise sur le gâteau serait que le formulaire mémorise le dernier numéro de CR qui commence toujours par CR ***/2026 (numéro et année) pour générer automatiquement le numéro du document suivant

Merci à tous pour votre aide

 

[Xl60PassionFr]

Bonjour JFR

Code à mettre dans un module 😉

Sub CréationFiche()
  Dim Ind As Integer, TabRngSce() As String, TabRngDes() As String
  ' Définir les cellules source
  TabRngSce = Split("A2,A6,C6,E6,G6,A9,C9,A13", ",")
  ' Définir les cellules de destination
  TabRngDes = Split("C17,C14,A23,E23,G23,C29,C34,A38", ",")
  ' Avec ce classeur
  With ThisWorkbook
    ' Boucler sur chaque cellule
    For Ind = 0 To UBound(TabRngSce)
      ' Inscrire les valeur
      .Worksheets("Document").Range(TabRngDes(Ind)).Value = .Worksheets("Création").Range(TabRngSce(Ind)).Value
    Next Ind
    ' A la fin, mémoriser le dernier n° de CR
    .Worksheets("Création").Range("L1").Value = .Worksheets("Création").Range("A6").Value
  End With
End Sub

A+