[VBA] - Problème convertion données

Fermé

VBA beginner - Modifié par jordane45 le 28/06/2016 à 01:58
Mosca - 28 juin 2016 à 15:49

Bonjour,

Je souhaite convertir les données d'une colonne pour avoir des nombres (car au départ certains ont des "." séparateurs de milliers, des espaces avant le début du nombre etc bref).

En réalisant l'action : sélectionner la colonne / données / convertir les données / suivant / suivant / avancé (pour mettre "," comme séparateur de décimale et "." comme séparateur de milliers (bien que ça ne soit pas tjs le cas !) et en décochant la case sur "signe moins à la fin des nombres négatifs"), cela fonctionne !

En revanche, le code suivant, obtenu par enregistrement de cette macro exactement ne fonctionne plus en éxécutant la macro :

Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=",", ThousandsSeparator:=".", TrailingMinusNumbers:=False

J'ai regardé les paramètres que je pouvais ajouter dans le code mais je ne vois pas ...

Comme j'ai besoin de l'utiliser via Access, j'ai absolument besoin de pouvoir faire ça en VBA !!

Merci de m'aider !!

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

A voir également:

[VBA] - Problème convertion données
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
28 juin 2016 à 13:13

Bonjour,

Comme j'ai besoin de l'utiliser via Access
Boh oui!! Mais comment accedez-vous a ce fichier excel ??

VBA beginner
28 juin 2016 à 15:33

Via VBA aussi !!

Dim xlApp As Excel.Application
Dim FiletoOpen As String

' Créer un objet Excel
' (ce qui équivaut à démarrer Excel à distance)
Set xlApp = CreateObject("Excel.Application")

With xlApp
' Rendre Excel visible
.Visible = True

Dim vCell As Range

'récupération du nom et du chemin du fichier
FiletoOpen = .Application.GetOpenFilename("xls Files (*.), *.xls")

' Ouverture du fichier
.Workbooks.Open FiletoOpen

' DEBUT MISE EN FORME

Et c'est là ensuite que j'ai besoin de réaliser ma manoeuvre

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > VBA beginner
28 juin 2016 à 15:42

Re,

Si le fichier ne s'ouvre pas sur la bonne feuille, la definir
autrement mettez un point devant Columns vu que cela "appartient" au bloc Wtih/end with

Réponse 2 / 2

Mosca
28 juin 2016 à 15:49

Bonjour,

Faire d'abord le ménage, c'est-à-dire supprimer les espaces et les points
Ensuite mettre en forme

'supprimer les espaces
    Columns("C:C").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'supprimer les points
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
'mise en forme        
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=",", TrailingMinusNumbers:=False

Cordialement

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Exemple de base de données access

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters