Find. . . WHAT ?! Pas de première cellule ?!

Version imprimable

Bonjour,

Je suis dans une perplexité monumentale. A tord, à raison, j'utilise beaucoup la méthode "Find".
Or, je suis confronté à un problème que je n'arrive pas à résoudre :

Je tente de faire ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub ComboBox1_Change() Dim bool As Boolean Dim rng As Range col_B = Me.ComboBox1.Value bool = True With Worksheets("Feuil4") Set rng = .Range("A1:A" & .Columns(1).Find("*", , , , , xlPrevious).Row) 'MsgBox rng.Address Do While bool 'MsgBox rng.Find(col_A, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1).Address If rng.Find(col_A, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1) = col_B Then rng.Find(col_A, LookIn:=xlValues, LookAt:=xlWhole).Select bool = False Else Set rng = .Range(rng.Find(col_A, LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0), .Columns(1).Find("*", , , , , xlPrevious)) 'MsgBox rng.Address End If Loop End With End Sub
Pour moi, cela signifie que je fais une recherche sur un mot-clé (col_A) en colonne A et vérifie qu'en colonne B, j'ai bien un autre mot-clé associé (col_B).

Si oui, je sélectionne la cellule... merci, bonsoir.
Si non, je "set" ma range à la cellule d'en dessous, et je continue de chercher.

Or, ça ne se passe pas du tout comme je le souhaite. Si j'omet la variable "After", la recherche est censée s'effectuer depuis la cellule en haut à gauche. Or, j'ai l'impression que cette cellule n'est jamais prise en compte...

Dans mon "Else", je "set" (pour moi toujours) ma nouvelle range à la cellule du dessous de celle que je viens de trouver. Or, ce n'est pas celle-ci qui est prise dans le cas du tableau suivant :

A B

1 Var1 B1

2 Var1 B2

2 Var1 B3

4 Var2 B4

5 Var2 B5

6 Var2 B6

Si je recherche le couple [Var1, B1] alors :

Dans ma première MsgBox, j'aurais bien "$A$1:$A$6".
Dans ma seconde MsgBox, j'ai $B$2... WTF ?! :furieux: (au lieu de $B$1)
Dans ma dernière MsgBox, j'ai $A$3:$A$6... :zen: (au lieu de $A$2:$A$6)

"Caaaaaalme ! Les Masters VBA de www.developpez.net vont te sortir de là !"

Je ne vois donc que le fait que la première cellule de la Range d'un Find n'est pas prise en compte... mais l'utilisant depuis tant de temps, cela m’étonnerait de ne pas l'avoir vu avant...

Des idées sur ma bêtise ?

Merci par avance !

Cordialement,
Kimy

16/12/2014, 15h38
parmi

Bonjour,

Citation:

If rng.Find(col_A, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1) = col_B Then

D'où provient col_A ?
16/12/2014, 15h41
Invité

pourquoi ne pas faire ça?

Code:

Set rng = .Range("A:A")
16/12/2014, 15h50
Kimy_Ire

Bonjour parmi, rdurupt,

Merci de vous intéresser à mon problème.
@parmi : col_A est mon premier paramètre, celui que je cherche dans la colonne A. L'utilisateur l'insère, je récupère l'ensemble des valeurs en colonne B qui ont un rapport. Je tente, enfin, de faire un "select" du couple après la sélection d'une des valeurs récupérées de B.

@rdurupt : je peux tout à fait le faire (et l'ai déjà fait). Mais cela ne change rien. De plus, pour continuer la recherche, je serais, quoi qu'il arrive, obligé de restreindre la Range de recherche.

Toujours pas trouvé de mon côté ! :aie:

Cordialement,
Kimy
16/12/2014, 16h07
Invité

tu peut-être t'inspirer de ça? http://www.developpez.net/forums/d14...e/#post8063711
16/12/2014, 16h13
parmi

Mais je ne vois pas où tu déclares ce col_A, donc, pour moi il est vide.
Tu fais donc une recherche de "" dans un Range rng
16/12/2014, 16h48
Kimy_Ire

Excuse-moi parmi, je n'avais pas compris le sens de ta première question...
Ma variable "col_A" est bien déclarée en tant que variable public et contient bien la recherche que je souhaite.

Je suis en train de modifier le code de rdurupt.

Cependant, cela contournera le problème et je ne comprends toujours pas pourquoi j'ai un soucis avec ma méthode "Find"...

Cordialement,
Kimy
16/12/2014, 17h53
Marc-L

Bonjour,

la méthode Find n'est problématique qu'avec les dates (et encore, pas toujours et facile à s'en sortir)
ou lorsque la plage de recherche est vide; sinon cela roule tout seul !

Je ne comprends pas trop la logique de ton code, notamment l'utilité de la variable bool …

Le B-A-BA : l'exemple dans l'aide VBA, même si à mon avis il y a une demie coquille dans un cas précis …
Voir cette discussion.

Voici un exemple qui utilise FindNext pour toutes les occurrences de la valeurA en colonne A.
Pour les besoins, j'inscris les 2 valeurs à rechercher en F1 et F2

Donc, recherche de la valeurA en colonne A et vérification si colonne B égale ValeurB

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Rechercher()
    Dim nbLignes As Long
    Dim ValeurA As Variant, ValeurB As Variant
    Dim Adresse As String
    Dim Recherche As Range
    Dim Trouvé As Boolean
 
    ValeurA = Range("F1")
    ValeurB = Range("F2")
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
    Set Recherche = Columns("A").Find(ValeurA, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        Adresse = Recherche.Address
 
        If Range("B" & Recherche.Row) = ValeurB Then
            Range("B" & Recherche.Row).Select
            Trouvé = True
        End If
 
        If Not Trouvé Then
            Do
                Set Recherche = Columns("A").FindNext(Recherche)
                If Not Recherche Is Nothing Then
                    If Range("B" & Recherche.Row) = ValeurB Then
                        Range("B" & Recherche.Row).Select
                        Trouvé = True
                    End If
                End If
 
            Loop Until Recherche.Address = Adresse Or Recherche Is Nothing
        End If
    End If
 
    If Not Trouvé Then
        MsgBox "La recherche est infructueuse"
    Else
        MsgBox "Résultat trouvé en " & Recherche.Address(False, False)
    End If
 
End Sub

Note que si tu avais une colonne qui concatène les 2 valeurs de A et B, la recherche serait simplifiée...

Bonjour Kimy_Ire; à tous.

@ Kimy_Ire
Ta méthode fonctionnerait comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub ComboBox1_Change2()
Dim bool As Boolean
Dim rng As Range
 
Col_A = "qwerty" 'Me.ComboBox1.Value
Col_B = "azerty"
 
bool = True
 
 Range("C1").Select
 
With Worksheets("Feuil4")
    Set rng = .Range("A1:A" & .Columns(1).Find("*", , , , , xlPrevious).Row)
 
    Do While bool
 
        Set result = rng.Find(Col_A, LookIn:=xlValues, LookAt:=xlWhole)
 
        If result Is Nothing Then
            bool = False
        Else
        If result.Offset(, 1) = Col_B Then
            rng.Find(Col_A, LookIn:=xlValues, LookAt:=xlWhole).Select
            bool = False
        Else
            Set rng = .Range(rng.Find(Col_A, LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0), .Columns(1).Find("*", , , , , xlPrevious))
 
            If rng Is Nothing Then bool = True
 
        End If
        End If
    Loop
End With
 
End Sub

@parmi

Celle de parmi qui est une oeuvre d'art classique comme ceci:

Code:

Loop Until Trouvé = True Or Recherche.Address = Adresse Or Recherche Is Nothing

16/12/2014, 19h20
Kimy_Ire

Merci à tous pour votre contribution qui m'a permis au moins de corriger le code.

Je ne comprends pas où ma logique pêche... mais il doit y avoir beaucoup de monde dans ma tête... :scarymov:

Quoi qu'il en soit, beaucoup d'éléments m'ont été donné et je vous en remercie chaleureusement. Je reviendrais très probablement sur cette discussion quand j'aurais ce même genre de soucis.

Cordialement,
Kimy