VBA: Copier une selection SQL en valeur vers une autre feuille.

[MJ13]

Bonjour à tous

J'ai un soucis de recopie en valeur de données récupérée en SQL qui sont formatées comme du texte.

Je n'arrive pas à copier les données en valeur vers une autre feuille.

Henry n'est pas très concluant 😱.

Comment faire (voir le fichier)?

Merci d'avance 🙂.

 

[Guest]

Re : VBA: Copier une selection SQL en valeur vers une autre feuille.

Bonjour Michel🙂,

Une façon parmi d'autres:

     With Sheets("Feuil3").Range("A2:B27")
            .FormulaR1C1 = "=Feuil2!RC*1"
            .Copy
            .PasteSpecial xlValues
            Application.CutCopyMode = False
    End With

Mais pourquoi ne pas multiplier par 1 tes champs dans la SQL?

A+

 

[MJ13]

Re : VBA: Copier une selection SQL en valeur vers une autre feuille.

Bonjour Ges

Merci pour le code. C'est très bien, simple (enfin pour toi), rapide et pas trop prise de tête 🙂.

J'ai fait ceci qui devrait fonctionner:

Sub test()
derl = ActiveSheet.Range("A65536").End(xlUp).Row
With Sheets("Feuil3").Range("A2:B" & derl)
            .FormulaR1C1 = "=" & ActiveSheet.Name & "!RC*1"
            .Copy
            .PasteSpecial xlValues
            Application.CutCopyMode = False
    End With

Mais pourquoi ne pas multiplier par 1 tes champs dans la SQL?

Merci, j'y avais jamais pensé. Il faudra que je teste 😱.

Bonne journée 🙂.