Fonction VBA : cellsSearch
La fonction VBA cellsSearch recherche une valeur dans une plage de cellules et renvoie (sous forme de tableau) la liste des adresses de toutes les cellules contenant la valeur recherchée.
Utilisation :
cellsSearch(cellules, valeur_recherchée)
ou
cellsSearch(cellules, valeur_recherchée, exact)
Exact : par défaut la fonction recherche quelles sont les cellules qui correspondent exactement à la valeur recherchée. Pour rechercher les cellules qui contiennent au moins la valeur recherchée, entrez False.
Exemple d'utilisation (recherche exacte)
Recherche de toutes les cellules égales à "7" cellsSearch(Range("A1:E10"), 7)
:
Sub exemple()
tableauAdresses = cellsSearch(Range("A1:E10"), 7)
arrayDebug tableauAdresses 'Affichage du tableau dans une MsgBox pour vérification
End Sub
Pour vérifier si cela a bien fonctionné, arrayDebug est utilisé ici pour afficher le contenu du tableau dans une MsgBox :

Exemple d'utilisation (recherche partielle)
Recherche de toutes les cellules contenant au moins "-UD" cellsSearch(Range("A2:A8"), "-UD", False)
:
Sub exemple2()
tableauAdresses = cellsSearch(Range("A2:A8"), "-UD", False)
arrayDebug tableauAdresses 'Affichage du tableau dans une MsgBox pour vérification
End Sub

Remarque : cette fonction nécessite l'installation du pack de fonctions XLP (un add-in gratuit pour Excel qui ajoute 92 nouvelles fonctions).