Bonjour a tous bonjour GMB.
Dans la V6 qui recopie bien en numérique mais pas les centimes voici la ligne de code :
For j = 1 To 6
colA = Choose(j, 2, 5, 8, 6, 7, 10)
colB = Choose(j, 1, 2, 3, 4, 5, 6)
If j = 3 Then
tabloR(colB - 1, k) = DateValue(tablo(ln - 8, colA - 1)) * 1
ElseIf j = 6 Then
tabloR(colB - 1, k) = IIf(tablo(ln - 8, colA - 1) = "", "", tablo(ln - 8, colA - 1))
Else
tabloR(colB - 1, k) = IIf(IsNumeric(tablo(ln - 8, colA - 1)), _
Val(tablo(ln - 8, colA - 1)), tablo(ln - 8, colA - 1))
End If
Dans la V7 qui recopie bien les centimes mais pas en numérique voici la ligne de code :
For j = 1 To 6
colA = Choose(j, 2, 5, 8, 6, 7, 10)
colB = Choose(j, 1, 2, 3, 4, 5, 6)
If j = 3 Then
tabloR(colB - 1, k) = DateValue(tablo(ln - 8, colA - 1)) * 1
ElseIf j = 6 Then
tabloR(colB - 1, k) = IIf(tablo(ln - 8, colA - 1) = "", "", tablo(ln - 8, colA - 1))
Else
tabloR(colB - 1, k) = tablo(ln - 8, colA - 1)
End If
Comment faire un mixte des deux pour avoir la recopie des centimes et en numérique stp?
Merciiii