Format Nombre

Le
J&B
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JPMonnier
Le #17727811
Bonsoir,
Données/Convertir le fait standard
Colonne par colonne
--
Cordialement


"J&B" 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






Publicité
Poster une réponse
Anonyme