Ajouter ",0000" après tout les nombres d'un fichier

Bonjour,

je veux bien boucler avec VBA sur un fichier et detecter si la valeur est un nombre , si oui ajouter ",0000" après le dernier chiffre

exp : si A2 = delta on fait rien et si P50 = 555 on transforme en 555,0000

merci d'avance

Bien cordialement

Bonjour,

Et si tu mettais un format de cellule : 0,0000

Il n'aura pas d'effet si la valeur n'est pas un nombre et fera afficher les nombres sous ce format !

Cordialement.

Bonsoir,

En fait tout est en format texte et il faut garder le format texte.

Donc il faut que je détecte si lavaleur dans la cellule vérifie lez conditions si oui rajouter la chaîne ",0000" a la fin

Merci

Si c'est du texte, c'est pas un nombre !

Tu devrais mettre un modèle de ton fichier pour qu'on puisse voir comment traiter de façon adéquate.

Bonsoir,

un essai :

si en A1 on a 5555 en format texte et en D1 la formule suivante : =SI(SIERREUR((CNUM(A1));FAUX);A1&",0000";A1)

Alors on aura 5555,0000 en format texte en D1

si en A1 on a DEV23 ou autre en format texte et en D1 la formule suivante : =SI(SIERREUR((CNUM(A1));FAUX);A1&",0000";A1)

Alors on aura DEV23 ou autre en format texte en D1

@ bientôt

LouReeD

En fait il suffirait de transformer cette formule en VBA et de l'appliquer à toutes les cellules concernées...

Un fichier pour illustrer le message du dessus

18loureed.xlsx (9.69 Ko)

Regardez il y a un "Aïe!!!!"

Mais dans l'ensemble cela fonctionne, non ?

@ bientôt

LouReeD

Bonjour,

parfait !

Merci

Bonjour,

merci pour votre merci

@ bientôt et sans oublier un fichier joint c'est plus clair pour les contributeurs

LouReeD

Rechercher des sujets similaires à "ajouter 0000 tout nombres fichier"