J'ai bien essayé la macro ci dessous pour mettre les 2 premiers champs au
format Nombre
Mais ça ne marche pas il reste toujours au format texte
Merci
> For x = 0 To UBound(Data)
> If x = 0 Or x = 1 Then
> v = Val(Data(x))
> Data(x) = CDbl(v)
> End If
> If Len(Data(x)) = 0 Then ouch = ouch + 1
> Next
> If ouch - 1 = UBound(Data) Then Exit Sub
>
> With Sheets("Data")
> Last_LGN = .Cells(65536, 1).End(xlUp).Row + 1
> .Range(.Cells(Last_LGN, 1), .Cells(Last_LGN, 6)).Value = Data
> End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JPMonnier
Bonsoir, Données/Convertir le fait standard Colonne par colonne -- Cordialement
"J&B" a écrit dans le message de news:490df607$0$2428$
Bonjour,
J'ai bien essayé la macro ci dessous pour mettre les 2 premiers champs au format Nombre Mais ça ne marche pas il reste toujours au format texte Merci
For x = 0 To UBound(Data) If x = 0 Or x = 1 Then v = Val(Data(x)) Data(x) = CDbl(v) End If If Len(Data(x)) = 0 Then ouch = ouch + 1 Next If ouch - 1 = UBound(Data) Then Exit Sub
With Sheets("Data") Last_LGN = .Cells(65536, 1).End(xlUp).Row + 1 .Range(.Cells(Last_LGN, 1), .Cells(Last_LGN, 6)).Value = Data End With
Bonsoir,
Données/Convertir le fait standard
Colonne par colonne
--
Cordialement
jpmonnier-nospam@neuf.fr
"J&B" <jb@free.fr> a écrit dans le message de
news:490df607$0$2428$426a74cc@news.free.fr...
Bonjour,
J'ai bien essayé la macro ci dessous pour mettre les 2 premiers champs au
format Nombre
Mais ça ne marche pas il reste toujours au format texte
Merci
For x = 0 To UBound(Data)
If x = 0 Or x = 1 Then
v = Val(Data(x))
Data(x) = CDbl(v)
End If
If Len(Data(x)) = 0 Then ouch = ouch + 1
Next
If ouch - 1 = UBound(Data) Then Exit Sub
With Sheets("Data")
Last_LGN = .Cells(65536, 1).End(xlUp).Row + 1
.Range(.Cells(Last_LGN, 1), .Cells(Last_LGN, 6)).Value = Data
End With
Bonsoir, Données/Convertir le fait standard Colonne par colonne -- Cordialement
"J&B" a écrit dans le message de news:490df607$0$2428$
Bonjour,
J'ai bien essayé la macro ci dessous pour mettre les 2 premiers champs au format Nombre Mais ça ne marche pas il reste toujours au format texte Merci
For x = 0 To UBound(Data) If x = 0 Or x = 1 Then v = Val(Data(x)) Data(x) = CDbl(v) End If If Len(Data(x)) = 0 Then ouch = ouch + 1 Next If ouch - 1 = UBound(Data) Then Exit Sub
With Sheets("Data") Last_LGN = .Cells(65536, 1).End(xlUp).Row + 1 .Range(.Cells(Last_LGN, 1), .Cells(Last_LGN, 6)).Value = Data End With