Suppression de virgules
je viens de convertir un pdf en fichier excel, jusque la tout va bien...
sur le fichier de base, le séparateur de millier est le point, je souhaite supprimer le point pour avoir un chiffre sans le point , c'est a dire que 1,060 devienne 1060 et 7.200 soit 7200.
le problème est que lors de la suppression du point, excel me supprime aussi le 0 de fin et le chiffre devient 106 ou 72.
exemple de table a convertir:
4.750 5.110 5480 5.840 6.190 6.540 6.880
5.110 5.510 5.900 6.290 6.680 7.060 7.440
5.480 5.900 6.310 6.740 7.160 7.590 8.000
5.840 6.290 6.740 7.200 7.650 8.130 8.600
6.190 6.680 7.160 7.650 8.140 8.610 9.190
6.540 7.060 7.590 8.130 8.610 9.110 9.560
6.880 7.440 8.000 8.600 9.190 9.560 9.940
resultat
| 475 | 511 | 5480 | 584 | 619 | 654 | 688 |
| 511 | 551 | 59 | 629 | 668 | 706 | 744 |
| 548 | 59 | 631 | 674 | 716 | 759 | 8 |
| 584 | 629 | 674 | 72 | 765 | 813 | 86 |
| 619 | 668 | 716 | 765 | 814 | 861 | 919 |
| 654 | 706 | 759 | 813 | 861 | 911 | 956 |
| 688 | 744 | 8 | 86 | 919 | 956 | 994 |
Excel me supprime tous les "0" de fin de cellules...
il y a t'il un option a cocher ou décocher pour arriver a ce résultat?
merci pour votre aide.
Bonjour,
Tu as essayé de voir coté "Format de cellule" ?
Je pense que le problème vient de là ...
Bonjour et bienvenue,
Comment s'effectue la conversion du pdf ?
Cdlt.
voici un morceau de table
je ne sais pas comment se fait la transcription du pdf en excel, avec ce morceau de table peut être pourriez vous mieux comprendre.
Si on veut réparer le problème il suffit d'éditer chaque cellules et modifier manuellement
Où voir de quel manière tu importes les données de ton pdf
seul petit problème, j'ai des centaines de tables comme celle ci a transformer
Je viens de trouver ça : à essayer ....
ce qui donne : Afficher un zéro dans les cellules qui ont une valeur nulle
Salut,
Essaye ça
Private Sub retirerVirgules()
Dim Ws_source As Worksheet
Set Ws_source = ThisWorkbook.Worksheets("Feuil1")
Dim valeurFinale As String
For Each Cell In Ws_source.Range("A2:G8") ' Range à adapter en fonction de la zone où se situent tes données
valeurFinale = ""
arr = Split(Cell.Value, ",")
For i = LBound(arr, 1) To UBound(arr, 1)
If i = UBound(arr, 1) Then
Select Case Len(arr(i))
Case 1
valeurFinale = valeurFinale & (arr(i) * 100)
Case 2
If arr(i) < 10 Then
valeurFinale = valeurFinale & "0" & (arr(i) * 10)
Else
valeurFinale = valeurFinale & (arr(i) * 10)
End If
Case 3
valeurFinale = valeurFinale & (arr(i) * 1)
End Select
Else
valeurFinale = valeurFinale & arr(i)
End If
Next i
MsgBox valeurFinale
Next Cell
End SubBibu
Bonjour Yannickbia, bibu
Je propose le code suivant qui me semble plus léger
Private Sub retirerVirgules2()
Dim Ws_source As Worksheet
Set Ws_source = ThisWorkbook.Worksheets("Feuil1")
Dim Cell As Range
Dim sText As String
For Each Cell In Ws_source.Range("A2:G8") ' Range à adapter en fonction de la zone où se situent tes données
sText = Replace(Cell.Text, ",", "")
Cell.NumberFormat = "@"
Cell.Value = sText
Next Cell
End SubCdlt