J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom
de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ?
Mon fichier est sur le fil "INDEX" du 14-10
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ? Mon fichier est sur le fil "INDEX" du 14-10
merci
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom
de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ?
Mon fichier est sur le fil "INDEX" du 14-10
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ? Mon fichier est sur le fil "INDEX" du 14-10
merci
Clochard
Merci Isabelle de me répondre...
Ce sont les totaux Equipes= D3:F3; D8:F8; D15:f!5; D20:F20; D27:F27; D32:F32 ainsi de suite Equipes= le total par partie
Triples=G3; G8; G15; G20; G27; G32; etc... jusqu'à G56 Triples= total des trois parties en D:F
--
Clochard Aimerais bien savoir.... Merci!
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ? Mon fichier est sur le fil "INDEX" du 14-10
merci
Merci Isabelle de me répondre...
Ce sont les totaux
Equipes= D3:F3; D8:F8; D15:f!5; D20:F20; D27:F27; D32:F32 ainsi de suite
Equipes= le total par partie
Triples=G3; G8; G15; G20; G27; G32; etc... jusqu'à G56
Triples= total des trois parties en D:F
--
Clochard
Aimerais bien savoir....
Merci!
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom
de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ?
Mon fichier est sur le fil "INDEX" du 14-10
Ce sont les totaux Equipes= D3:F3; D8:F8; D15:f!5; D20:F20; D27:F27; D32:F32 ainsi de suite Equipes= le total par partie
Triples=G3; G8; G15; G20; G27; G32; etc... jusqu'à G56 Triples= total des trois parties en D:F
--
Clochard Aimerais bien savoir.... Merci!
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ? Mon fichier est sur le fil "INDEX" du 14-10
merci
Clochard
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr -- Clochard Aimerais bien savoir.... Merci!
Merci Isabelle de me répondre...
Ce sont les totaux Equipes= D3:F3; D8:F8; D15:f!5; D20:F20; D27:F27; D32:F32 ainsi de suite Equipes= le total par partie
Triples=G3; G8; G15; G20; G27; G32; etc... jusqu'à G56 Triples= total des trois parties en D:F
--
Clochard Aimerais bien savoir.... Merci!
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ? Mon fichier est sur le fil "INDEX" du 14-10
merci
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
--
Clochard
Aimerais bien savoir....
Merci!
Merci Isabelle de me répondre...
Ce sont les totaux
Equipes= D3:F3; D8:F8; D15:f!5; D20:F20; D27:F27; D32:F32 ainsi de suite
Equipes= le total par partie
Triples=G3; G8; G15; G20; G27; G32; etc... jusqu'à G56
Triples= total des trois parties en D:F
--
Clochard
Aimerais bien savoir....
Merci!
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom
de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrande = pg
End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ?
Mon fichier est sur le fil "INDEX" du 14-10
http://cjoint.com/?kptWe2t8pr -- Clochard Aimerais bien savoir.... Merci!
Merci Isabelle de me répondre...
Ce sont les totaux Equipes= D3:F3; D8:F8; D15:f!5; D20:F20; D27:F27; D32:F32 ainsi de suite Equipes= le total par partie
Triples=G3; G8; G15; G20; G27; G32; etc... jusqu'à G56 Triples= total des trois parties en D:F
--
Clochard Aimerais bien savoir.... Merci!
bonjour Clochard,
quel sont les plages equipes et Triples ?
isabelle
Bonjour,
J'ai réussi a mettre en place la suggestion de Garnote pour obtenir le nom de l'équipe avec le plus haut résultat en simple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Maintenant je tente de faire la même chose pour le résultat en triple
Function plusgrande(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrande = pg End Function
Mais ça ne décolle pas... d'après vous qu'est-ce qu'il me manque ? Mon fichier est sur le fil "INDEX" du 14-10
merci
isabelle
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples" et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples"
et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeE = pg
End Function
Function plusgrandeT(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeT = pg
End Function
il y avait un erreur d'orthographe sur le nom "Triples" et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
Clochard
Merci beaucoup Isabelle,
Ca fonctionne très bien... merci.
"il faut que le nom des fonction soient différents"
C'est là entre autre ou j'accrochais...
-- Clochard Merci!
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples" et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
Merci beaucoup Isabelle,
Ca fonctionne très bien... merci.
"il faut que le nom des fonction soient différents"
C'est là entre autre ou j'accrochais...
--
Clochard
Merci!
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples"
et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeE = pg
End Function
Function plusgrandeT(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeT = pg
End Function
"il faut que le nom des fonction soient différents"
C'est là entre autre ou j'accrochais...
-- Clochard Merci!
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples" et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
Clochard
Salut encore,
Pourquoi Isabelle, lorsque j'ouvre mon fichier ce sont des chiffres que je retrouve dans mes cellules où il doit y avoir des noms.
Aussitôt que j'entre un nouveau chiffre dans mon chiffrier les noms reviennent instantanément -- Clochard Aimerais bien savoir.... Merci!
Merci beaucoup Isabelle,
Ca fonctionne très bien... merci.
"il faut que le nom des fonction soient différents"
C'est là entre autre ou j'accrochais...
-- Clochard Merci!
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples" et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
Salut encore,
Pourquoi Isabelle, lorsque j'ouvre mon fichier ce sont des chiffres que je
retrouve dans mes cellules où il doit y avoir des noms.
Aussitôt que j'entre un nouveau chiffre dans mon chiffrier les noms
reviennent instantanément
--
Clochard
Aimerais bien savoir....
Merci!
Merci beaucoup Isabelle,
Ca fonctionne très bien... merci.
"il faut que le nom des fonction soient différents"
C'est là entre autre ou j'accrochais...
--
Clochard
Merci!
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples"
et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeE = pg
End Function
Function plusgrandeT(plage As Range) As String
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeT = pg
End Function
Pourquoi Isabelle, lorsque j'ouvre mon fichier ce sont des chiffres que je retrouve dans mes cellules où il doit y avoir des noms.
Aussitôt que j'entre un nouveau chiffre dans mon chiffrier les noms reviennent instantanément -- Clochard Aimerais bien savoir.... Merci!
Merci beaucoup Isabelle,
Ca fonctionne très bien... merci.
"il faut que le nom des fonction soient différents"
C'est là entre autre ou j'accrochais...
-- Clochard Merci!
bonjour Clochard,
il y avait un erreur d'orthographe sur le nom "Triples" et il faut que le nom des fonction soient différents
Function plusgrandeE(plage As Range) As String Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Voici Isabelle,
J'ai joint mon fichier
http://cjoint.com/?kptWe2t8pr
isabelle
peut tu me renvoyer ton fichier par ci-joint ?
isabelle
Salut encore,
Pourquoi Isabelle, lorsque j'ouvre mon fichier ce sont des chiffres que je retrouve dans mes cellules où il doit y avoir des noms.
Aussitôt que j'entre un nouveau chiffre dans mon chiffrier les noms reviennent instantanément
peut tu me renvoyer ton fichier par ci-joint ?
isabelle
Salut encore,
Pourquoi Isabelle, lorsque j'ouvre mon fichier ce sont des chiffres que je
retrouve dans mes cellules où il doit y avoir des noms.
Aussitôt que j'entre un nouveau chiffre dans mon chiffrier les noms
reviennent instantanément
http://cjoint.com/?kpxXMwYyet -- Clochard Aimerais bien savoir.... Merci!
peut tu me renvoyer ton fichier par ci-joint ?
isabelle
Salut encore,
Pourquoi Isabelle, lorsque j'ouvre mon fichier ce sont des chiffres que je retrouve dans mes cellules où il doit y avoir des noms.
Aussitôt que j'entre un nouveau chiffre dans mon chiffrier les noms reviennent instantanément
isabelle
bonjour Clochard,
ce phénomène ne c'est pas produit lorsque j'ai ouvert le fichier, un micro climat surement,
peut être peut tu essayer en ajout Application.Volatile
Function plusgrandeE(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Le voici Isabelle... et merci d'y regarder....
http://cjoint.com/?kpxXMwYyet
bonjour Clochard,
ce phénomène ne c'est pas produit lorsque j'ai ouvert le fichier, un micro climat surement,
peut être peut tu essayer en ajout Application.Volatile
Function plusgrandeE(plage As Range) As String
Application.Volatile
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeE = pg
End Function
Function plusgrandeT(plage As Range) As String
Application.Volatile
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeT = pg
End Function
ce phénomène ne c'est pas produit lorsque j'ai ouvert le fichier, un micro climat surement,
peut être peut tu essayer en ajout Application.Volatile
Function plusgrandeE(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Le voici Isabelle... et merci d'y regarder....
http://cjoint.com/?kpxXMwYyet
Clochard
Merci beaucoup Isabelle,
C'est fait...
J'ai bien hâte de pouvoir un peu mieux contrôler les macros... -- Clochard Merci!
bonjour Clochard,
ce phénomène ne c'est pas produit lorsque j'ai ouvert le fichier, un micro climat surement,
peut être peut tu essayer en ajout Application.Volatile
Function plusgrandeE(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function
isabelle
Le voici Isabelle... et merci d'y regarder....
http://cjoint.com/?kpxXMwYyet
Merci beaucoup Isabelle,
C'est fait...
J'ai bien hâte de pouvoir un peu mieux contrôler les macros...
--
Clochard
Merci!
bonjour Clochard,
ce phénomène ne c'est pas produit lorsque j'ai ouvert le fichier, un micro climat surement,
peut être peut tu essayer en ajout Application.Volatile
Function plusgrandeE(plage As Range) As String
Application.Volatile
Dim v As Range
Dim pg As String
For Each v In [equipes]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeE = pg
End Function
Function plusgrandeT(plage As Range) As String
Application.Volatile
Dim v As Range
Dim pg As String
For Each v In [Triples]
If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row)
Next v
plusgrandeT = pg
End Function
J'ai bien hâte de pouvoir un peu mieux contrôler les macros... -- Clochard Merci!
bonjour Clochard,
ce phénomène ne c'est pas produit lorsque j'ai ouvert le fichier, un micro climat surement,
peut être peut tu essayer en ajout Application.Volatile
Function plusgrandeE(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [equipes] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeE = pg End Function
Function plusgrandeT(plage As Range) As String Application.Volatile Dim v As Range Dim pg As String For Each v In [Triples] If v = plage.Value Then pg = pg & "-" & Range("B" & v.Row) Next v plusgrandeT = pg End Function