Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Xcuses… 🙁
Je ne cherche pas "Pierre Granier Deferre" c’est un exemple; je cherche les lignes d’une colonne qui contiennent 3 mots, 3 occurrences, 3 valeurs n’importe lesquels :
Pierre Granier Deferre
Jean Paul Leblanc
Marc Antoine Lucillius
…
> Mais pas :
Jean Moulin
ni
André Malraux
Function Extraire_3_mots(colonne As Range, ordre&) As String
Dim tablo, i&, s, n&
tablo = Intersect(colonne, colonne.Parent.UsedRange) 'matrice, plus rapide
For i = 1 To UBound(tablo)
s = Split(Application.Trim(Replace(tablo(i, 1), "-", " ")))
If UBound(s) = 2 Then
n = n + 1
If n = ordre Then Extraire_3_mots = tablo(i, 1): Exit Function
End If
Next
End Function
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD