Discussion :

[CoriS FrosT]

Salut tout le monde,


J'ai un comportement bizarre que je n'explique pas et là, je sèche complètement...

Peut-être auriez vous un regard neuf, ou peut-être même qu'en parlant...

Mon objectif, est le suivant :
- lister les valeurs d'une colonne donnée, dans le fichier Excel courant
- pour chacune des valeurs, chercher sa présence dans un autre fichier Excel...

Voici mon code (je l'ai manipulé et trituré dans tous les sens avant de venir vous faire c...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
42
43
44
45
46
47
48
49
50
51
52
 
        Set cWB = ThisWorkbook
 
        With oExcel
            .Visible = True
            Set WB = .Workbooks.Open(sFile)
            Set WS = WB.Worksheets(CONST_DATA_SHEET_NAME)
 
            Set cWS = cWB.Worksheets(CONST_DATA_SHEET_NAME)
            With cWS
                .Select
                Set cRNG = .Range(.Cells(CONST_VAR_IDX_START_ROW, CONST_VAR_IDX_COLUMN), _
                                  .Cells(CONST_VAR_IDX_START_ROW, CONST_VAR_IDX_COLUMN).End(xlDown))
                           '.Cells(.Cells(Rows.Count, "B").End(xlDown).Row, 2))
 
                With cRNG
                    For Each cCursor In cRNG
                        'cWB.Activate
                        Debug.Print cCursor.Value
 
                        'WB.Activate
                        With WB
                            .Activate
                            With WS
                                .Select
                                Set RNG = .Range(.Cells(CONST_VAR_IDX_START_ROW, CONST_VAR_IDX_COLUMN), _
                                                 .Cells(CONST_VAR_IDX_START_ROW, CONST_VAR_IDX_COLUMN).End(xlDown))
                                RNG.Select
 
                                'Set myCell = Selection.Find(What:=cCursor.Text, After:=ActiveCell, LookIn:=xlFormulas, _
                                             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlDown, _
                                             MatchCase:=False, SearchFormat:=False)
                                Set myCell = Selection.Find(What:=cCursor.Text, After:=ActiveCell)
 
                                If myCell Is Nothing Then
                                    'do nothing...
                                Else
                                    Debug.Print myCell.Row
                                End If
 
                                Set RNG = Nothing
                                Set myCell = Nothing
                            End With
                        End With
                    Next
                End With
            End With
 
            'WB.Activate
            'closeExcel False
            '.Quit
        End With

Et le comportement observé :
- aléatoire...
- le find me ressort soit, la première ligne, soit la deuxième ligne mais rien d'autres... (et pourtant, il y en a...)

le premier Debug.Print cCursor.Value me liste bien les différentes valeurs de la première liste

le deuxième Debug.Print myCell.Row c'est la fête!

J'ai changé les différents paramétrages au niveau du find, rien n'a changé, ce n'est ni un problème de sélection, ni un problème d'activation de workbook...

Bref, je sèche complètement

Merci d'avance pour vos retours

[Marc-L]

Bonjour,

si comportement bizarre il y a, c'est tout simplement mal programmé ‼

Soit cela vient d'un paramètre de la fonction, soit un objet n'est pas défini par exemple, voir les deux ! …

Et "travailler" avec Select & Selection n'est pas "professionnel", souvent source d'ennui …

Par exemple la ligne 33, rien qu'en consultant l'aide de la fonction et son exemple …

Afin d'obtenir de l'aide, des explications claires & exhaustives ainsi que les fichiers .xls en pièces jointes seraient un plus …

[Oliv-]

salut,
regarde cette discussion là tu y trouveras sans doute ton bonheur

http://www.developpez.net/forums/d12...-dictionnaire/

[CoriS FrosT]

merci pour vos réponses,

j'avais la tête dans le fion hier, j'ai résolu mon problème depuis en vous exposant mon souci.

sinon Marc, je ne voulais pas vous embêter avec tout le reste du code (tout a été bien instancié et déclaré etc...)

je ne suis pas expert et ne prétends pas l'être; cela aurait été donc sympa de dire pourquoi le select et selection n'est pas propre avec source d'ennui, au lieu de dire que c'est mal programmé et pas professionnel.

et même si je reste persuadé qu'il n'était pas dans ton intention, pour ma part, j'ai pris ton retour plutôt comme une agression

ceci étant dit, grâce à cela, c'était une piste pour moi lol

bref, merci à vous 2

@++

[Marc-L]

Heureusement que j'avais mis des guillemets !

A une fin pédagogique, voir cette discussion !

Travailler directement sur les objets est bien plus efficient et limite les risques d'erreur …

[Oliv-]

Bonjour à tous,
La remarque de Marc était judicieuse (et sans agressivité ma semble-t-il),
quand tu fais un .select puis selection.quelquechose
tu fais 2 opérations
mais surtout tu travailles avec la chose selectionnée , qui pourrait changer pour x raisons donc source d'erreurs


par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
RNG.Select 'ok pour debogage
 
                                'Set myCell = Selection.Find(What:=cCursor.Text, After:=ActiveCell, LookIn:=xlFormulas, _
                                             LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlDown, _
                                             MatchCase:=False, SearchFormat:=False)
                                Set myCell = RNG.Find(What:=cCursor.Text, After:=ActiveCell)

mieux ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set myCell = RNG.Find(What:=cCursor.Text, After:=RNG.range("a1"))