Problème recherche référence vba (double cliquer) Fermé

Question

Bonjour, 

J'ai crée une macro qui permet de vérifier si une références (un nom de pièce quoi) est dans un tableau donné, situé dans une autre feuille mais du même classeur. Ce tableau est une donnée externe provenant d'un autre classeur, mais cela ne pose pas de problème.  Si la référence existe, alors je voudrais que la macro me renvoie le numéro de la ligne dans la case d'à côté de la référence cherchée.
Si la référence existe en plusieurs fois, je voudrais avoir le dernier numéro de lignes. S'il elle n'est pas présente, j'écris "non".
Voici en partie la macro, avec L1 la liste de ref à chercher et L2 le tableau dans lequelle je cherche :

'Selection des références étudiées (L1)    Sheets("CopierIci").Select    Range("B2").Select    Set L1 = Range(Selection, Selection.End(xlDown))'On appelle L2 la liste contenant les informations Sheets("InfosDAM").SelectRange("A1").SelectSet L2 = Range(Selection, Selection.End(xlDown))'On Selectionne la feuille outilSheets("FeuilleOutil").Select'Pour chaque élément étudié (de L1) on regarde où il est dans L2For i = 1 To L1.Rows.Count    For j = 1 To L2.Rows.Count        If L1(i, 1).Value2 = L2(j, 1) Then            Sheets("FeuilleOutil").Cells(i + 1, 1) = j        End If        If j = L2.Rows.Count And Sheets("FeuilleOutil").Cells(i + 1, 1) = "" Then            Sheets("FeuilleOutil").Cells(i + 1, 1) = "non"        End If    Next jNext i

Mon souci est le suivant, le code fonctionnait tout très bien et un jour, certaines  références étaient indiquées comme inexistante ("non") alors qu'elle se situe pourtant dans le tableau (en vérifiant manuellement).

Le plus étrange c'est que si je double clique sur la référence du tableau et que je refais tourner la macro, cette fois ci elle est trouvée. 

J'ai eu beau tourner le problème dans tous les sens mais je ne cmprends pas...
Si quelqu'un pouvait m'aider cela serait très appréciable. Merci.

Configuration: Windows / Internet Explorer 11.0

Patrice33740 · Answer

Bonjour,

J'ai pas tout compris (en particulier le contenu de la feuille outils), 
mais il faut absolument éviter les Select inutiles.
Peut-être :
Option Explicit
Sub Test()
Dim L1 As Range
Dim L2 As Range
Dim C1 As Range
Dim C2 As Range

'Définition des références étudiées (L1)
  With Sheets("CopierIci")
    Set L1 = .Range(.Range("B2"), .Range("B2").End(xlDown))
  End With

'Définition de la liste contenant les informations (L2)
  With Sheets("InfosDAM")
    Set L2 = .Range(.Range("A1"), .Range("A1").End(xlDown))
  End With
  'On travaille sur la feuille outil
  With Sheets("FeuilleOutil")
    'Effacer les anciennes valeurs
    .Columns("A:B").Clear
    'Pour chaque élément étudié (de L1)
    For Each C1 In L1.Cells
      ' On reporte la référence sur la feuille outils ...
      .Cells(C1.Row, "A").Value = C1.Value
      For Each C2 In L2.Cells
        If C1.Value2 = C2.Value Then
          '... et on note la ligne ou elle se trouve dans L2
          .Cells(C1.Row, "B").Value = C2.Row
        End If
      Next C2
      With .Cells(C1.Row, "B")
        '... si pas trouvée
        If .Formula = "" Then .Value = "non"
      End With
    Next C1
  End With
End Sub

Problème recherche référence vba (double cliquer)

1 réponse

Discussions similaires