Microsoft 365 Trouver une valeur dans une colonne

mikeduff · Aujourd'hui à 14:44

Bonjour à tous,
Voilà bien longtemps que je ne suis plus venu, mais quand un problème qui me parait stupide me bloque ... je reviens...

Le problème (j'ai évidemment extrait et illustré le problème d'un projet beaucoup plus gros) :
Le titre dit tout et parait très simple (rencontré tant de fois), et pourtant...
Je sèche sur cette question simple.
Le problème:
- Une liste 1 de 51 données (string) dans la colonne N
- Une autre liste 2 contenant ces 51 données + quelques autres
- Le but: trouver (et stocker/traiter/...) les données de la liste 2 qui sont absentes dans la liste 1

En annexe, petit classeur Excel qui illustre mon problème (après exécution de la macro).
Ci-dessous la macro:

Code:

Sub Chercher()
Dim TROUVE As Integer
Dim LIGNE_A, LIGNE_D, LIGNE_F, LIGNE_FIN As Integer

Range("F1:F100").ClearContents

LIGNE_A = 3
LIGNE_F = 3
LIGNE_FIN = Range("D1:D1000").Find("FIN").Row
For LIGNE_D = 3 To LIGNE_FIN - 1
    ISIN = Cells(LIGNE_D, 4).Value
    TROUVE = Range("A1:A100").Find(ISIN).Row
           
    If TROUVE > 0 Then
        Cells(LIGNE_F, 6) = "Trouvé ligne" + Str(TROUVE)
    Else
        Cells(LIGNE_F, 6) = ISIN
    End If
    LIGNE_F = LIGNE_F + 1
Next
End Sub

Que constate-t-on ? Tout va très bien pour les 10 premiers éléments, et blocage-erreur au 11ème: l'élément "IE00B0M62Q58" de la liste_F n'est pas présent dans la liste_A et blocage: erreur: "Erreur 91: Variable objet ou variable de bloc With non définie" par l'instruction " TROUVE = Range("A1:A100").Find(ISIN).Row"

L'instruction Find est le problème

Quelqu'un verrait-il une solution?
Merci d'avance pour toute aide

Très cordialement,

wDog66 · Aujourd'hui à 14:59

Bonjour @mikeduff

normalement, comme ceci

VB:

Sub Chercher()
  Dim TROUVE As Integer
  Dim LIGNE_A, LIGNE_D, LIGNE_F, LIGNE_FIN As Integer
  Range("F1:F100").ClearContents
  LIGNE_A = 3
  LIGNE_F = 3
  LIGNE_FIN = Range("D1:D1000").Find("FIN").Row
  For LIGNE_D = 3 To LIGNE_FIN - 1
    ISIN = Cells(LIGNE_D, 4).Value
    On Error Resume Next
    TROUVE = 0:   TROUVE = Range("A1:A100").Find(ISIN).Row
    On Error GoTo 0
    Err.Clear
           
    If TROUVE > 0 Then
      Cells(LIGNE_F, 6) = "Trouvé ligne" + Str(TROUVE)
    Else
      Cells(LIGNE_F, 6) = ISIN
    End If
    LIGNE_F = LIGNE_F + 1
  Next
End Sub

A+

TooFatBoy · Aujourd'hui à 14:58

Bonjour,

mikeduff à dit:
TROUVE = Range("A1:A100").Find(ISIN).Row

À mon avis, il ne faut jamais affecter directement à une variable le résultat d'un Find car si la valeur n'est pas trouvée ça provoque une erreur.

Il faut commencer par tester si le résultat du Find est Nothing.

wDog66 · Aujourd'hui à 14:59

Bonjour @mikeduff

normalement, comme ceci

VB:

Sub Chercher()
  Dim TROUVE As Integer
  Dim LIGNE_A, LIGNE_D, LIGNE_F, LIGNE_FIN As Integer
  Range("F1:F100").ClearContents
  LIGNE_A = 3
  LIGNE_F = 3
  LIGNE_FIN = Range("D1:D1000").Find("FIN").Row
  For LIGNE_D = 3 To LIGNE_FIN - 1
    ISIN = Cells(LIGNE_D, 4).Value
    On Error Resume Next
    TROUVE = 0:   TROUVE = Range("A1:A100").Find(ISIN).Row
    On Error GoTo 0
    Err.Clear
           
    If TROUVE > 0 Then
      Cells(LIGNE_F, 6) = "Trouvé ligne" + Str(TROUVE)
    Else
      Cells(LIGNE_F, 6) = ISIN
    End If
    LIGNE_F = LIGNE_F + 1
  Next
End Sub

A+

sylvanu · Aujourd'hui à 15:26

Bonjour tout le monde,
Ou encore avec un nb.si qui renvoie une valeur non nulle :

VB:

If Application.CountIf(Range("A1:A100"), ISIN) > 0 Then

ce qui évite une gestion d'erreur.

djidji59430 · Aujourd'hui à 15:42

Bonjour à tous,

avec =FILTRE(D3😀24;NB.SI(A3:A54;D3😀24)=0) on a tout de suite le resultat

Crdlmt

TooFatBoy · Aujourd'hui à 16:02

djidji59430 à dit:
avec =FILTRE(D3😀24;NB.SI(A3:A54;D3😀24)=0) on a tout de suite le resultat

Je ne sais pas si on a le résultat, mais on a deux beaux sourires... 😅

sylvanu · Aujourd'hui à 16:10

... et pour ceux qui ne disposent pas de Filtre :

VB:

Sub Chercher()
    Dim Formule$, PlageF
    Range("F1:F100").ClearContents
    Set PlageF = Range("F3:F" & Cells(Cells.Rows.Count, "D").End(xlUp).Row - 1)
    Formule = "=IF(COUNTIF(A:A,D3)>0,""Trouvé en ligne "" & MATCH(D3,A:A,0),D3)"
    PlageF.Formula = Formule
End Sub

mikeduff · Aujourd'hui à 17:03

Eh bien, vous avez été rapides !
Merci beaucoup à tous de vos suggestions. Il y a parmi elles quelques notions que je ne connais pas.
Je vais examiner çà en détail

Encore merci !!
Mike

Microsoft 365 Trouver une valeur dans une colonne

mikeduff

XLDnaute Nouveau

Pièces jointes

wDog66

TooFatBoy

XLDnaute Barbatruc

wDog66

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

Pièces jointes

djidji59430

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

mikeduff

XLDnaute Nouveau

Discussions similaires

Microsoft 365 Trouver une valeur dans une colonne

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency