Discussion :

[five1966]

Bonjour à tous

Dans mon code, après une recherche, je recopie les résultats de ma recherche dans une feuille excel

Code :

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

1
2
3
4
5
6
7
For i = 1 To 20
    Workbooks("nouvelle_facture.xlsm").Worksheets("resultatsderecherche").Cells(lignedutableau, i) = Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, i).Value
Next i
 
Workbooks("nouvelle_facture.xlsm").Worksheets("resultatsderecherche").Cells(lignedutableau, 21) = rrecherche.Row
Workbooks("nouvelle_facture.xlsm").Worksheets("resultatsderecherche").Cells(lignedutableau, 22) = Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, i).Interior.ColorIndex
Workbooks("nouvelle_facture.xlsm").Worksheets("resultatsderecherche").Cells(lignedutableau, 23) = Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, i).Font.ColorIndex

Tout se passe bien, sauf que je perds 2 décimales au passage.

En effet, dans les cellules que je recopie se trouve par exemple 0.0413€ et dans la feuille cible, je retrouve 0.0400€ (du fait que le format de la cellule est "# ##0.0000\€" dans les 2 feuilles & dans les 2 classeurs)

Que dois-je faire pour ne pas perdre ces décimales ?

Merci d'avance

[Gado2600]

Bonjour,

As-tu essayé d'appliquer un :

Code :

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

Workbooks("nouvelle_facture.xlsm").Worksheets("resultatsderecherche").Cells(lignedutableau, i).NumberFormat = "0.00;-0.00;0;@"

C'est peut-être FormatNumber. Je sais jamais dans quel sens c'est...

Il s'agit ici d'appliquer un personnalisé de ta cellule.

Petit conseil : utilises des variables pour tes objets. Je pense notamment à titre d'exemple :

Code :

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

1
2
3
Dim excelwkbook as workbook
set excelwkbook = workbooks("nouvelle_facture.xlsm")
excelwkbook.Worksheets("resultatsderecherche").Cells(lignedutableau, i).NumberFormat = "0.00;-0.00;0;@"

C'est également possible de définir des variables de type worksheets, range etc...

Cordialement,

[Menhir]

As-tu essayé de passer par l'intermédiaire d'une variable de type Double et de mettre un .Value dans la désignation de la destination ?

[five1966]

As-tu essayé de passer par l'intermédiaire d'une variable de type Double et de mettre un .Value dans la désignation de la destination ?

Bjr

J'ai défini mes variables en type Double

et lorsque je les rempli avec

Code :

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

serialsrecupel = Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, 8).Value

je reçois un message d'erreur incompatibilité de type.

je supposais que c'était à cause du point, j'ai donc essayé ceci :

Code :

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

serialsrecupel = Replace(Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, 8).Value, ".", ",")

mais même chose

la valeur de la cellule est 0.0413

j'ai aussi essayé :

Code :

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

serialsrecupel = CDbl(Replace(Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, 8).Value, ".", ","))

mais toujours le même message d'erreur.

ça doit être devant mon nez, mais je trouve pas


Pour finir, ceci fonctionne :

Code :

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

serialsrecupel = Format(Workbooks("serials2010.xlsx").Worksheets("serials").Cells(rrecherche.Row, 9).Value, "# ##0.0000")

Sans doute la cellule source contenant un format personnalisé ne lui plaisait pas

Merci à tous de m'avoir éclairé & mis sur la bonne piste

[Gado2600]

Bonjour,

Je pencherais plutôt sur une donnée de type string plutôt que numérique. Cela arrive sous Excel.

Cordialement,