Amélioration de copie de donné entre feuilles (VBA)

[herbe10]

Bonjour,

Je suis novice et par la documentation sur le forum j'ai "presque" réussi ce que je cherche à faire

Dans le fichier ci joint :
1er feuille : ON compléte 4 cellules , puis on clique sur un bouton
2éme feuille : Les données viennent à la suite d'une liste qui va s'incrémenté.

Pour le moment cela marche sauf :
Je n'arrive pas à garder la mise en forme des cellules de destinations...
Est-il possible d'améliorer mon fichier, et sur le premier onglet, il va compléter a partir d'une nouvelle fenetre qui va s'ouvrir, ou plutot 4 fentre a la suite pour les 4 informations que je demande.

Merci

 

[pierrejean]

Re : Amélioration de copie de donné entre feuilles (VBA)

Bonjour herbe

Et bienvenue sur XLD

Teste:

Range("B13:E13").Copy Destination:=Sheets("Archive").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

 

[phlaurent55]

Re : Amélioration de copie de donné entre feuilles (VBA)

Bonjour herbe, et bienvenue sur le forum

ton fichier en retour pour un début de réponse

à+
Philippe

Edit: Bonjour Pierre-Jean

 

[JBARBE]

Re : Amélioration de copie de donné entre feuilles (VBA)

Bonjour,

Cette macro pour le copier et la mise en forme !

Sub Essai()
Sheets("Donnée").Select
Range("B13:E13").Copy
Sheets("Archive").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Interior.ColorIndex = xlNone
With ActiveCell
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
    End With
With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
    End With
End Sub

Bonne journée

 

[Dranreb]

Re : Amélioration de copie de donné entre feuilles (VBA)

Bonjour.
Comme ça la mise en forme est gardée:

Sub Essai1()
With Feuil5.[B13:E13]
   Feuil2.[A65536].End(xlUp)(2).Resize(, 4).Value = .Value
   .ClearContents: End With
End Sub

4 fenêtres serait faciles à faire par 4 utilisations d'InputBox, mais le mieux serait de dessiner un Userform avec 4 champs de saisies.