Vérifier présence valeur dans une plage

Bonjour à tous,

J'ai nommé une plage

Quelle formule pour faire apparaitre dans une cellule (hors de la plage) la valeur (nom d'une personne) déjà présente dans cette plage ?

Nom de plage "toto"

Nom de la personne recherchée : "papa"

Bonjour toutes et tous

@ tester si j'ai un peu compris, si dans la cellule H3 le mot papa est inscrite dans la cellule de la plage toto, alors cela affichera VRAI

=(NB.SI(toto;H3)>0)

Cellule H3 à modifier

Passer une bon réveillon du nouvel an à toutes et à tous

crdlt,

André

Merci Andre13 ... sympa, ça marche.

Et si, au lieu de vrai ou faux, je veux faire apparaitre "papa" s'il y est et un blanc ("") s'il est absent ?

Tu l'écrirais comment ? ... histoire de se former un peu plus ...

Merci

Bonjour,

Skusez l'incruste...

=SI(NB.SI(toto;H3)>0;H3;"")

Re,

Coucou et merci Pijaku bien trouvé ^^

de mon côté j'ai retrouvé avec une macro qui à l'air sympa, ^{merci à Lermitte222}

on écrit dans l'inputbox le nom recherché, si la macro ChechVal trouve elle marque aussi non elle note rien dans la cellule (ici sur l'exemple c'est H4 sur la feuil1)

du coup ci-joint , il y a les formules de Pijaku etc.

crdlt,

André

Salut Andre,

Je ne sais pas si tu maîtrises VBA.

1- Solution avec InputBox perso => pas de risque d'erreur

2- Il ne sert à rien de boucler sur toutes les cellules d'une plage lorsque l'on dispose de :

> NB.SI (version VBA)

> La méthode Find

exemple qui se rapporte au problème du jour :

Sub Cherche()
Dim CH As Variant, Rng As Range
    With Sheets("Feuil1")
        .Range("H4").Value = vbNullString
        CH = InputBox("Entrez la valeur à chercher dans la plage ""toto""")
'TRAITEMENT DE L'INPUTBOX
        If StrPtr(CH) = 0 Then
            MsgBox "Vous avez annulé", vbCritical + vbOKOnly, "Annulation utilisateur"
        ElseIf CH = vbNullString Then
            MsgBox "Aucune saisie", vbCritical + vbOKOnly, "Pas de saisie utilisateur"
        Else
'SI INPUTBOX "CORRECTE" - TRAITEMENT
            If Application.WorksheetFunction.CountIf(.Range("toto"), CH) > 0 Then        'NB.SI
                Set Rng = .Range("toto").Cells.Find(CH)                                  'Méthode find
            End If
            If Not Rng Is Nothing Then
                .Range("H4").Value = CH
            Else
                .Range("H4").Value = CH & " non trouvé dans la plage : " & .Range("toto").Address
            End If
        End If
    End With
End Sub

Désolé mais la formule de PIJAKU m'affiche #nom?

J'ai bien vérifié l'écriture dans ma page exel ... ça marche pas !

Merci pour l'effort de me répondre.

NON !!! C'était bon. J'avais un mauvais nom de plage !!!

OK et grand merci.

Bonnes fêtes pour ce soir

Re,

@Pijaku: Bravo!, non je ne maitrise pas trop VB, je pense que même l'année prochaine, j'aurais encore des difficultés lol -;)

mais en tout cas, ^^

je commence à comprendre ce que tu as mis en com. dans le code ' Find et autres

@Cherouat: pas de soucis, bravo si réussi bon réveillon à tous

crdlt,

André