Discussion :

[tarmin]

Bonjour,

j'ai un petit souci avec du code que je n'ai pas créé personnelement. Tout marchait très bien mais depuis peu au lieu de sélectionner la colonne A il sélectionne également la colonne B. Je ne comprend pas pourquoi (le code n'a jamais été modifié) ! Voici l'extrait de code qui pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

Je ne sais pas si quelqu'un aurait une idée du problème ? Je pense que je pourrait résoudre le problème en sélectionnant toute la colonne A avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A":"A").select

Mais je ne sais pas ce que cela pourrait engendrer...

Merci du coup de pouce.

[AlainTech]

Pourquoi tous ces Select et Selection?
Supprime les 2 premières lignes et commence la ligne de conversion comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

[tarmin]

Je ne sais pas... Je ne suis pas un pro, j'ai fait un peu de VBA à gauche à droite mais rien de sorcier... Et là vu que ce n'est pas moi qui l'ai créé, je ne sais pas vraiment quoi changer...

Je vais essayer votre proposition. Merci

[tarmin]

L'avantage (si c'en est un) avec le code existant c'est qu'il ne sélectionne uniquement les cellules non vide contrairement à

Columns(1).select

[AlainTech]

Si tu tiens absolument à ne traiter que les cellules non vides:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range([A1],Cells(Cells.SpecialCells(XlLastCell).Row, 1)).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

Mais je doute d'un quelconque gain en vitesse d'exécution...

[tarmin]

Merci bien pour vos conseil. Mais concernant le code de base savez-vous pourquoi il sélectionne les cellules non-vide de A et B alors qu'auparavant il prennait uniquement la colonne A ?

Merci encore

[AlainTech]

A cause de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SpecialCells(xlLastCell)

Probablement qu'il y a une cellule modifiée dans ta colonne B.

Essaye de supprimer (pas effacer) ta colonne B, puis sauve le classeur et essaye ton ancien code...

Ceci dit, il vaut toujours mieux éviter les Select et autres Activate.

[ouskel'n'or]

Tu n'aurais pas fusionné des cellules entre tes versions 1 et 2 de ton fichier ?
A tout hasard

[tarmin]

Alors pour répondre à la dernière remarque non et pour l'avant dernière, j'ai essayé et ça marche une fois mais après ça recommence...

[AlainTech]

Normal, si tu modifies une ou des cellules de la colonne B.

[tarmin]

Ce que j'ai peut-être oublié de dire c'est que la conversion ce fait à partir d'un fichier .csv... Je ne sais pas si ça à une influence ?

Par conséquent à chaque fois que je lance ma macro, elle ouvre ce fichier .csv pour la convertir mais dans ce document il n'y a rien dans la colonne B (il a beaucoup de données mais uniquement dans la colonne A).

Et quand je remplace par le code que l'on ma donné plus haut. Il y a un message qui me demande si je veux remplacer le contenu des cellules de destination...

[ouskel'n'or]

Ce que j'ai peut-être oublié de dire c'est que la conversion ce fait à partir d'un fichier .csv... Je ne sais pas si ça à une influence ?

C'est un gag ou tu nous testes ?
Tu ne pouvais pas le dire plus tôt ? Ouvre ton csv comme un fichier texte (word, notepad, wordpad) et dis-nous quel est le séparateur de données, point-vigule ou virgule.
A+

[tarmin]

désolé...

il s'agit de point-virgule

[ouskel'n'or]

Si c'est avec un pt virgule, alors tu renommes ton fichier.csv fichier.txt et tu l'ouvres comme un fichier texte avec séparateur point-virgule
Utilise Name pour le renommer.
Si tu veux la syntaxe malgré F1... tu dis