Méthode Find avec condition

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Méthode Find avec condition

scaryfan

Apple Inside

:hello:
Salut à tous !
Je découvre la méthode Find sous VBA qui est nettement plus rapide pour trouver une valeur dans une plage donnée... comparé avec une boucle Do... Loop.
Super génial !

Néanmoins, je voudrais utiliser cette méthode avec une condition...
Genre :
With Workbooks("TEST.xlsx" ).Sheets("TEST" ).Range(PLAGE)
Set c = .Find(X > 599999 ; Lookln:xlValues)
c.Select
End With

Je traduis : je cherche dans la PLAGE la première valeur supérieure à 599999.
Et je ne vois pas comment y arriver...

De plus, est-il possible de chercher de bas en haut ???

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Publicité

scaryfan

Apple Inside

UP :hello:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

scaryfan

Apple Inside

Pour être plus précis, j'ai un tableau avec beaucoup beaucoup de lignes (plus de 100 000) et utiliser le Do... Loop pour trouver la première ligne avec une valeur supérieure à 512999 est assez long... même en désactivant l'Application.ScreenUpDating.
Aussi, je me demandais si la fonction Find pouvait m'aider à faire cela...
J'utilise très bien cette fonction pour trouver la première valeur exacte... genre TOTO ou 401100... même trouver une valeur supérieure à une autre, je ne vois pas comment faire...

:??:

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Profil supprimé

J'ai aussi voulu utiliser cette fonction aujourd'hui, mais impossible de la faire marcher pour mon cas alors que d'autres tests marchaient bien.

En plus je faisais juste un simple
Range("Z:Z" ).Find("USD" ).Select

Donc si vous pouvez m'expliquer pourquoi ca serait chouette.
(mon 1er "USD" arrivait vers la ligne 700 et la commande me retournait une autre case n'ayant rien à voir. Sur une autre colonne avec des nombres, ca marchait bien :heink: )

Message cité 1 fois

scaryfan

Apple Inside

Essaie ça :

Code :

T = "USD"
With ActiveWorkbook.Sheets(1).Columns("Z:Z" )
Set c = .Find(T, LookIn:=xlValues)
c.Select
End With

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

Profil supprimé

Merci, ca marche nickel,

Maintenant j'ai une autre question:
Disons que j'ai selectionne toutes les cellules avec la valeur "USD" dans ma colonne Z.
Dans une colonne a cote (AA par exemple), j'ai une autre colonne contenant des 0 et des 1.
J'aimerais ne garder selectionees que les cellules dont la valeur correspondante dans la colonne AA est 1.

En d'autre termes, je veux selectionner les cellules "USD" dans la colonne Z auxquelles correspondent la valeur "1" dans la colonne AA.

(pour selectionner les cellules USD, je triais par valeur, trouvais la 1ere et selectionner les x suivantes ou x est le nombre de cellules contenant "USD". Je sais pas si c'est la meilleure methode.
Pour faire ma selection sur 2 criteres, j'ai commence a coder une routine qui filtre le 1er critere, copie les donnes dans une feuille temp, puis refiltre. Cest un peu long et complique, je me suis dit qu il doit y avoir plus simple)

Merci

mmarle

Bonjour scaryfan,

J'espère que cette solution te conviendra.
Renommer une feuille en "MaFeuille".
En cellule A1:= Saisir la valeur que l'on cherche.
En cellule A2:= Saisir la condition pour effectuer la recherche (Dans ton cas 5999999).
Dans la colonne B:= Mettre la plage de valeur (exemple 1 à 7000000).
Dans la colonne C:= Le texte "Trouvée" est saisi à chaque itération positive.

Puis pour lancer la procédure il faut cliquer droit avec la souris.

Voici le code:

Code :

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'******************'
'* Initialisation *'
'******************'
'Désactivation du menu contextuel'
Cancel = True
'Efface le contenu de la colonne C'
Columns("C:C" ).ClearContents
'*****************************'
'* Déclaration des variables *'
'*****************************'
'Variable de la valeur recherchée'
Dim X As Range
'Variable de la valeur de la condition'
Dim Y As Range
'Variable de la valeur de la dernière ligne non vide de la zone de recherche'
Dim Fin As Long
'Variable de la valeur reçue à l'issue de la méthode .Find'
Dim MySearch As Variant
'Variable d'incrémentation de la valeur reçue'
Dim I as Long
'***************************'
'* Attribution des valeurs *'
'***************************'
'Valeur recherchée'
Set X = Range("A1" )
'Valeur de la condition'
Set Y = Range("A2" )
'Valeur de la dernière ligne non vide de la zone de recherche'
Fin = Worksheets("MaFeuille" ).UsedRange.Rows.Count
'*************'
'* Procédure *'
'*************'
With Worksheets("MaFeuille" ).Range("B1:B" & Fin)
If X > Y Then
Set MySearch = .Find(X, LookIn:=xlValues, SearchDirection:= xlPrevious)
If Not MySearch Is Nothing Then
firstAddress = MySearch.Address
Do
I = I + 1
MySearch.Offset(0, 1) = I & " - Trouvée"
Application.Wait (Now + TimeValue("0:00:1" )) 'Sert uniquement à voir la recherche'
Set MySearch = .FindPrevious(MySearch)
Loop While Not MySearch Is Nothing And MySearch.Address <> firstAddress
End If
Else
MsgBox "La recherche est inférieure à la condition: " & X & " < " & Y
End If
End With
End Sub

Il est toujours bon de bien détailler son code car ça favorise la lecture et la compréhension.

@ bientôt

Message cité 1 fois
Message édité par mmarle le 18-07-2011 à 10:53:25

scaryfan

Apple Inside

mmarle a écrit :

Code :

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'******************'
'* Initialisation *'
'******************'
'Désactivation du menu contextuel'
Cancel = True
'Efface le contenu de la colonne C'
Columns("C:C" ).ClearContents
'*****************************'
'* Déclaration des variables *'
'*****************************'
'Variable de la valeur recherchée'
Dim X As Range
'Variable de la valeur de la condition'
Dim Y As Range
'Variable de la valeur de la dernière ligne non vide de la zone de recherche'
Dim Fin As Long
'Variable de la valeur reçue à l'issue de la méthode .Find'
Dim MySearch As Variant
'Variable d'incrémentation de la valeur reçue'
Dim I as Long
'***************************'
'* Attribution des valeurs *'
'***************************'
'Valeur recherchée'
Set X = Range("A1" )
'Valeur de la condition'
Set Y = Range("A2" )
'Valeur de la dernière ligne non vide de la zone de recherche'
Fin = Worksheets("MaFeuille" ).UsedRange.Rows.Count
'*************'
'* Procédure *'
'*************'
With Worksheets("MaFeuille" ).Range("B1:B" & Fin)
If X > Y Then
Set MySearch = .Find(X, LookIn:=xlValues, SearchDirection:= xlPrevious)
If Not MySearch Is Nothing Then
firstAddress = MySearch.Address
Do
I = I + 1
MySearch.Offset(0, 1) = I & " - Trouvée"
Application.Wait (Now + TimeValue("0:00:1" )) 'Sert uniquement à voir la recherche'
Set MySearch = .FindPrevious(MySearch)
Loop While Not MySearch Is Nothing And MySearch.Address <> firstAddress
End If
Else
MsgBox "La recherche est inférieure à la condition: " & X & " < " & Y
End If
End With
End Sub

Il est toujours bon de bien détailler son code car ça favorise la lecture et la compréhension.

@ bientôt

Merci mmarie pour ton code... je vais voir cela demain.

---------------
iMac 4Ghz (fin 2015) RAM 16Go SSD 256Go SSD 2To

mmarle

Pour nofreelunch

Code :

T = "USD"
With ActiveWorkbook.Sheets(1).Columns("Z:Z" )
Set c = .Find(T, LookIn:=xlValues)
If c.Offset(0,1)=1 Then
c.Select
End If
End With

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Méthode Find avec condition

Sujets relatifs
Excel et SQL requete avec deux condition?	Probléme avec la methode insert() de DataRepository C# de NetTiers C#
[Résolu] " update or insert " selon une condition	erreur methode java
[résolu] ld.exe cannot find -lfile	Comment copier une partie d'une colonne avec condition?
Effectuer une somme avec condition sous excel	Excel : boucle copie de plages sous condition
fonction find vba	construire une plage de cellules qui répondent à la même condition
Plus de sujets relatifs à : Méthode Find avec condition

Page générée en 0.061 secondes