Discussion :

[Ldm75]

Bonjour à tous,

Je cherche a supprimer tous les % dans une plage de donnée du feuille, via VBA.

Avez-vous une idée du code, je ne trouve rien qui fonctionne pour mon cas sur le Web.

D'avance merci

[Patrice740]

Bonjour,

Je cherche a supprimer tous les % dans une plage de donnée du feuille, via VBA.
Avez-vous une idée du code, je ne trouve rien qui fonctionne pour mon cas sur le Web.

Si ton cas est aussi particulier que ça, il faudrait que tu l'exposes avec beaucoup plus de détails.

[Ldm75]

Bonjour,

Si ton cas est aussi particulier que ça, il faudrait que tu l'exposes avec beaucoup plus de détails.

Bonjour Patrice,

Merci pour ton intérêt, voici plus de détail :

Actuellement je récupère des données d'un PDF pour les mettre au format Excel, pour ensuite travailler avec, mais lors du transfert je me retrouve avec des nombres suivi d'un % (car c'est des pourcentage, donc c'est logique), mais je ne peux pas faire par exemple la moyen de la colonne concernée, car Excel ne l'interprète pas comme un nombre mais un mot.
Résultat obtenu après conversion ,



But :
Lors du transfert des données du format PDF au XL, je voudrais via une Macro supprimer tous les % de toutes les cellules de la ligne 3 de la feuille 2. Que le pourcentage soit devant, au milieu ou a la fin…

J'espère avoir été plus claire.

[Patrice740]

Bonjour,

lors du transfert je me retrouve avec des nombres suivi d'un % (car c'est des pourcentage, donc c'est logique), mais je ne peux pas faire par exemple la moyen de la colonne concernée

Faire la moyenne de %, c'est un sacrilège mathématique !!!!

Pour rétablir les %, en temps que nombres, sur ta colonne :

Code VBA :

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

ActiveSheet.Range("AW2:AW10").Replace What:=".", Replacement:=",", LookAt:=xlPart

[Ldm75]

Cool merci, cela fonctionne parfaitement.
Merci Patrice.

Désolé pour le sacrilège mathématique

Voici le code final :

Code :

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

Worksheets("Data").Range("W2:W27").Replace What:="%", Replacement:="", LookAt:=xlPart

[Patrice740]

Mais là tu multiplies la valeur initiale par 100, alors qu'en remplaçant le point par la virgule, tu conserves la valeur initiale, tu peux alors changer le format de cellule pour afficher au format standard.

Pour éviter le sacrilège (la moyenne de % ne représente rien de réel ou d'imaginaire) on pondère le pourcentage de la quantité sur laquelle il s'applique, plus simplement dit, on divise la somme des dividendes par la somme des diviseurs.

[jerome.vaussenat]

Salut,

Pour compléter la réponse de Patrice740 (que je salut par un )

Si tes % ne sont pas considérés comme des combres, c'est surtout dû à la présence des ".".

En France le séparateur décimal c'est la ",".

D'ou son code qui remplace les "." par des ",".

J'ajoute que tu peux faire çà sans macro par un simple remplacer. Que tu trouves dans l'"onglet Accueil".

GG

[Ldm75]

Merci Jérôme pour cette précision, très très utile pour d'autre problème que je rencontre avec ce fichier…