Outil conversion de données

[Novice avance !?]

bonjour,
en exportant un fichier excel d'una application je me suis aperçu que pour pouvoir des calculs il fallait que je convertisse chaque colonne une à une par l'outil de convertion dans Données > Convertir

Y at'il un moyen sous vba pour séléctionner la colonne A jusqu'à la colonne IV les une après les autres et les convertir automatiquement ?

Merci par avance😕

 

[Risleure]

Re : Outil conversion de données

Bonjour

Quelle conversion veux-tu faire ?
Est ce que toutes les colonnes sont à convertir avec le même profil de conversion?

Un petit fichier en PJ est le bienvenu

A te lire

 

[Novice avance !?]

Re : Outil conversion de données

bonjour,

conversion standard comme ci-dessous pour toute les colonnes


Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

 

[MJ13]

Re : Outil conversion de données

Bonjour à tous.

Le problème dans ton cas est que sous une version antérieure à Xl2007, si tu converti en plusieurs colonnes, tu vas vite arriver à plus de 255 colonnes d'où un problème.

Le mieux serait de de faire un extraction dans une autre feuille puis de recoller les cellules dans 1 voire dans plusieurs feuilles.

 

[Novice avance !?]

Re : Outil conversion de données

ok merci
mais imaginons que je souhaite le faire quand même sous vba colonne par colonne jusqu'à la colonne IV
quel serait le code vba pour dire :

séléctionner la colonne A puis la convertir
puis séléctionner la colonne B et la convertir
et ainsi de suite jusqu'à la colonne IV

?

Merci

 

[Risleure]

Re : Outil conversion de données

A tester à la place de
Columns("A:A").Select
mettre
Selection.CurrentRegion.Select
Sans fichier c'est difficile de vérifier
mais j'avias pas le souhait d'aller jusqu'a IV 😀

 

[MJ13]

Re : Outil conversion de données

Bonjour

Pour cela commence par enregistrer une macro avec une première colonne.
Puis une petite analyse du code devrait déjà dégrossir ton problème.

Dès que tu as avancé, joins le fichier de moins de 50 Ko sans données confidentielles.

 

[Novice avance !?]

Re : Outil conversion de données

merci à tous
j'ai résolu mon problème
ça marche


Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 255
Columns(i).Select
Selection.TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next i
End Sub


bonne journée