integrer dans la procedure !!!!!!!

Le
J&B
> 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
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
isabelle
Le #17720161
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




J&B
Le #17720611
Oui
Les data mais uniquement les 2 premiers car les autres sont des dates

merci


"isabelle" a écrit dans le message de news:
eHSTv%
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




isabelle
Le #17720801
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" a écrit dans le message de news:
eHSTv%
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








J&B
Le #17721521
Merci beaucoup

Je vais essayer de comprendre, pas si simple que ça finalement




"isabelle" a écrit dans le message de news:

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" a écrit dans le message de news:
eHSTv%
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









Publicité
Poster une réponse
Anonyme