Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche texte sur colonne

  • Initiateur de la discussion Initiateur de la discussion gg13
  • Date de début Date de début

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 !

gg13

XLDnaute Occasionnel
Salut le forum.
Voilà mon problème.
Dans la colonne A j’ai environ 1000 valeurs différentes, type texte Ex : TX12
Cette valeur TX12 apparaît sur un nombre de ligne variable et aléatoire,
Mais toutes les valeurs TX12 se suivent.
Mon problème est de trouver l’adresse de la première et la dernière cellule oû se trouve TX12.
J’ai résolu le problème avec une boucle de recherche mais c’est long et je pense qu’il existe une formule pour trouver directement.
Merci de votre aide si vous la connaissez.
gg13
 
Re : Recherche texte sur colonne

Salut gg,

Essaye avec la formule EQUIV :

=EQUIV("tx12";A:A;0) va te donner l'adresse du 1er "tx12"

=EQUIV("tx12";A:A) va te donner l'adresse du dernier "tx12"

A vérifier

@+
 
Re : Recherche texte sur colonne

Bonjour

essaie pour première

=equiv("TX12";$a:$a;0)

pour dernière

=equiv("TX12";$a:$a;1)

Salut Tibo, bien réveillé et rapide dès le matin.
 
Dernière édition:
Re : Recherche texte sur colonne

Eric,Tibo
Merci de votre rapidité.
Petit problème le ; aprés "TX12" ne passe pas,j'obtiens un message
attendu:séparateur de liste ou ).

Si TX12 est une variable A et pas un texte ,on remplace simplement TX12 par A sans les guillemets dans la formule ?

Oû trouvez vous toutes ces infos?
gg13
 
Re : Recherche texte sur colonne

Bonjour le fil


la même en VBA

Code:
Sub rechercheTX12()
Dim occ As Boolean
Dim cel As Range
occ = False
Range("A1", Range("A1").End(xlDown)).Select
 For Each cel In Selection
 If cel.Value = "tx12" And occ = False Then
 MsgBox ("Premiere occurence en " & cel.Address)
 occ = True
 End If
 If cel.Value <> "tx12" And occ = True Then
 MsgBox ("derniere occurence en " & "$A$" & cel.Row - 1)
 Exit For
 End If
 Next cel
End Sub

Salut Tibo, ericS : equiv me renvoie la derniere cellule et non le dernier Tx2 ??
 
Re : Recherche texte sur colonne

re

si info contenue dans une cellule par ex C1

essaie pour première

=equiv(C1;$a:$a;0)

pour dernière

=equiv(C1;$a:$a;1)
_______________________
si numéro contenu dans C1

essaie pour première

=equiv("TX" & C1;$a:$a;0)

pour dernière

=equiv("TX & C1;$a:$a;1)
______________________

pour trouver ces infos, de la pratique, le forum (poser des questions, regarder les fils nouveaux et anciens) et un petit tour de la liste des fonctions dans Excel, régulièrement et en regardant l'aide
 
Re : Recherche texte sur colonne

En fait en lançant la macro ça bugge sur equiv et j'obtiens le message
fonction non définie.
Pour que les séparateurs passent j'ai dû les modifier comme cela:
D = equiv(C1, a.a, 0) ça me parait bizarre.
gg13
 
Re : Recherche texte sur colonne

re

les FORMULES que nous te donnons sont pour des pages Excel et non du code vba

sinon en formule effectivement pour la dernière ligne contenant le texte cherché

=equiv(C1;$a:$a;1) donne des erreurs

une autre possibilité

=equiv(C1;$a:$a;1)+nb.si($a:$a;C1)-1
 
Re : Recherche texte sur colonne

re
vu dans aide vba
Utilisation des fonctions de feuille de calcul Microsoft Excel dans Visual Basic


Si vous utilisez une fonction de feuille de calcul qui requiert une référence de plage comme argument, vous devez indiquer un objet Range. Par exemple, vous pouvez utiliser la fonction de feuille de calcul Match pour rechercher une plage de cellules. Dans une cellule de feuille de calcul, vous devez taper une formule telle que =MATCH(9,A1:A10,0). En revanche, dans une procédure Visual Basic, vous spécifiez un objet Range pour obtenir le même résultat.
Sub FindFirst() myVar = Application.WorksheetFunction _ .Match(9, Worksheets(1).Range("A1:A10"), 0) MsgBox myVarEnd Sub
 
- 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

Discussions similaires

Réponses
14
Affichages
742
Réponses
6
Affichages
905
Réponses
10
Affichages
645
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…