Discussion :

[lovely2604]

Bonjour

Ci-joint le fichier tel que je le retrouve après un export
Vous constaterez que les colonnes D et E sont bien en format nombre mais en fait certaines cellules sont en texte (aligné a gauche) donc impossible de faire des calculs par lignes.
Je cherche une macro qui, lorsque je sélectionne une colonne ou la plage de données dans cette colonne, et que j'appuie ensuite sur mon bouton macro, elle me remette les cellule en nombres. Quitte a refaire la manip colonne par colonne car lors d'un autre export j'ai le même problème mais pas forcement dans les même colonnes.
En plus clair cette macro n'agit que sur ma sélection manuelle...
j'ai bien trouvé un code qui fait bien cette action fichier Word joint, mais il faut spécifier les noms de colonne et je ne sais pas comment la modifier.
Merci de venir à mon aide

[unparia]

Bonjour
Je n'ouvre et n'ouvrirai jamais de classeur tiers.
Il me faut donc essayer de t'aider "à l'aveuglette"

Je devine (mon petit doigt est en général efficace) que ces données ont été importées (quelle origine ? Je n'en sais rien), qu'elles contiennent comme séparateur de milliers ce qui parait être un espace, mais n'en est pas du tout un ... Moyennant quoi, aucun formatage de cellule n'y remédierait !

Au hasard donc, pour le cas où j'aurais bien deviné (aidé sans doute par la fréquence de ces "cas" de figure) :
Remplace tous les caractères de code 160 (espace insécable) de la colonne concernée par le caractère 32 (espace) et tout devrait aller pour le mieux dans le meilleur des mondes.

[lovely2604]

alors oui bien deviné, c'est un problème sur les nombres 3 211 et non les autres

par contre, je ne comprends pas trop la solution
remplace.... ou je trouve ces code ?

[unparia]

Dur de t'aider à l'aveuglette (sans ouvrir -pas question- ton classeur) et sans que tu n'aies les connaissances de base nécessaires

Je vais alors être obligé (par prudence) de suggérer la totale, à savoir :
si tu dois par exemple agir sur les données de la colonne B :
code macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim c As Range, toto As Integer
  For Each c In Range("B:B").SpecialCells(xlCellTypeConstants) ' car forcément des constantes, puisque importées
  toto = 0
  On Error Resume Next ' juste pour le cas où certaines données ne seraient pas cohérentes
    toto = Asc(Mid(c.Text, 2, 1))
    If toto = 160 Then
      c.Value = Val(Replace(c.Text, Chr(160), " "))
    End If
    On Error GoTo 0
  Next

Comme tu le vois, "aveuglette" = précautions tous azimuts (et lourdeurs induites) forcées

[lovely2604]

Un grand merci le code est bon est fonctionne quand je met la bonne lettre de colonne.....
Mais je voudrais ne pas avoir a dire si c'est B ou D ou F je voudrais la même chose juste en sélectionnant ma colonne et en lançant la macro
Est-ce possible ?

[unparia]

je voudrais la même chose juste en sélectionnant ma colonne et en lançant la macro
Est-ce possible ?

ben oui.

1) tu modifies ainsi la seule deuxième ligne de la macro ainsi :

Code :

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

1
2
3
4
 
'...
  For Each c In Selection.SpecialCells(xlCellTypeConstants) ' car forcément des constantes, puisque importées
' .....

2) tu sélectionnes la colonne entière puis lances la macro
Pardi.
N'oublie s'il te plait pas de libérer maintenant cette discussion en la marquant résolue.

[lovely2604]

Vraiment merci