XL 2013 Erreur définie par l'application ou par l'objet :Application.WorksheetFunction.CountIf(

hemerode · 10 Avril 2022

Bonjour à tous,

Mon problème est que cette macro ne fonctionne que si la feuille "Feuil1" est active.

VB:

Dim Col_Status As Range

Set Col_Status = Sheets("Feuil1").Range("K2:K501")

For n = 0 To 10
    If Col_Status.Cells(n + 1, 1) = "EnCours" Then
    Debug.Print Application.WorksheetFunction.CountIf(Col_Status.Range(Cells(1, 1), Cells(1 + n, 1)), "EnCours")
    End If
Next n

Lorsque je change de feuille et j’exécute la macro, j'ai "erreur définie par l'application ou par l'objet".

Merci pour vos contribution.

Robert · 10 Avril 2022

Bonjour Hemerode, bonjour le forum,

Essaie comme ça :

VB:

Sub Macro1()
Dim O As Worksheet
Dim Col_Status As Range

Set O = Worksheets("Feuil1")
Set Col_Status = O.Range("K2:K501")

For n = 0 To 10
    If Col_Status.Cells(n + 1, 1) = "EnCours" Then
    Debug.Print Application.WorksheetFunction.CountIf(Col_Status.Range(O.Cells(1, 1), O.Cells(1 + n, 1)), "EnCours")
    End If
Next n
End Sub

Robert · 10 Avril 2022

Bonjour Hemerode, bonjour le forum,

Essaie comme ça :

VB:

Sub Macro1()
Dim O As Worksheet
Dim Col_Status As Range

Set O = Worksheets("Feuil1")
Set Col_Status = O.Range("K2:K501")

For n = 0 To 10
    If Col_Status.Cells(n + 1, 1) = "EnCours" Then
    Debug.Print Application.WorksheetFunction.CountIf(Col_Status.Range(O.Cells(1, 1), O.Cells(1 + n, 1)), "EnCours")
    End If
Next n
End Sub

hemerode · 10 Avril 2022

Robert à dit:

Bonjour Hemerode, bonjour le forum,

Essaie comme ça :

VB:

Sub Macro1()
Dim O As Worksheet
Dim Col_Status As Range

Set O = Worksheets("Feuil1")
Set Col_Status = O.Range("K2:K501")

For n = 0 To 10
    If Col_Status.Cells(n + 1, 1) = "EnCours" Then
    Debug.Print Application.WorksheetFunction.CountIf(Col_Status.Range(O.Cells(1, 1), O.Cells(1 + n, 1)), "EnCours")
    End If
Next n
End Sub

Merci Robert,
Ça fonctionne.

XL 2013 Erreur définie par l'application ou par l'objet :Application.WorksheetFunction.CountIf(

hemerode

XLDnaute Junior

Robert

Robert

XLDnaute Barbatruc

hemerode

XLDnaute Junior

Discussions similaires