Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

function simple if qui ne marche pas

micom59

XLDnaute Nouveau
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
 

micom59

XLDnaute Nouveau
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

XLDnaute Accro
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.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…