Copier/coller mise en forme par VBA


#1

Bonjour,je vous mets en contexte dans lequel je fais des horaire de production avec une mise en forme, un genre de gabarit. Alors, j’aimerais savoir comment faire un copier/coller sans les mise en forme. Je connais le raccourcie clavier du collage mais j’aimerais le faire via macro afin de gagné en rapidité.En fait, je chercher une macro qui évite de refaire Ctrl+C / Ctrl+V + Ctrl+V afin d’enlever la mise en forme et de l’appliquer aussi en “Dragant” des cellules ayant une mise en forme de simplement garder les valeurs et ça dans tout le classeur. La problématique je rencontre en ce moment est qu’il y a beaucoup de changement entre et les lignes/colonnes alors je veux pas passer mon temps à refaire la mise en forme a tous les fois pour garder mon gabarit.Je “drag” de haut en bas et de gauche a droit en plus de copier/coller fréquemment. Voici en fichier mon fichier.


#2

Bonjour,

Le fichier est trés beau :yum:

Voir ici pour la mise en ligne sur le post


#3

Planificateurv2.xlsx (24,0 Ko)

Le voici haha


#4

Voici ce que j’ai trouvé par contre ceci ne marche pas lorsque je glisse les donnés et si je coupe/coller.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'sécurité
With Application
If .CutCopyMode Then
.EnableEvents = False
.Undo
Selection.PasteSpecial xlPasteValues
.OnUndo “”, “”
.OnRepeat “”, “”
.EnableEvents = True
End If
End With
End Sub

Merci de votre aide.