Discussion :

[alex955]

Bonjour,

J'ai écrit un code destiné à traiter des données dans un classeur excel, puis à les envoyer vers un autre classeur (depuis lequel on lance la procédure en fait).

Le problème est que dans mon classeur "calculateur" les données sont sous forme de nombre, format que je veux conserver, mais arrivent sous format texte dans l'autre classeur. D'ailleurs, excel me le signal en me disant "nombre stocké sous forme de texte".

Pour transférer les données d'une page à l'autre, je fais un copy/paste ciblé sur la case où je veux mes données. Fait étrange: si je donne un argument Paste = pastevalues à mon pastespecial, celui-ci crée une erreur, il n'arrive pas à le faire.

Voici le morceau de code qui sélectionne le bon endroit pour coller et qui colle les données

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
Sub paste()
 
    Dim ligne As Integer
    ligne = 11
    ajd = ThisWorkbook.Sheets("Activity report").Range("D5").Value
    Do While ligne < 60
        ladate = ThisWorkbook.Sheets("Soil temperatures").Range("B" + CStr(ligne)).Value
        If ladate = ajd Then
            ThisWorkbook.Sheets("Soil Temperatures").Range("D" + CStr(ligne)).PasteSpecial
            Exit Do
        Else
            ligne = ligne + 1
        End If
    Loop
End Sub

Toute suggestion est la bienvenue !
D'avance merci

Alex

[Gfacro]

Ligne 9, pourquoi un simple paste ne vous convient-il pas ?

[Menhir]

Le problème est que dans mon classeur "calculateur"

Ton code ne fait pas référence à ce classeur. Est-ce ThisWorkbook ?

les données sont sous forme de nombre, format que je veux conserver

Code :

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

            ThisWorkbook.Sheets("Soil Temperatures").Range("D" & ligne).PasteSpecial(xlPasteValuesAndNumberFormats)

Petit détail au passage : pour concaténer des String, utiliser "&", ce qui rend tes CStr inutiles.

Pour transférer les données d'une page à l'autre, je fais un copy/paste

Il n'y a pas de Copy dans ton code. Donc je ne vois pas comment le PasteSpecial qui suit pourrait fonctionner.

Fait étrange: si je donne un argument Paste = pastevalues à mon pastespecial, celui-ci crée une erreur, il n'arrive pas à le faire.

Pas si étrange quand on sait que le nom de cette constante est xlPasteValues.
https://msdn.microsoft.com/fr-fr/VBA...meration-excel

Ligne 9, pourquoi un simple paste ne vous convient-il pas ?

Sans doute parce que l'objet Range n'a pas de méthode Paste.

[Gfacro]

sheets l a non ?

Je pose une question sur un principe, à lui de creuser pour exploiter l idée et voir si elle est applicable pour lui.