Discussion :

[docjo]

Bonjour à tous

Je rage de buter sur une chose aussi simple: je veux compter les occurences dans des plages de cellules et avertir l'utilisateur, mais le débogueur se déclenche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If WorksheetFunction.CountIf(Range("B2:B7,B10,B10:B20,B23:B33"), Sheets("Liste").Range("H2")) > 2 Then
MsgBox "Cette personne travaille déjà suffisamment aujourd'hui!", vbCritical
    ActiveCell.FormulaR1C1 = ""
End If

Je ne vois pas le problème. Quelqu'un peut-il m'aider ?

merci d'avance

[Pierre Fauconnier]

Bonjour

Cela ne fonctionne pas pour la même raison que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=nb.si(B2:B7;B10:B20;B23:B33;liste!H2)

ne fonctionne pas. Tu ne peux utiliser NB.SI que sur une plage qui ne contient qu'une seule zone... VBA ne déroge pas à cette règle.
Tu dois éclater ton test en autant de lignes que tu as de plages rectangulaires et additionner les résultats.

[docjo]

Merci pour la réponse. dans mes recherches, j'ai trouvé des fonctions permettant de le faire. Mais effectivement, j'ai choisi l'éclatement et plus particulièrement la soustraction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If (WorksheetFunction.CountIf(Range("B2:B33"), Sheets("Liste").Range("H2")) -  WorksheetFunction.CountIf(Range("B8:B9"), Sheets("Liste").Range("H2")) -WorksheetFunction.CountIf(Range("B21:B22"), Sheets("Liste").Range("H2"))) > 2 Then
MsgBox "Cette personne travaille déjà suffisamment aujourd'hui!", vbCritical
    ActiveCell.FormulaR1C1 = ""
End If

Merci encore pour la réponse

[Pierre Fauconnier]

Personnellement, je ne connais de fonctions natives d'Excel qui permettent de réaliser cette recherche. Si tu as de l'info là-dessus, ce sera gentil de nous la communiquer.

On peut bien entendu créer des fonctions perso, et alors, bien entendu, tout ou presque est possible et envisageable.