Discussion :

[JaqLau]

Bonjour,
Le module ci-joint fonctionne bien, sauf en ce qui concerne la colonne H(format de cellules numérique 2 déc.) qui se retrouve en format texte dans la colonne de destination.
La Cde ActiveSheet.Paste est évidemment soit inadéquate soit incomplète....
Que faire Docteur ?



Il s'agit des 5 dernières lignes dans le tableau B après copie.
Cordialement
JL

[BENNASR]

bonjour

tu peux ajouter apres past

Code :

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

1
2
3
for i =2 to Cells(Rows.Count, 1).End(xlUp).Row
cells(i,"H") = cdbl(cells(i,"H")
next i

[JaqLau]

Merci beaucoup pour cette réponse rapide !
Toutefois j'ai "erreur de syntaxe sur la 2ème ligne ?
i à bien été défini As Long...

[BENNASR]

essayer de définir tes onglets

Code :

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

1
2
3
4
5
6
7
dim F as worksheets
dim derlig as long
set F= sheets("nomdetononglet")
derlig=F.Cells(Rows.Count, 1).End(xlUp).Row
for i =2 to derlig
F.cells(i,"H") = cdbl(F.cells(i,"H"))
next i

[JaqLau]

Désolé,



je ne voudrai pas que mon niveau élevé d'incompétence vous rebute ... je comprend ce que vous voulez me faire faire, mais la syntaxe vba me dépasse!
merci de votre patience.
JL
PS "Enregistrements" est le nom de la feuille.

[Philippe Tulliez]

Bonjour,
Vous déclarez la variable F comme un objet de collection ([B]Worksheets[/B]) et vous lui assignez un objet Sheet d'où l'erreur

Il y a lieu de déclarer F comme Worksheet et utiliser Worksheets("Nom de la feuille") et pas Sheets

[JaqLau]

Merci pour tout,
JL