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
Toute suggestion est la bienvenue !
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
D'avance merci
Alex
Partager