XL 2019 ContIf

[Fipat]

Bonjour,

pourriez-vous m'aider sur cette macro.
Le résultat n'est pas le bon.
La comptabilisation ne se fait pas.
Merci pour votre réponse.

Sub Compter()
Dim ValuesRange As Range
  Dim ResultCell As Range
  Dim CriteriaValue As String
  CriteriaValue = Range("C12")
With Sheets("Feuil1")
If WorksheetFunction.CountIf(Range("$B3:$K3"), True) = 0 Then
  Set ValuesRange = Range("G2:K6")
  Set ResultCell = Range("F12")
  MsgBox CriteriaValue
  ResultCell = WorksheetFunction.CountIf(ValuesRange, CriteriaValue)
  MsgBox ResultCell
  Else
  MsgBox "Erreur"
  End If
End With
End Sub

 

[Phil69970]

Bonjour Fipat, le forum

Pour moi, tu demandes à ta macro de :

1)Afficher la valeur C12 (en jaune) et F12 (en vert)
2)Compter combien de fois la valeur C12 (en jaune) se trouve dans la zone G2:K6 (en bleu)
3)Mets le résultat en F12 (en vert)

Donc elle fait le job décrit au dessus.

@Phil69970

 

[Fipat]

Pardon C12 est dans une autre feuille.
C'est la raison que je l'ai sortit du with.
Je travaille sur deux feuilles.
Feuille 1 = recherche feuille 2 résultat.
Merci pour votre réponse

 

[Phil69970]

Il faut peut être mettre l'adresse totale de la feuille ou se trouve C12.

CriteriaValue = Sheets("Feuil2") .Range("C12")

Sinon un fichier anonyme serait le bienvenu

Post modifié
@Phil69970

 

[Fipat]

Bonjour,

J'ai intégré la ligne ci-dessus mais c'est idem pas de retour.
Voici un exemple.
Merci pour votre réponse.

 

[Phil69970]

Fipat, le forum

Voila le fichier qui fonctionne chez moi

Si la solution te satisfait passe la en résolu.

Pour clôturer une demande :

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

www.excel-downloads.com

@Phil69970

 

[Fipat]

Merci, cela fonctionne aussi chez moi.
Quel est l'intérêt d'utiliser des [ ]au lieu des ( )

 

[Phil69970]

Aucun hormis le fait que c'est plus court

Exemple :
CriteriaValue = Sheets("Feuil2").Range("C12")
égal
CriteriaValue = Sheets("Feuil2").[C12]

@Phil69970

 

[mapomme]

Bonjour @Phil69970

Pour clôturer une demande :

Préfixe "Résolu" et "Marquer comme solution"

Voici la nouvelle façon de faire suite à la mise à jour du 22/12/2020 : https://www.excel-downloads.com/threads/forums-aux-questions.20052158/ (obsolète suite à la mise à jour du 22/12/2020) Bonjour, Les personnes posant des questions dans le forum souhaitent souvent pouvoir indiquer que les...

www.excel-downloads.com

[polémique]
Il est d'usage et de bon ton de ne pas solliciter le questionneur pour qu'il affiche 'Résolu' à sa question ou encore qu'il "like" une réponse.
Laissons le questionneur libre de faire ce qu'il veut. On ne recherche pas les "bons points". C'est à l'auteur de choisir de faire comme il l'entend.
[/polémique]

 

[Phil69970]

Bonjour @mapomme

Sur le principe tu as raison et mon but est juste d’éviter de regarder une/des demandes qui ont déjà obtenue une/des solutions satisfaisantes pour le demandeur, néanmoins, je prends bonne note de ta remarque.

Il y a quelque temps j'avais écrit ceci :

https://www.excel-downloads.com/thr...leau-d1-autre-feuille.20042609/#post-20309634
#Post 8

L'essentiel c'est de proposer plusieurs solutions et pistes différentes à celui qui pose une question à lui de prendre celle qui lui correspond le mieux voire un mixte entre plusieurs solutions et en retour de la donner à la communauté pour servir à un autre...
Je déplore aussi que certain ne se donne pas la peine de chercher 10 secondes la réponse à la question qu'il se pose (ici ou ailleurs)...

Cordialement
@Phil69970

 

[mapomme]

Re Phil69970,

OK.