Re : Pb format numérique suite import internet
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