XL 2019 Remplacement de valeurs tres long avec grosse base de données

C

carlos

XLDnaute Impliqué
Supporter XLD
Bonjour,
J'ai une feuille excel avec 25 000 lignes et environ 60 colonnes.
Il y a 2 soucis dans cette base :
1 - Les valeurs sont écrites avec un point au lieu d'une virgule.
2 - Beaucoup de cellule ont des nombres en format TEXTE.

Auriez vous une solution rapide sous vba pour remplacer les . en , et les nombre-texte en nombre.
Merci et bonne journée
 
Solution
job75
Bonjour le forum,

Téléchargez le fichier déposé sur cjoint.com :

https://www.cjoint.com/c/NFehaWhtEP7

et lancez la macro :
VB: 
Sub Conversion()
Dim t, ds$, tablo, ub%, i&, j%, x$
t = Timer
ds = Application.DecimalSeparator
With [A1:BH25000] 'à adapter
    tablo = .Formula 'au cas où il y aurait des formules
    ub = UBound(tablo, 2)
    For i = 1 To UBound(tablo)
        For j = 1 To ub
            x = Replace(tablo(i, j), ".", ds)
            If IsNumeric(x) Then tablo(i, j) = CDbl(x) 'conversion
    Next j, i
    .Value = tablo 'restitution
End With
MsgBox Timer - t
End Sub
Chez moi elle s'exécute en 2,6 secondes.

A+
Trier par date Trier par votes
C

carlos

XLDnaute Impliqué
Supporter XLD
Bonjour Chris,
Je te remercie pour cet import et modification des données à partir d'une adresse de fichier.
Je suis étonné, car je ne vois aucun code. Et ca marche.
L'import se fait bien mais qu'à partir de la ligne 3. Sans les titres dse 2 premières lignes.pourquoi?
Merci beaucoup
 
Vote positif 0 Vote négatif

Discussions similaires

Captain NRJ
  • Question
XL 2016 Detection Format
Réponses
8
Affichages
622
crocrocro
C
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
M
  • Question
Microsoft 365 Formule avec OU ?
Réponses
5
Affichages
384
moanin
M
J
  • Résolu(e)
Microsoft 365 Problème de décompte avec PQ
Réponses
8
Affichages
312
José FELIX
J
P
  • Question
XL 2016 Optimisation du Nettoyage de Données : Remplacement Générique
Réponses
4
Affichages
472
sousou
sousou
Neo Hyuga
  • Question
XL 2016 3 questions d'ordre generale
Réponses
14
Affichages
480
Neo Hyuga
Neo Hyuga
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
236
Dégé59
D
G
  • Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
686
GClaire
G
E
  • Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
800
laurent950
laurent950
cp4
  • Résolu(e)
XL 2010 Déterminer disponibilité de place
2 3
Réponses
33
Affichages
3 K
Tophe2
T

Membres actuellement en ligne

19 membres et 110 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 089
Messages
2 116 096
Membres
112 660
dernier inscrit
ceucri