integrer dans la procedure !!!!!!!

Private Sub LettreEnChiffre()
For Each c In Selection
x = Val(c)
Range(c.Address) = CDbl(x)
Next
End Sub

Comme puis je intégrer cette macro
dans cette procédure ?

MERCI

For x = 0 To UBound(Data)
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

bonjour J&B,

est ce que c'est les items de Data qu'il faut transformer en chiffre ?

isabelle

J&B a écrit :

Private Sub LettreEnChiffre()
For Each c In Selection
x = Val(c)
Range(c.Address) = CDbl(x)
Next
End Sub

Comme puis je intégrer cette macro
dans cette procédure ?

MERCI

For x = 0 To UBound(Data)
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

Oui
Les data mais uniquement les 2 premiers car les autres sont des dates

merci


"isabelle" <i@v> a écrit dans le message de news:
eHSTv%23FPJHA.1012@TK2MSFTNGP04.phx.gbl...

bonjour J&B,

est ce que c'est les items de Data qu'il faut transformer en chiffre ?

isabelle

J&B a écrit :

Private Sub LettreEnChiffre()
For Each c In Selection
x = Val(c)
Range(c.Address) = CDbl(x)
Next
End Sub

Comme puis je intégrer cette macro
dans cette procédure ?

MERCI

For x = 0 To UBound(Data)
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

bonjour J&B,

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

isabelle

J&B a écrit :

Oui
Les data mais uniquement les 2 premiers car les autres sont des dates

merci


"isabelle" <i@v> a écrit dans le message de news:
eHSTv%23FPJHA.1012@TK2MSFTNGP04.phx.gbl...

bonjour J&B,

est ce que c'est les items de Data qu'il faut transformer en chiffre ?

isabelle

J&B a écrit :

Private Sub LettreEnChiffre()
For Each c In Selection
x = Val(c)
Range(c.Address) = CDbl(x)
Next
End Sub

Comme puis je intégrer cette macro
dans cette procédure ?

MERCI

For x = 0 To UBound(Data)
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