Programme VBA ne marche pas

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 ?
 
S

SKOBLAR

Guest
zippé ça marchera tout de suite mieux [file name=VBA_20050916110115.zip size=8909]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/VBA_20050916110115.zip[/file]
 

Pièces jointes

  • VBA_20050916110115.zip
    8.7 KB · Affichages: 12

PascalXLD

XLDnaute Barbatruc
Modérateur
Re

Cela repond-t-il à ton attente ???

[file name=VBA_20050916113555.zip size=9729]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/VBA_20050916113555.zip[/file]
 

Pièces jointes

  • VBA_20050916113555.zip
    9.5 KB · Affichages: 16