Compter le Nbr de commentaire dans un autre classeur

Le 10/01/2014 à 12:08

Bonjour

Je suis à la recherche d’une fonction qui me permettrait de calculer :

- le nombre de commentaires sur une zone précise d’une feuille dans un classeur différent et correspondant à un commentaire précis.

Pour être plus clair, j’ai réalisé 2 classeurs d’exemple

Data (Là où sont les données avec les commentaires à compter)

Récapitulatif (Là ou je souhaite récupérer ces nombres de commentaires)

Si quelqu’un peut m’aider, merci d’avance

A+

14data.xlsx (9.65 Ko)

10recapitulatif.xlsx (8.46 Ko)

Le 10/01/2014 à 12:19

Il te suffit de faire une fonction toute bête

Function comptercommentaires(R as range, x as string, class as string) as integer
Dim nb as integer
Dim c as range
For each c in workbooks(class).R 'ou workbooks(class).range(R)
if Split(c.Comment.Text, Chr(10))(1) then
nb = nb+1
end if
next c
comptercommentaires=nb
end function

Il te suffira d'ouvrir tes deux classeurs et d'écrire dans une feuille

=comptercommentaires(B10:B50,"toto","Data.xlsx")

Pour avoir le nombre de commentaires dont le texte est toto dans B10:B50 de Data.xlsx

Non testé: vérifie la synthaxe des bornes de la boucle

Le 10/01/2014 à 13:39

Bonjour

Merci pour ton aide

J'ai suivi ton aide, mais j'arrive à une erreur de valeur.

Je suis surpris, car si le classeur est bien indiqué, le nom de la feuille ne l'est pas ??

A+

19recapitulatif.xlsm (14.20 Ko)

Le 10/01/2014 à 13:41

Bien vu:

Function comptercommentaires(R as range, x as string, class as string,feuille as string) as integer
Dim nb as integer
Dim c as range
For each c in workbooks(class).sheets(feuille).R 'ou workbooks(class).sheets(feuille).range(R)
if Split(workbooks(class).sheets(feuille).c.Comment.Text, Chr(10))(1) then
nb = nb+1
end if
next c
comptercommentaires=nb
end function

=comptercommentaires(B10:B50,"toto","Data.xlsx";"Feuil1")

Le 10/01/2014 à 13:54

Re,

J'ai fait la correction

Mais toujours erreur de valeur .

A+

Le 10/01/2014 à 14:11

J'aurais mieux fait de tester

Function comptercommentaires(R As String, x As String, class As String, feuille As String) As Integer
Dim nb As Integer
Dim c As Range
For Each c In Workbooks(class).Sheets(feuille).Range(R) 'ou workbooks(class).sheets(feuille).range(R)
If Not c.Comment Is Nothing Then
If Split(c.Comment.Text, Chr(10))(1) = x Then
nb = nb + 1
End If
End If
Next c
comptercommentaires = nb
End Function

=comptercommentaires("B6:E8";"Manquant";"Data.xlsx";"Données")

Le 10/01/2014 à 14:19

Re,

Pas mieux

Pour la formule, j'ai mis

=comptercommentaires(Data.xlsx!Zone1;"Manquant";"Data.xlsx";"Données")

Car si je mets B6;E8, il cherche dans le classeur en cours

Mais cela ne suffit pas.

A+

Le 10/01/2014 à 14:21

=comptercommentaires("B6:E8";"Manquant";"Data.xlsx";"Données")

A noter que les deux fichiers doivent être ouverts

Le 10/01/2014 à 14:25

Oui, les 2 classeurs sont bien ouverts

Le 10/01/2014 à 14:33

Marche parfaitement chez moi

Le 10/01/2014 à 15:40

Re,

Peux-tu m'envoyer tes 2 classeurs ?

J'ai sans soute fait une erreur quelque part

A+

Le 10/01/2014 à 15:53

Voilà

17recapitulatif.xlsm (15.89 Ko)

15data1.xlsx (10.08 Ko)

Le 10/01/2014 à 17:21

Re,

Incroyable, je viens de recopier la macro de ton classeur dans le mien, tes formules et cela ne fonctionne pas !

Je viens de l’intégrer dans mon classeur d’origine et cela fonctionne parfaitement

Je ne sais d’où peut venir mon erreur, j’aime bien savoir pourquoi, mais cela fait une heure que je cherche, alors tant pis. L’essentiel c’est que cela fonctionne.

J’avais quand même au départ commis une erreur dans ma formule, je n’avais pas l’adresse E6 :B8 entre guillemets.

Comment cela se fait-il que l’on doit mettre cette adresse entre guillemets ??

Je ne comprends pas ?

Une autre question, est-ce que tu pense que l’on peut utiliser ta fonction à l’intérieur d’une autre fonction ?

Je pense à SOMMEPROD ?

Merci

A+

Le 10/01/2014 à 17:25

bah ouais no souci

J'ai volontairement mis des guillemets pour la traiter comme un string mais c'est faisable avec des range aussi

Le 10/01/2014 à 17:38

Merci