Pb format numérique suite import internet

[STEF67]

Bonjour le forum,
J'ai un soucis suite à import de données internet
Les chiffres importés et collés sous excel ne sont pas au format numérique Le seul moyen est de double cliquer sur la cellule et là oh miracle j'ai le bon format. (faire le test sur fichier joint)
Je ne comprends pas
QQ1 a t il l'explication et la soluce ? (j'ai plus d'un centaine de cellules à cliquer...infaisable!)
Merci de votre aide

[Tibo]

Salut,

Le plus simple :

tu tapes 1 dans une cellule libre,
tu fais un copier dessus,
tu sélectionnes ensuite les cellules à traiter
et tu fais collage spécial - multiplication

Ca devrait fonctionner

Essaye et dis nous

@+

[Octet]

Salut

Et en formattant les cellules de ton fichier Excel en numérique avant l'importation, ça fonctionne ?

[pierrejean]

bonjour STEF67

Salut Tibo

Salut Octet

avec une macro

[STEF67]

Bonjour à tous,
Tibo :ton astuce fonctionne
Octet : le changement de format est sans effet
pierrejean : ça marche (comme d'habitude avec toi)
Pour mon info peux tu me dire ce que signifie "CDbl"? et si au lieu de selection je veux mettre la plage A1:C6 comment l'intégrer ?
Encore un grand merci et longue vie à ce merveilleux forum

Sub test()
For Each cel In Selection
If IsNumeric(cel.Value) Then
cel.Value = CDbl(cel.Value)
End If
Next cel
End Sub

[criscris11]

Bonsoir Steph 67,
Voici ton fichier comme tu le désires : tu as juste à cliquer sur le bouton "RUN".
Bon test et bonne soirée.

[criscris11]

Désolé j'ai oublié de saluer pierre-jean et octet et de resaluer Tibo.
Milles excuses.
Concernant la dernière demande de STEPH67, à priori les données importéees sont toujours au même endroit donc j'ai repris la solution de Tibo par une macro simple.
Bonne soirée à tous.

[pierrejean]

bonjour a tous

Cdbl est la fonction de conversion qui a partir d'une expression chaine (au contenu numerique) sort un nombre

pour A1:C6:

Sub test()
For Each cel In Range("A1:C6")
If IsNumeric(cel.Value) Then
cel.Value = CDbl(cel.Value)
End If
Next cel
End Sub

[Temjeh]

Bonjour à tous

Autre solution tu sélectionne la colonne tu fait:

..données ..convertir ...Terminer


A+

Temjeh

[STEF67]

Merci à tous
Cordialement

[MJ13]

Bonjour à tous

autre solution,

sur chaque cellule: tu tapes F2 + enter

Voici une macro à adapter (cela fonctionne sur une colonne non vide).

Sub valide_F2()
'Stop
'ActiveCell.Select

'attente = 1: newHour = Hour(Now()): newMinute = Minute(Now()): newSecond = Second(Now()) + attente
'waitTime = TimeSerial(newHour, newMinute, newSecond): Application.Wait waitTime
'ActiveCell.Select
val_F2
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Text = "" Then End
valide_F2
End Sub

Sub val_F2()
SendKeys ("{F2}~"), True
End Sub