Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 rechercheV entre deux tableau vba excel

I

iliess

XLDnaute Occasionnel
bonjour
je souhaite faire une recherchev entre deux tableau (Arr et Brr) en vba et j'obtient l'erreur suivante Erreur 2042 dans cette ligne Arr(i, 4) = Application.VLookup(Arr(i, 3), Brr, 3, False)
VB: 
Sub rechervArr()
Dim Arr As Variant, Brr As Variant
Dim chn$, p1 As Byte
Dim i As Long
Arr = Range("A2:B5")
Brr = Range("g2:j8")
ReDim Preserve Arr(1 To 4, 1 To 4)
For i = LBound(Arr) To UBound(Arr)
    chn = Arr(i, 2)
    p1 = InStr(chn, "-")
    Arr(i, 3) = Left(chn, p1 - 1)
    Arr(i, 4) = Application.VLookup(Arr(i, 3), Brr, 3, False)
Next i
End Sub
svp qu'elle est la solution
 

Pièces jointes

  • recherchev entre deux tableau vba excel.xlsm
    14.9 KB · Affichages: 4
  • Vlookup vba excel.png
    51.2 KB · Affichages: 21
Solution
Bonsoir,

La solution : Fonction Match (Position dans une matrice) dans une variable tableau 2 D
Avec gestion Erreur si aucune correspondance.
VB: 
If Not IsError(Application.Match(p1, Application.Index(Brr, , 1), 0)) Then Arr(i, 4) = Brr(Application.Match(p1, Application.Index(Brr, , 1), 0), 3)
VB: 
Option Explicit
Sub rechervArr()
Dim Arr As Variant, Brr As Variant
Dim chn$, p1 As Double
Dim i As Long
Arr = Range("A2:B5")
Brr = Range("g2:j8")
ReDim Preserve Arr(1 To 4, 1 To 4)
For i = LBound(Arr) To UBound(Arr)
    chn = Arr(i, 2)
    p1 = Split(Replace(chn, "_", "-"), "-")(0)
    Arr(i, 3) = p1
    ' Application.Match(p1, Application.Index(Brr, , 1), 0)
    ' Recherche dans colonne 1 du tableau Brr()
    ' Trouve le Numéro de ligne...
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonsoir iliess,

Le bug a lieu sur Arr(i, 3) = Left(chn, p1 - 1)

Parce que pour i = 4 p1 vaut zéro.

Et ceci parce qu'il n'y a pas de tiret "-" en B5, ce sont tous des tirets bas "_".

A+
 
Vote positif 0 Vote négatif
I

iliess

XLDnaute Occasionnel
bonsoir job75
merci pour votre réponse
si
i = 1
p = 6
Arr(1,3)=25143
donc si je rechrchev 25143 dans le tableau je trouve Arr(1,4)=963852
mais le code affiche Erreur 2042 comme indiqué dans la capture d'ecrand
 
Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc
Bonsoir,

La solution : Fonction Match (Position dans une matrice) dans une variable tableau 2 D
Avec gestion Erreur si aucune correspondance.
VB: 
If Not IsError(Application.Match(p1, Application.Index(Brr, , 1), 0)) Then Arr(i, 4) = Brr(Application.Match(p1, Application.Index(Brr, , 1), 0), 3)
VB: 
Option Explicit
Sub rechervArr()
Dim Arr As Variant, Brr As Variant
Dim chn$, p1 As Double
Dim i As Long
Arr = Range("A2:B5")
Brr = Range("g2:j8")
ReDim Preserve Arr(1 To 4, 1 To 4)
For i = LBound(Arr) To UBound(Arr)
    chn = Arr(i, 2)
    p1 = Split(Replace(chn, "_", "-"), "-")(0)
    Arr(i, 3) = p1
    ' Application.Match(p1, Application.Index(Brr, , 1), 0)
    ' Recherche dans colonne 1 du tableau Brr()
    ' Trouve le Numéro de ligne
    ' Puis
    ' Brr(Trouve le Numéro de ligne du tableau Brr pour la valeur P1, Puis choix de la colonne de la ligne ici la colonne 3 du tableau Brr)
    Arr(i, 4) = Brr(Application.Match(p1, Application.Index(Brr, , 1), 0), 3)
Next i
End Sub
 
Dernière édition:
Vote positif 1 Vote négatif
Solution

job75

XLDnaute Barbatruc
Bonjour iliess, laurent950, le forum,

Il n'est pas nécessaire de passer par Application.Match, Application.VLookup (RECHERCHEV) va très bien.

Simplement comme en colonne G ce sont des nombres il faut convertir Arr(i, 3) en nombre :
VB: 
Sub rechervArr()
Dim Arr As Variant, Brr As Variant
Dim chn$, p1 As Byte
Dim i As Long
Arr = Range("A2:B5")
Brr = Range("g2:j8")
ReDim Preserve Arr(1 To 4, 1 To 4)
For i = LBound(Arr) To UBound(Arr)
    chn = Arr(i, 2)
    p1 = InStr(chn, "-")
    Arr(i, 3) = Left(chn, p1 - 1)
    If IsNumeric(Arr(i, 3)) Then Arr(i, 3) = CDbl(Arr(i, 3)) 'convertit en nombre
    Arr(i, 4) = Application.VLookup(Arr(i, 3), Brr, 3, False)
Next i
[A2:D5] = Arr 'affiche les résultats en colonnes C et D
End Sub
A+
 

Pièces jointes

  • recherchev entre deux tableau vba excel.xlsm
    15.9 KB · Affichages: 5
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour iliens, laurent950, le forum,

La solution de Laurent beugue s'il n'y a pas de correspondance.

Voyez le fichier joint avec 25140 en B2 au lieu de 25143.

Pas de problème avec ma solution post #6.

A+
 

Pièces jointes

  • recherchev entre deux tableau vba excel.xlsm
    16.9 KB · Affichages: 1
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

I
  • Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
437
iliess
I
I
  • Résolu(e)
Microsoft 365 Placer un tableau VBA dans un tableau structuré Excel
Réponses
14
Affichages
459
mapomme
I
  • Résolu(e)
Microsoft 365 remplir un tableau Arr() en vba à partir des cellules visible
Réponses
4
Affichages
758
iliess
I
  • Question
XL 2010 Code de l'IA à corriger
2 3
Réponses
33
Affichages
2 K
cathodique
I
  • Question
Microsoft 365 insères une ligne après chaque compte avec un sous.total
Réponses
2
Affichages
591
iliess
I
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
1 K
NONO14
N
G
  • Question
Microsoft 365 Export données
Réponses
4
Affichages
426
GClaire
G
I
  • Résolu(e)
XL 2019 Extraire avec condition un Numéro dans une chêne de caractère VBA Excel
2
Réponses
21
Affichages
2 K
iliess
I
N
  • Question
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
268
NONO14
N
I
  • Question
XL 2019 Filtre Avancé avec un tableau comme cristaire vba
Réponses
0
Affichages
923
iliess
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…