Annuler la correction automatique du format

gbcof · 15 Janvier 2008

Bonjour,

Voilà mon problème, je fais un remplacement avec une macro dans un fichier Excel.
Avant le remplacement, je fixe le format de ma zone à texte pour éviter les conversions automatiques en faisant : Selection.Numberformat = "@"
Mais lors du remplacement, Excel convertit automatiquement mes cellules en écriture scientifique. Or, je veux que ça reste du texte. En gros, une cellule contenant au final 2E1 doit afficher "2E1" et non 20...

Quelqu'un sait-il comment je peux empêcher cette conversion automatique?

Merci d'avance

skoobi · 15 Janvier 2008

Re : Annuler la correction automatique du format

Bonjour,

tu mets une condition avant de changer le format.
Remplace

Code:

Selection.Numberformat = "@"

par

Code:

For each cel In Selection
If IsNumeric(cel.Value) Then cel.Numberformat = "@"
Next

gbcof · 16 Janvier 2008

Re : Annuler la correction automatique du format

Rebonjour,

On ne s'est pas bien compris, je pense. Ta solution ne fonctionne pas, je pense que cela revient plus ou moins à faire ce que je faisais déjà. Je joins donc fichier qui je l'espère sera plus explicite que mes mots!

Excel_lent · 16 Janvier 2008

Re : Annuler la correction automatique du format

Salut gbcof, skoobi et aux autres.

Code à essayer :

Code:

Sub Remplacer1()
  Range(Cells(2, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1)).Select
  For Each cel In Selection
    Selection.Replace What:="toto", Replacement:="[COLOR=Red][B]'[/B][/COLOR]2E1"
  Next
End Sub

gbcof · 16 Janvier 2008

Re : Annuler la correction automatique du format

C'est parfait, ça marche! C'est tout bête!!! Merci du coup de main.

Annuler la correction automatique du format

gbcof

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

gbcof

XLDnaute Nouveau

Pièces jointes

Excel_lent

XLDnaute Impliqué

gbcof

XLDnaute Nouveau

Discussions similaires