Bonjour à tous,
J'ai un souci après avoir extrait une base de donnée d'un serveur.
J'obtient un fichier excel avec beau nombre d'information enfin bref....
Problème :
Lorsque je fais la somme de plusieurs cellules comportant des chiffres, j'obtiens toujours zéro. Apparement, il interprète les cellules comme des valeurs nulles.
Si je regarde la propriété de la cellule, je vois que c'est du texte, donc je change et je mets en nombre, seulement, c'est toujours le même problème.
Si je fais "F2" puis "entrée", ca résoud tous mes problèmes... Sauf que j'ai plus de 2000 lignes et plusieurs fichiers.
J'ai donc voulu faire une petite macro et étant plutôt mauvais, je galère...
But de la macro :
Faire "F2" puis "entrée" de la ligne 2 à 2000 pour les colonnes 4 à 9
=> Shunter en utilisant la fonction replace !
Avancement macro : 100%
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub Macro1() Dim i, y, mv For y = 4 To 9 For i = 2 To 2300 mv = Replace(Cells(i, y), ",", ".") Cells(i, y).ClearContents Cells(i, y) = mv Next i Next y End Sub
Partager