Discussion :

[Wazapala]

Bonjour à tous,

Je viens vers vous car une de mes macros me pose problème, je m'explique :
La macro en question me permet de couper/coller la ligne sélectionnée depuis une première feuille "Travail à faire" vers une seconde feuille intitulée "Archives".
Jusque-là, tout va bien. Le problème est que cette macro colle également les mises en forme conditionnelles, ce que je ne veux pas.
J’ai alors effectué des recherches sur internet afin de trouver une solution, elle paraît simple, modifier la ligne de commande servant à coller avec la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PasteSpecial Paste:=xlPasteValues

Cependant, impossible de trouver dans la macro la ligne servant à coller les informations. Ma question est donc, quelle partie de la macro ci-dessous dois-je modifier afin de ne coller que les valeurs ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Image2_Cliquer()
Application.ScreenUpdating = False
    Dim derlig As Integer, pos As Integer
     'Enlever protection
            Worksheets("Archives").Unprotect "arch"
    If ActiveCell.Column < 8 Then 'selection colonne A a G
        'ligne de selection
        pos = ActiveCell.Row
        With Worksheets("Archives")
            'premiere cellule vide colonne A
            derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
            'copie des donnees
            Range("A" & pos & ":G" & pos).Copy .Range("A" & derlig)
            'Date d'archivage
            .Range("E" & derlig).Value = Format(Now)
        End With
        'suppression ligne
        Rows(pos).Delete
    End If
     'Mettre protection
            Worksheets("Archives").Protect "arch", True, True, True
Application.ScreenUpdating = True
End Sub

Merci pour votre réponse & bonne journée,

Cordialement.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Range("A" & derlig & ":G" & derlig) = Range("A" & pos & ":G" & pos).Value