Discussion :

[guigui71]

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

[Chipss]

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

Code :

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

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

[guigui71]

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

[mercatog]

Code :

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

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

[MarcelG]

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 :

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

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 :

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

SpecialCells

Cordialement.

Marcel

[MarcelG]

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

[guigui71]

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