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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion carlos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
Bonjour à tous,
merci pour vos propositions.
Le powerquery de Chris pourrait etre envisagé.
Idem pour celle de deadpool_cc
J'ai testé la mavcro de Job75 et une fois de plus la réponse est excellente : 2,16 secondes.
Merci à tous et bonne journée
 
Vote positif 0 Vote négatif
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
79
oguruma
oguruma
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
711
dysorthographie
dysorthographie
Y
  • Question Question
Microsoft 365 Suite de mise en forme onditionnelle en fonction dune liste déroulante Compter des valeurs >0.75
Réponses
3
Affichages
60
YGU1
Y
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
733
GClaire
G
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
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
517
GClaire
G
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
311
ali591
A
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
365
Dégé59
D
Neo Hyuga
  • Question Question
XL 2016 3 questions d'ordre generale
Réponses
14
Affichages
518
Neo Hyuga
Neo Hyuga
M
  • Question Question
Microsoft 365 Formule avec OU ?
Réponses
5
Affichages
404
moanin
M
P
  • Question Question
XL 2016 Optimisation du Nettoyage de Données : Remplacement Générique
Réponses
4
Affichages
509
sousou
sousou
E
  • Question 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
1 K
laurent950
laurent950
L
  • Résolu(e)
Microsoft 365 Filtrer une ListView sur un intervalle de valeurs avec ComboBox
Réponses
4
Affichages
668
Lyrix
L
N
  • Question Question
Microsoft 365 Fonction si avec une valeur différente de 1
Réponses
3
Affichages
395
NILS19
N
Lu76Fer
XLSM : Copie massive de ligne de données vers la grille
Réponses
3
Affichages
93
oguruma
oguruma
D
  • Résolu(e)
Microsoft 365 fonction de recherche multiple
Réponses
3
Affichages
522
dd_76
D
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
531
GClaire
G
Bernard_XLD
  • Résolu(e)
Microsoft 365 Reporter automatiquement le nombre de valeurs uniques d'un tableau structuré filtré par plusieurs segments.
Réponses
3
Affichages
806
chris
chris
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
511
GClaire
G
Retour