Programme VBA ne marche pas

[SKOBLAR]

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 ?

 

[PascalXLD]

Bonjour

essaies peut-être en remplaçant

If TypeName(soustract) <> 'long' Then GoTo prochain

par

if IsNumeric(soustract) then

et tu remplaces ton prochain: par End If

Bonne journée

 

[SKOBLAR]

Merci pour ce conseil,

a part ça rien n'est à redire sur ces lignes ? parce que la macro tourne sans bog mais rien ne s'inscrit tel qu'éspéré.

SKOBLAR

 

[PascalXLD]

Re

Le mieux c'est que tu envoies ton fichier avec juste les données de la colonne H et en J tu nous mets ce que tu espères voir dans la colonne I

 

[SKOBLAR]

OK, donc voici ci-joint le fichier, je voudrai que s'inscrive à coté de la cellule lorsque le chiffre passe de positif à negatif et inversement.

Si tu as le temps, vois ce que tu peux faire.

Merci.

 

[PascalXLD]

RE

Pas de fichier

Tiens un tutoriel pour joindre un fichier

Lien supprimé

 

[SKOBLAR]

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]

 

[PascalXLD]

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]

 

[SKOBLAR]

Cela repond parfaitement à mes attentes.

Merci beaucoup Pascal !!!!!!!!!!

SKOBLAR