Recherche texte sur colonne

[gg13]

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

 

[Tibo]

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

@+

 

[ERIC S]

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.

 

[gg13]

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

 

[Tibo]

Re : Recherche texte sur colonne

re,

Peut-être as-tu une version US, auquel cas, essaye en remplacant le ; par ,

@+

 

[gg13]

Re : Recherche texte sur colonne

Tibo
Même problème et j'ai une version Française.
gg13

 

[dg62]

Re : Recherche texte sur colonne

Bonjour le fil


la même en VBA

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 ??

 

[ERIC S]

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

 

[Tibo]

Re : Recherche texte sur colonne

re tout le monde,

A tester pour la dernière :

=EQUIV("tx12"&"µ";A:A)

Plus efficace lorsqu'il y a d'autres données dans la colonne.

@+

 

[gg13]

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

 

[Tibo]

Re : Recherche texte sur colonne

re,

Dans ton panneau de config Windows - As-tu bien dans Paramètres régionaux : Français (standard) ?

@+

 

[ERIC S]

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

 

[ERIC S]

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

 

[gg13]

Re : Recherche texte sur colonne

Merci
À tous pour toutes ces infos je vais essayer de les digérer.
dg62 ta boucle marche super et de plus est bien plus rapide que la mienne.
gg13