S
SKOBLAR
Guest
Bonjour à tous,
pouvez vous jeter un coup d'oeil aux lignes ci dessous et me dire ce qui ne va pas. Sachant que je veux que le programme ecrive une annotation a coté de la cellule des que, dans une colonne, les chiffres passent de positif à negatif et inversement.
Attention peut etre dangereux pour des pros de VBA, en effet le niveau est deplorable.
Merci.
Dim stcm As Range
Dim soustract As Range
Set stcm = Sheets('Sheet1').Range('H4:H3000')
For Each soustract In stcm
If TypeName(soustract) <> 'long' Then GoTo prochain
If soustract.Value > 0 And soustract.Offset(-1, 0) < 0 Then soustract.offset(0, 1).Value = 'positif'
If soustract < 0 And soustract.Offset(-1, 0) > 0 Then soustract.offset(0, 1).Value = 'negatif'
prochain:
Next soustract
Qu'est ce que vous en dites ?
pouvez vous jeter un coup d'oeil aux lignes ci dessous et me dire ce qui ne va pas. Sachant que je veux que le programme ecrive une annotation a coté de la cellule des que, dans une colonne, les chiffres passent de positif à negatif et inversement.
Attention peut etre dangereux pour des pros de VBA, en effet le niveau est deplorable.
Merci.
Dim stcm As Range
Dim soustract As Range
Set stcm = Sheets('Sheet1').Range('H4:H3000')
For Each soustract In stcm
If TypeName(soustract) <> 'long' Then GoTo prochain
If soustract.Value > 0 And soustract.Offset(-1, 0) < 0 Then soustract.offset(0, 1).Value = 'positif'
If soustract < 0 And soustract.Offset(-1, 0) > 0 Then soustract.offset(0, 1).Value = 'negatif'
prochain:
Next soustract
Qu'est ce que vous en dites ?