VAB....

Le
Clochard
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
Aimerais bien savoir.
Merci!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4987581
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
Le #4987301
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





Clochard
Le #4987281
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







isabelle
Le #4987211
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
Le #4987181
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





Clochard
Le #4987071
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







isabelle
Le #4987041
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


Clochard
Le #4986941
Le voici Isabelle... et merci d'y regarder....

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
Le #4986931
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


Clochard
Le #4986911
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





Publicité
Poster une réponse
Anonyme