function simple if qui ne marche pas

[micom59]

Bonjour, j'execute une function toute simple avec un if mais celle-ci ne marche pas. le s retourné étant toujours = 0

Public Function createl()
Dim s As Integer
s = 0
For j = 2 To Workbooks("test").Worksheets("parametre").Range("B1").Value
nom = Workbooks("test").Worksheets("journalier").Range("A" & j).Value
chemintel = "C:\prive\Stats\sauvegarde\" & nom
Workbooks.Open (chemintel)

For i = 2 To 2000
Workbooks(nom).Worksheets(nom).Range("C" & i).Activate
MsgBox (ActiveCell.Value)
If Cells(i, 3).Value = "Telephone" Then

s = s + 1

End If

Next i

ActiveWorkbook.Close
MsgBox (s)
Next j

End Function

s reste = 0 alors que l'activecellvalue me retourne pourtant bien des msgbox avec le mot Telephone.

Merci pour vos réponses,
Cordialement,

Briet Mickaël

 

[RENAUDER]

Re : function simple if qui ne marche pas

Bonjour,

Sans exemple ce n'est pas facile.
Essaies un Public s As Integer (en dehors de la fonction) à la place du Dim s As Integer

 

[micom59]

Re : function simple if qui ne marche pas

Merci pour ta réponse Renauder, mais le s est toujours = 0, je ne vois aps ce que je pourrais te dire de plus pour te mettre sur la piste..
J'ai essayé aussi avec activecell.value mais même résultat

 

[Raja]

Re : function simple if qui ne marche pas

Bonjour, Salut Renauder,

Sans ton fichier impossible pour nous de tester ta macro. Car la syntaxe de macro a l'air correcte. Mais on ne peut pas travailler dans le vide.

 

[micom59]

Re : function simple if qui ne marche pas

oui je comprends mais je ne peux mettre en ligne les fichiers sur lesquels je fais des tests, contraire au réglement de la boite.