Formule qui récupère 1 donnée d'1 autre feuille avec résultat ss forme ?/?

Bonsoir,

Je cherche une formule qui semble simple mais je galère.

J'ai besoin en cellule A3 que le chiffre, 16 dans ce cas-là, s'accompagne du résultat de la feuille "Médailles Hommes", soit 38 en A3 sur cette feuille.

Donc en A3, j'aurai au final ==> 16/38

Formule dans la feuille A3 des femmes =

=NB.SI.ENS(Tabel1[E_1];">0";Tabel1[Sexe];$I4)

Formule dans la feuille A3 des hommes =

=NB.SI.ENS(Tabel1[E_1];">0";Tabel1[Sexe];$I4)

Vous savez faire ?

Sur le bouton "Débloquer ou Quitter", tapez vodoraix pour tt débloquer.

Et mot de passe pour débloquer les feuilles ==> seb

Merci beaucoup

Bonne soirée...

Bonsoir,

un essai : =NB.SI.ENS(Tabel1[E_1];">0";Tabel1[Sexe];"F")&"/"&NB.SI.ENS(Tabel1[E_1];">0";Tabel1[Sexe];"H") sur la feuille Femme.

@ bientôt

LouReeD

Bonsoir LouReeD,

C'est parfait, merci beaucoup. Jn'avais pas pensé aux "H" & "F" dans la formule !!!!!!!!!!!!

Nickel

Penses-tu qu'on puisse avoir le 16 en rose et le 38 en bleu. Pareil que dans l'entête ?

rose = #FF00FF

bleu = #0000FF

Pas trop compliqué à faire ?

En tout cas merci bcp

Bonne soirée

Bonsoir,

par VBA, mais cela devient "lourd", non ?
Sinon découpage de la colonne en trois : une en rose avec le chiffre des femmes, une en noir avec le "/" et la troisième avec le bleu et le chiffre des hommes.

@ bientôt

LouReeD

1 colonne en 3, c'est pas possible par rapport au code mais c'est une bonne idée

Merci pour tout

Bonne nuit

Bonsoir,

un code à adapter pour vos couleurs :

Sub RoseEtBleue()
    Dim Ligne, Chaine, Position
    ' on commence les tests en ligne 1
    Ligne = 1
    ' boucle indéfinie
    Do
        ' avec la cellule testée
        With Cells(Ligne, 1)
            ' on récupère sa valeur
            Chaine = .Value
            ' on cherche la position du /
            Position = InStr(1, UCase(Chaine), UCase("/"))
            ' s'il y a bien un /
            If Position > 0 Then
                ' on modifie la couleur des caractères avant le /
                .Characters(Start:=1, Length:=Position - 1).Font.Color = RGB(200, 0, 0)
                ' on met en couleur les caractères après le /
                .Characters(Start:=Position + 1, Length:=Len(Chaine) - Position + 1).Font.Color = RGB(0, 0, 200)
            End If
            ' on testera la ligne suivante
            Ligne = Ligne + 1
        End With
    ' on boucle tant que la ligne suivante n'est pas vide
    Loop While Cells(Ligne, 1) <> ""
End Sub

Le fichier exemple :

Soit vous laissez la boucle indéfinie, soit vous faites une boucle "en dure" allant de la première ligne de données à la dernière qui doit être modifiées.
Le code peut être lancé "uniquement" à l'activation de la feuille.

@ bientôt

LouReeD

Bonsoir LouReeD et merci beaucoup

Magnifique le fichier test ==> je vais m'empresser de l'adapter à mon classeur et te dirai.

Encore merci :-))))))

Bonne soirée