Discussion :

[problemeaide]

Bonjour voilà la macro que j'utilise mais la ligne que je copie en Q contiens des formules que je ne veux pas. Et je ne trouve pas comment modifier cette ligne.
Est il possible de m'aider?

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
25
Sub macrocopier()
    Set cible = ThisWorkbook
    Set base = Workbooks.Open(".....\extraction.xls")
    base.Activate
    With base
        ActiveSheet.Range("A3:A" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("A3")
        ActiveSheet.Range("B3:B" & ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("B3")
        ActiveSheet.Range("c3:c" & ActiveSheet.Range("c" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("c3")
        ActiveSheet.Range("i3:i" & ActiveSheet.Range("i" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("e3")
        ActiveSheet.Range("e3:e" & ActiveSheet.Range("e" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("i3")
        ActiveSheet.Range("f3:f" & ActiveSheet.Range("f" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("j3")
        ActiveSheet.Range("g3:g" & ActiveSheet.Range("g" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("k3")
        ActiveSheet.Range("j3:j" & ActiveSheet.Range("j" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("q3")
        ActiveSheet.Range("i3:i" & ActiveSheet.Range("i" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("s3")
        ActiveSheet.Range("k3:k" & ActiveSheet.Range("k" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("t3")
        ActiveSheet.Range("r3:r" & ActiveSheet.Range("r" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("u3")
        ActiveSheet.Range("s3:s" & ActiveSheet.Range("s" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("v3")
        ActiveSheet.Range("v3:v" & ActiveSheet.Range("v" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("w3")
        ActiveSheet.Range("y3:y" & ActiveSheet.Range("y" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("x3")
        ActiveSheet.Range("o3:o" & ActiveSheet.Range("o" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("ac3")
        ActiveSheet.Range("t3:t" & ActiveSheet.Range("t" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("ad3")
        ActiveSheet.Range("u3:u" & ActiveSheet.Range("u" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("af3")
    End With
End Sub

[Marc-L]

Bonjour. Deux possibilités selon le niveau en VBA :

• faire manuellement un Collage spécial tout en utilisant l'enregistreur de macros
• consulter directement l'aide VBA de la méthode PasteSpecial.

[problemeaide]

L'enregistreur de macro ne me donne pas de résultat sous cette forme.
Je souhaiterais conserver la syntaxe.

Ce n'est pas possible avec un .value ou un Copyspecial copy? enfin je ne sais pas.
J'ai des solutions trouvé dans des forums mais ils ne me conviennent pas vraiment.