Copier coller TABLEAU vba Format et Valeur a la suite

  • Initiateur de la discussion Initiateur de la discussion papo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

papo

XLDnaute Nouveau
Bonjour, novice sur excel je souhaiterais a l'aide dune macro copier coller automatiquement un tableau d'une feuille "caisse" sur une feuille ''JOUR1''. Le coller ce fait avec 2 collages spé : ''format'' et ''valeur numéro et format'' ( jusqu’à la j'y arrive ).
Je me suis servi de l'enregistreur de macro pour arriver a ma formule qui fonctionne très bien malgré des : ''.select'' surement inutiles.


voici ma formule :

Sub COPIERCOLLERTICKETSPECIAL()
Sheets("Caisse").Select
Range("H1:M24").Select
Range("M24").Activate
Selection.Copy
Sheets("JOUR1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

J'aimerais maintenant pouvoir coller ce même tableau une fois que j'y ai modifier les valeurs à la suite du premier ( et ainsi de suite pour peut être une cinquantaine de tableau).

J'ai eu beau trouver de nombreux Post a ce sujet, je n'ai pas trouvé la solution qui me convenait.

Je compte sur vous pour m'aider.
Merci d'avance
 
Re : Copier coller TABLEAU vba Format et Valeur a la suite

J'ai trouvé tout seul Merci quand meme

Sub ClikVencaisse()
Sheets("caisse").Select
Range("H1:M24").Select
Range("M24").Activate
Selection.Copy
Sheets("JOUR1").Select
Range("A65536").End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Sheets("Caisse").Activate
Sheets("liste").Range("B57:C76").Copy Destination:=Sheets("caisse").Range("H4:I23")
Sheets("liste").Range("G57").Copy Destination:=Sheets("Ticket caisse").Range("H10")
End Sub



RESOLU
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
18
Affichages
317
Réponses
10
Affichages
547
Réponses
2
Affichages
283
Réponses
17
Affichages
1 K
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
491
Retour