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
574
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
356
moanin
M
P
  • Question
XL 2016 Optimisation du Nettoyage de Données : Remplacement Générique
Réponses
4
Affichages
420
sousou
sousou
Neo Hyuga
  • Question
XL 2016 3 questions d'ordre generale
Réponses
14
Affichages
433
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
117
Dégé59
D
G
  • Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
623
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
655
laurent950
laurent950
cp4
  • Résolu(e)
XL 2010 Déterminer disponibilité de place
2 3
Réponses
33
Affichages
3 K
Tophe2
T
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
550
Lyrix
L

Membres actuellement en ligne

16 membres et 321 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
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh