[Résolu] Copier coller une plage dans un onglet prédéfini avec condition de date

[exene]

Bonjour,

Je devais finaliser un petit projet mais on me demande une automatisation supplémentaire dont je suis incapable.
Dans la feuille base un bouton permettant de créer un onglet d'après un modèle et de le nommer , un autre bouton pour se déplacer. Pour automatiser la saisie, il faudrait copier la plage C5:G5 dans l'onglet nommé comme la cellule D1 (feuille base) à la date contenue dans la cellule B5 ((feuille base). Ci-joint le fichier avec le résultat souhaité

 

[job75]

Re : Copier coller une plage dans un onglet prédéfini avec condition de date

Bonjour exene,

Fichier joint avec cette macro :

Private Sub CommandButton2_Click() 'bouton ENREGISTRER LA SAISIE
Dim lig As Long
On Error Resume Next
With Sheets([D1].Text)
  If Err Then MsgBox "Cet agent n'existe pas, Veuillez le créer !": Exit Sub
  lig = Application.Match([B5], .[B:B], 0)
  If Err Then MsgBox "La date n'existe pas dans la feuille de l'agent...": Exit Sub
  .Cells(lig, 3).Resize(, 5) = [C5:G5].Value
End With
End Sub

A+

 

[exene]

Re : Copier coller une plage dans un onglet prédéfini avec condition de date

Bonjour,

Merci beaucoup pour votre aide, c'est très efficace

@+