For Each c In Cells.SpecialCells(xlCellTypeConstants)
If Not IsNumeric(c.Value) And Val(c.Value) <> 0 Then c.Value = Val(c.Value)
Next
hélas ne marche pas et votre fichier ouvert me donne des erreursBonsoir le fil,
Si vous regardez en C20 vous verrez que vous avez un "espace" après 3.9.
Le remplacement de point par virgule n'est pas suffisant.
Le problème c'est que ce n'est pas un espace standard ( code 32 ) mais un code 160.
Donc il faut copier le "caractère" après 3.9, puis faire le remplacement puis ensuite le remplacement . par ,
En PJ le fichier rectifié.
AddOn : le caractère ASCII 160 est un espace insécable.
On peut faire directement le remplacement en tapant dans Rechercher ALT+0160, il faut garder ALT appuyer quand on tape 0160, et ça marche !
Puis faire Remplacer . par ,
Il n'y a aucun point-virgule dans le fichier que tu as joint.toujours ce maudit point virgule
Il suffit de faire <Ctrl> + <H>, remplacer . par , cliquer sur "Remplacer tout" et le tour est joué : les points sont remplacés par des virgules.j'ai un fichier excel avec des pages ou tout fonctionne correctement
je fait des copiés collés de sites de Turf et la pas possible de remplacer des points par des virgules
fichier joint .
mon but est d'additionner 3 lignes B19+D19+F19 et C19+E19+G19Pour vérifier si ce sont bien des nombres il suffit d'ajouter 1 dans un tableau à part;
Regardez ce fichier. Tous les cellules grisées sont bien des nombres.
Si vous faites allusions aux #REF! à droite, c'est normal, les formules contiennent des #REF!
Je n'y ai pas toucher, je ne sais pas ce que vous vouliez faire. Ils font référence aux colonnes KLN qui sont vides.
=somme(B19;D19;F19) et =somme(C19;E19;G19)mon but est d'additionner 3 lignes B19+D19+F19 et C19+E19+G19