Formule : Additionner du texte en fonction d'une valeure

Bonjour à tous,

Je cherche à compiler des cellules avec du texte en fonction d'une certaines valeurs

=> un peu comme un somme.si sauf que je recherche à compiler du texte et non pas des valeurs chiffrées.

Exemple, le résultat que je voudrais obtenir pour la cellule C15 est : commentaire 1commentaire 5commentaire 8

Merci d'avance

Bonjour,

pas très clair, mais avec un NB.SI.ENS() ou NB.SI() :

=NB.SI.ENS(A2:A9;B15;B2:B9;"?*")

@ + +

Bonjour,

voila une solution rapide :

R@chid,

Avec le NB.SI, cela me compterait le nombre d'occurrence du caractère. Mon objectif est de "compiler" les commentaires.

Minanse,

As tu fait juste un copié/collé? :p

je n'oserai pas =)

le code vba se situe sur la feuille 1

change le nom dans la case B15, les commentaire changerons d'elle même

Dsl j'avais pas vu que y'avait une macro, super merci c'est ce que je veux!

il faudra bien sûr l'adapter si vous changer le format de votre tableau le code fonctionne uniquement avec le fichier joint que vous nous avez donner

Il faudra juste changer le nom des Colonnes et des cellules dans la code VBA?

Code (avec les éléments à modifier si on veut appliquer la maccro à d'autres colonnes?)

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("B15")) Is Nothing Then

Dim res As String

res = ""

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

If Cells(i, 1) = Target Then

res = res & Cells(i, 2)

End If

Next i

Range("C15").Value = res

End If

End Sub

exactement =)

For i =2 To Range("A" & Rows.Count).End(xlUp).Row

si les information ne commence pas a partir de la ligne 2

Juste concernant le début du code (je voudrais effectuer la macro dans un autre classeur)

Private Sub Worksheet_Change(ByVal Target As Range)

=> comment la modifier pour l'adapter en fonction du nom de la feuille?