VBA supprimer caractère dans une cellule aléatoire d'un range

[invite9fb11ebe]

Bonjour,
Je suis toujours sur ma macro ... j'en cauchemarde...

J'ai une feuille qui contient des données (valeurs en % au format x.xx, exemple: 0.42)
Simplement, dans certains cas, lorsque la valeur mesurée est proche de la limite de détection de l'appareil il y a un "~" devant la valeur, soit par exemple; ~0.122
Du coup, lorsque je veux faire des calculs avec mes valeurs, ce n'est pas possible avec les valeurs devant lesquelles il y a le "~"..

Est il possible de faire une sorte de "remplacer" sur toute la feuille, en remplaçant "~" par "" (rien).

Merci!
-----

[inviteeecca5b6]

Hello,

Tu peux le faire à la main avec wordpad, en utilisant la fonction remplacer.

Pour le faire automatiquement, tu peux utiliser la commande shell (disons que tes infos sont dans MonSuperFichier.txt)

sed 's/~//g' MonSuperFichier.txt > MonSuperNouveauFichier.txt

Le fichier MonSuperNouveauFichier.txt sera identique sans les ~

[invite9fb11ebe]

Salut,
j'utilise excel 2007

[inviteeecca5b6]

Il dit qu'il voit pas le rapport

[A voir en vidéo sur Futura]

[invite9fb11ebe]

Je ne comprends pas pourquoi tu parles de fichiers .txt..... désolé j'ai oublié de dire que j'étais débutant

[Spazi]

Public Sub Tilde()
    For Each c In Range("B1", "B7")
        c.Value = Replace(c.Value, "~", "")
    Next
End Sub

Vous changez le range pour ce qui vous correspond

[invite9fb11ebe]

Spazi je dois définir "c" en variable?
si oui quel type?
ni string ni range ne fonctionne

[invite2800a7c8]

Bonjour,
Je suis toujours sur ma macro ... j'en cauchemarde...

J'ai une feuille qui contient des données (valeurs en % au format x.xx, exemple: 0.42)
Simplement, dans certains cas, lorsque la valeur mesurée est proche de la limite de détection de l'appareil il y a un "~" devant la valeur, soit par exemple; ~0.122
Du coup, lorsque je veux faire des calculs avec mes valeurs, ce n'est pas possible avec les valeurs devant lesquelles il y a le "~"..

Est il possible de faire une sorte de "remplacer" sur toute la feuille, en remplaçant "~" par "" (rien).

Merci!

Salut,

Je ne sais pas avec quoi tu programmes,
Il faut mettre ta valeur dans une chaine de caractère, regarder si le premier caractère est un " ~ " Valeur 126 décimal ou 7E hexadécimal si oui diminuer la chaine de 1
Avec C ça ne devrait pas poser de PB, VBA non plus d'ailleurs

Cordialement


Cordialement

Ludwig

[invite9fb11ebe]

salut, je suis sous EXCEL VBA

[invite948b37db]

il y a un "~" devant la valeur, soit par exemple; ~0.122
Du coup, lorsque je veux faire des calculs avec mes valeurs, ce n'est pas possible avec les valeurs devant lesquelles il y a le "~"..

Pourquoi ne pas utiliser le Chercher-Remplacer d'Excel ?
https://support.office.com/fr-fr/art...f-fdb42f892e90

[invite9fb11ebe]

Cela ne fonctionne pas, il ne trouve aucune cellule contenant le caractere a chercher ....


ziiii.JPGziiii.JPG

[Spazi]

Spazi je dois définir "c" en variable?
si oui quel type?
ni string ni range ne fonctionne

Non, il n'y a pas besoin de définir c
Ma macro marche sur excel 2010, et je ne pense pas que 2007 n'est pas de "for each" donc, ça devrait marcher tel quel (en modifiant juste la plage de données)

[invite948b37db]

Cela ne fonctionne pas,

Ca fonctionne parfaitement avec Open Office Calc donc ça DOIT fonctionner avec XL !
Sinon par fonctions :
=SI(GAUCHE(A1;1)="~";DROITEB(A 1;NBCAR(A1)-1);A1)

[invite9fb11ebe]

En utilisant,

   For Each c In Range("B1", "B7")
        c.Value = Replace(c.Value, "~", "")
    Next

Il me trouve une erreur '13' incompatibilité de type

[invite9fb11ebe]

Ca fonctionne parfaitement avec Open Office Calc donc ça DOIT fonctionner avec XL !

J'ai mis un impr écran... ça veut pas

[invite0bbe92c0]

Il me trouve une erreur '13' incompatibilité de type

Mettre une variable intermédiaire pour voir si l'incompatibilité est dans l'affectation ou dans la récupération de la valeur.
Autre possibilité, essayer :

 c.Value = Replace(CStr(c.Value), "~", "")

[invite6486d7bd]

Lorsqu'on veut faire une opération sur les cellules du tableur Excel, il faut se poser la question de savoir si ce qu'on voit ... est bien ce que contient la cellule.
A la base, la cellule contient des octets, qui peuvent être considérés comme des caractères d'une chaine, ou faisant partie de la valeur d'une date, ou faisant partie de la valeur d'un entier, ou d'un nombre à virgule etc etc.
Si vous recherchez le caractère '~', et si la cellule est de type nombre à virgule, vous ne le trouverez pas.
Le '~' c'est ce qu'on voit (ce qui apparait lorsqu'on regarde le tableau).

Par exemple, une date contient en interne (format interne) un entier qui fournir le nombre de secondes écoulées depuis je ne sais quelle date). C'est un entier.
Mais vous pouvez le faire s'afficher sous la forme que vous voulez, du moment que le format de la cellule est de type Date.
Qui peut ensuite être affiché plus finement, puisque c'est une date, selon des paramètres suplémentaires, n'affichant par exemple que le jour, l'heure ou que sais-je.

Donc, concernant votre problème, on peut faire comme ça (il y a plusieurs méthodes possibles, mais il faut bien comprendre le format de chaque variable et cellule) : Si vous copiez préalablement la cellule contenant le signe ~ fictif vers une cellule à format chaine, vous aurez alors une chaine dans cette nouvelle cellule, dans laquelle vous pouvez détecter le caractère ~.
Vous pouvez alors l'enlever, pour recopier ensuite la chaine vers la cellule initiale, au format nombre à virgule (la conversion automatique peut se faire, si la chaine est convertible)

(Je ne pratique plus trop VBA donc j'espère n'avoir pas dit de bêtises, les spécialistes me corrigeront. )

[invite0bbe92c0]

Lorsqu'on veut faire une opération sur les cellules du tableur Excel, il faut se poser la question de savoir si ce qu'on voit ... est bien ce que contient la cellule.

Le problème n'est pas ce que contient la cellule mais l'inférence de type qui en résulte.

Et la propriété Value d'une cellule n'est pas une chaine mais un variant; donc pour l'exploiter comme une chaine, comme le réclame la fonction Replace, il fait le convertir.

je ne pratique pas le VBA mais a priori c'est ce qui me vient à l'esprit.

[invite9fb11ebe]

Génial!!!
Ca fonctionne comme ça,
j'ai ajouté une deuxieme ligne car il changeait le point en virgule, je récupère mon point et les formules fonctionnent derrière.
Merci à tous!!!

   For Each c In Range("B1", "B7")
         c.Value = Replace(CStr(c.Value), "~", "")
         c.Value = Replace(CStr(c.Value), ",", ".")
    Next