Bonjour JeanMarie, Pierrejean et le forum,
J'ai testé vos propositions,
Je ne comprend plus rien.
Aucune proposition n'a donné le resultat voulu.
J'ai testé:
For Each cel In Range('D1
' & Range('D65536').End(xlUp).Row)
On Error Resume Next
cel = CDbl(cel)
Next cel
On Error GoTo 0
Aussi
For Each cel In Range('D
')
On Error Resume Next
cel = CDbl(cel)
Next cel
On Error GoTo 0
Aussi
Columns('D
').Select
For Each cel In Selection
On Error Resume Next
cel = CDbl(cel)
Next cel
On Error GoTo 0
Aucune n'a fonctionné. La seule modif qui a transformé les cellules d'une manière exploitable est la 1ere proposition de PierreJean:
Dim cel As Range
For Each cel In Selection
On Error Resume Next
cel = CDbl(cel)
On Error GoTo 0
Next cel
@JeanMarie,
Ta proposition met le bon format. Il n'y a que la première colonne exploitable mais le rest inchageable malgré le bon format.
Je ne comprend plus rien et ce probleme d'importation de données et de formatage me fait perdre beaucoup de temps. J'espère avec votre aide, celle du forum et peut-etre si Thierry ou les specialistes des importations de données puissent m'aider à resoudre definitivement ce probleme. mes données d'origine proviennent de sources différentes et en format texte.
Merci d'avance de votre aide
Bien amicalement
KIM