Microsoft 365 ContIf et myRange sur une feuille donnée

[youguybass]

Bonjour
J'ai un pb de fonctionnement de ma fonction CountIf.
Je voudrais être certain que ce contif se fasse bien sur ma Feuil6

Si je fait le myRange avec :
With Feuil6
Set myRange = Range(.Cells(1, 6), .Cells(3000, 6))
End With

Cela ne fonctionne pas, le Msgbox me renvoi la valeur 0

Si je fait le myRange avec
'Set myRange = Range("F1:F3000")
cela fonctionne, une valeur m'est renvoyée!

le code complet:

Dim NbreLigne As Integer, j As Integer
Dim myRange As Range
With Feuil6
'j = 6 'mettre le bon N° de colonne

'Set myRange = Range("F1:F3000")
Set myRange = Range(.Cells(1, 6), .Cells(1500, 6))
End With
'NbreLigne = Application.WorksheetFunction.CountIf(myRange, "OE")

MsgBox NbreLigne

End SUB[/CODE]

merci pour votre retour

Slts

 

[sylvanu]

Bonjour Youguybass,
Essayez cela :

Sub essai()
Dim NbreLigne As Integer, j As Integer
Dim myRange As Range
j = 6
With Feuil6
    Set myRange = .Range(.Cells(1, j), .Cells(1500, j))
End With
NbreLigne = Application.WorksheetFunction.CountIf(myRange, "OE")
MsgBox NbreLigne
End Sub

Je pense qu'il manquait un "." devant le range pour bien référencé la bonne feuille.

NB: Utilisez la balise </> pour le code, c'est plus lisible.

 

[youguybass]

Bonjour Youguybass,
Essayez cela :

Sub essai()
Dim NbreLigne As Integer, j As Integer
Dim myRange As Range
j = 6
With Feuil6
    Set myRange = .Range(.Cells(1, j), .Cells(1500, j))
End With
NbreLigne = Application.WorksheetFunction.CountIf(myRange, "OE")
MsgBox NbreLigne
End Sub

Je pense qu'il manquait un "." devant le range pour bien référencé la bonne feuille.

NB: Utilisez la balise </> pour le code, c'est plus lisible.

Parfait Merci Bcp
Bonne journée à vous

Slts