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

M
  • Question
Microsoft 365 Formule avec OU ?
Réponses
5
Affichages
297
moanin
M
P
  • Question
XL 2016 Optimisation du Nettoyage de Données : Remplacement Générique
Réponses
4
Affichages
322
sousou
sousou
Neo Hyuga
  • Question
XL 2016 3 questions d'ordre generale
Réponses
14
Affichages
287
Neo Hyuga
Neo Hyuga
G
  • Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
457
GClaire
G
cp4
  • Résolu(e)
XL 2010 Déterminer disponibilité de place
2 3
Réponses
33
Affichages
2 K
Tophe2
T
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
395
Lyrix
L
N
  • Question
Microsoft 365 Fonction si avec une valeur différente de 1
Réponses
3
Affichages
234
NILS19
N
D
  • Résolu(e)
Microsoft 365 fonction de recherche multiple
Réponses
3
Affichages
298
dd_76
D
J
  • Question
Microsoft 365 affiché une valeur texte dans un cellule
Réponses
1
Affichages
574
Gen Rose
Gen Rose
F
  • Résolu(e)
XL 2019 Power query - remplacer une chaîne de caractère par une autre
Réponses
5
Affichages
725
Flx1er
F

Membres actuellement en ligne

18 membres et 438 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
312 864
Messages
2 093 013
Membres
105 604
dernier inscrit
ugooooooooooo31