Fonction de recherche ou autre
je cherche une fonction, si elle existe, pour chercher dans le contenue de A1, qui un texte, s'il contient un mot de la liste $D$1:$D$100 revoie "G" si un mot de la liste $E$1:$E$100 revoie "F", si non laisser vide
merci d'avance
Bonjour,
Voici une formule qui devrait marcher en la validant avec le raccourci Maj + Ctrl + Entrée:
=SI(MAX(SIERREUR(CHERCHE(D1:D100;A1);0))>0;"G";SI(MAX(SIERREUR(CHERCHE(E1:E100;A1);0))>0;"F";""))
merci pour votre réponse, mais la fonction renvoi "G" si A1 n'est pas vide peu importe le texte
Est-ce que vous avez des cellules vides dans vos listes?
Si vous pouviez nous transmettre un fichier pour qu'on puisse débuger la formule ce serait top
De mon côté, si les listes on bien des valeurs ça fonctionne, en revanche CHERCHE teste juste si A1 contient bien une chaîne de texte, si vous cherchez jour et que A1 contient bonjour, ça matchera.
Voilà un exemple, le but est de mettre automatiquement G ou F selon le nom et laisser vide en cas de doute
Merci d'abord de votre réponse et votre aide.
votre formule marche seulement si la cellule et égale à l'une des listes, mais pas grave vue la complexité de la tâche je me suis résigné à la faire en VBA
Sub IndexerGenre()
Dim lastRow As Long
Dim tableau1 As Range
Dim tableau2 As Range
Dim cell As Range
Dim nomComplet As String
Dim prenom As String
Dim genre As String
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Set tableau1 = Sheets("TableauDeBord").Range("TableauM")
Set tableau2 = Sheets("TableauDeBord").Range("TableauF")
For Each cell In Range("B7:B" & lastRow)
nomComplet = cell.Value
prenom = ""
genre = ""
For Each mot In Split(nomComplet, " ")
If Not prenom = "" Then Exit For
If Not IsError(Application.Match(mot, tableau1, 0)) Then
prenom = mot
genre = "G"
ElseIf Not IsError(Application.Match(mot, tableau2, 0)) Then
prenom = mot
genre = "F"
End If
Next mot
cell.Offset(0, 1).Value = genre
Next cell
End Sub
et ça marche du tonner.
merci encore une fois