Supprimer le 0 de devant

Bonjour à tous;

J'aimerai savoir comment faire pour supprimer un caractère dans une cellule.

ex : 02569875 --> je veux supprimer le 0 pour que sa me donne 2569875

voilà
Ma base de données comporte plus de 57000 lignes.

Merci de m'aider au plus vite, je ne sais pas du tout comment faire

Alors pour supprimer le 0 tu pourrais faire quelquechose de ce style! Meme si ce n'est pas forcement le mieux je pense!

Code:

---

1 2 3 4

If Mid(valeur_cellule,1,1)=0 Then nlle_val=Mid(valeur_cellule,2,Len(valeur_cellule)-1) End if

---

Sinon apres il faut faire une boucle sur l'ensemble des cellules que tu veux changer!!

Chipss

bonjour et merci pour ta réponse.

Cependant je ne comprends pas ton code

ou est ce que j'indique dans quelle colonne je veux travailler ?

et je pense faire une boucle for i = 1 to 57000

merci

Code:

---

1 2 3 4

Dim i As Long For i = 1 To 57000 If Range("G" & i).Value <> "" Then Range("G" & i).Value = Val(Range("G" & i).Value) Next i

---

Bonjour,

Je me permets
Il vaut mieux utiliser je pense la propriété SpecialCells.
Si tes cellules sont au format nombre '0#' en colonne 1

Code:

---

1 2 3 4 5 6

Public Sub essai() Dim CELL As Range For Each CELL In Columns(1).Cells.SpecialCells(xlCellTypeConstants) CELL.NumberFormat = "#" Next End Sub

---

Regarde l'aide en ligne de

Code:

---

SpecialCells

---

Cordialement.

Marcel

Pardon, Mercatog, nos 2 messages se sont télescopés.

Au demeurant, que penses-tu de l'utilisation de SpecialCells par rapport à une boucle?

Cordialement.

Marcel

bonjour marcel;

je ne connais pas trop VBA et je n'arrive pas à utliser ton code.

Mercatog, ton code marche parfaitement mais il est très lent !
N'y a t'il pas une facon de pourvoir excécuté le programme plus rapidemment ?

En tout cas merci de votre aide :)

Quel message d'erreur ? Sur quele ligne de code se place alors le débogueur ?
Dans quelles colonnes tes cellules sont-elles placées ?
Celles-ci sont elles au format nombre "0#" ou sont-elles en alphabétique : ('02356 est différent de 02356) ?

Merci pour ces précisions.

Cordialement

Marcel

salut

- ton code ne modifie visuellement que lorsque, après l'avoir exécuté, on entre puis sort de chaque cellule
- et je ne comprends pas l'utilité de ta boucle for next, que tu pourrais remplacer avantageusement par :

Code:

---

1 2 3

Dim plage As Range Set plage = Columns(1).Cells.SpecialCells(xlCellTypeConstants) plage.NumberFormat = "#"

---

mais avec le même inconvénient, bien sûr !

Citation:

---

Envoyé par babaothe

salut

- ton code ne modifie visuellement que lorsque, après l'avoir exécuté, on entre puis sort de chaque cellule
- et je ne comprends pas l'utilité de ta boucle for next, que tu pourrais remplacer avantageusement par :

Code:

---

1 2 3

Dim plage As Range Set plage = Columns(1).Cells.SpecialCells(xlCellTypeConstants) plage.NumberFormat = "#"

---

mais avec le même inconvénient, bien sûr !

---

>EDIT :
Voici ton code corrigé et complété pour une modification immédiate :

Code:

---

1 2 3 4 5

Dim plage As Range, T() Set plage = Columns(1).Cells.SpecialCells(xlCellTypeConstants) plage.NumberFormat = "#" T = plage.Value plage.Value = T()

---

Dans le même sens

Code:

---

1 2 3 4

With Range("G:G") .NumberFormat = "#" .Value = .Value End With

---

Bonsoir Baboathe,

Tou à fait. Autant traiter l'ensemble de la plage simultanément.
J'ai utilisé ton code, il fonctionne bien entendu.

Pour info, à quoi correspond la déclaration T() ainsi que les 2 dernières lignes de ton code.

Merci, je lirai ta réponse demain.

Cordialement.

Marcel

Citation:

---

Envoyé par mercatog

Dans le même sens

Code:

---

1 2 3 4

With Range("G:G") .NumberFormat = "#" .Value = .Value End With

---

---

J'aime beaucoup ton astuce, mercatog. :ccool:
Il ne reste à notre ami qu'à :
- ne traiter que jusqu'à la dernière ligne non vide
- inhiber l'affichage puis le restituer in fine
Pour réduire le temps de traitement.