Ajout résultat variable dans commentaire

[antiphot]

Bonjour à toutes et à tous (ou plutôt bonsoir vu l'heure)

Je me heurte au problème suivant:

Imaginons une boucle style for each qui vérifie si chaque cellule de la colonne A contient "x".
Si c'est le cas on va chercher la valeur offset(0,1) dans la cellule contigue de la colonne B.

Le but étant de reporter le total des occurences trouvées dans un commentaire que l'on crée
disons en D1.

Ma question: Comment mettre à jour le commentaire au fur à mesure du déroulement de la boucle ?

Merci par avance pour votre aide.
Cordialement
Philippe

 

[Compte Supprimé 979]

Re : Ajout résultat variable dans commentaire

Bonsoir Antiphot,

Ma question: Comment mettre à jour le commentaire au fur à mesure du déroulement de la boucle ?

En concatenant chaque occurence trouvée 😉

MyComment = MyComment & MyRange.offset(0,1)

Si ça peut t'aider 🙂

A+

 

[Catrice]

Re : Ajout résultat variable dans commentaire

Bonsoir,

voir l'exemple dans le fichier joint

Edit : Bonsoir Bruno. Tu as mieux compris que moi 😉

 

[ledzepfred]

Re : Ajout résultat variable dans commentaire

antiphot, bruno, catrice, le forum,

je n'ai pas compris la même chose que vous : j'ai cru comprendre que le commentaire devait renvoyer la somme des valeurs de la colonne B pour les cellules A contenant x

ce que j'ai traduit ainsi

Sub Macro1()
For Each C In Range("A1:A" & Range("A65536").End(xlUp).Row)
ref = ref + Application.WorksheetFunction.CountIf(C, "*x*")
Next
With Range("D1")
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:="" & ref & ""
End With
End Sub

Au passage, on peut peut-etre se passer de la boucle, non?

Antiphot a le choix...

A+

 

[antiphot]

Re : Ajout résultat variable dans commentaire

Désolé de revenir un peu tard sur ce post. Je viens de prendre connaissance des messages et la solution de BrunoM45 me convient parfaitement. Il est vrai qu'en le relisant je m'apercois que mon post était un peu ambigu.

Merci à tous pour vos propositions

Philippe