Index match VBA taking too long

youbitto · Sep 5, 2024

Hello!

I have this code to index match multiple columns from 2 different sheets at ones but the it takes too long to complete, the code has a column change to text format and another one to run mid()

so my requests are :

1. make the code run faster

2. make a percentage of completion

VBA Code:

Sub INDEX_MATCH()

Dim k As Long

Dim i As Long

i = ActiveSheet.UsedRange.Rows.Count



' k is the column number

For k = 5 To i



Sheets("listCreance").Cells(k, 17).Value = WorksheetFunction.Index(Sheets("List Clients").Range("H:H"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'Adresse
Sheets("listCreance").Cells(k, 18).Value = WorksheetFunction.Index(Sheets("List Clients").Range("U:U"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'N Cpt
Sheets("listCreance").Cells(k, 19).Value = WorksheetFunction.Index(Sheets("List Clients").Range("D:D"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'Nom Client
Sheets("listCreance").Cells(k, 20).Value = WorksheetFunction.Index(Sheets("List Clients").Range("F:F"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'Reference
Sheets("listCreance").Cells(k, 21).Value = WorksheetFunction.Index(Sheets("List Clients").Range("M:M"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'Tarif
Sheets("listCreance").Cells(k, 22).Value = WorksheetFunction.Index(Sheets("List Clients").Range("R:R"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'Etat
Sheets("listCreance").Cells(k, 25).Value = WorksheetFunction.Index(Sheets("List Clients").Range("S:S"), WorksheetFunction.Match(Sheets("listCreance").Cells(k, 4).Value, Sheets("List Clients").Range("F:F"), 0)) 'Date Résiliation

Sheets("listCreance").Cells(k, 23).Value = Mid(Sheets("listCreance").Cells(k, 21), 3, 2)
Sheets("listCreance").Cells(k, 24).Value = Mid(Sheets("listCreance").Cells(k, 20), 1, 7)

On Error Resume Next

Next k

Sheets("listCreance").Columns("T:T").NumberFormat = "000000000000000"

End Sub

youbitto · Sep 6, 2024

AlphaFrog said:
I misspelled WorksheetFunction in the code. Sorry.

now it finishes the job but it lacks the percentage of completion

youbitto · Sep 6, 2024

AlphaFrog said:
I misspelled WorksheetFunction in the code. Sorry.

it finishes the job but it lacks the percentage of completion

Alex Blakenburg · Sep 6, 2024

I'm not up for doing percentage completion, however it indicates it is taking some time to run.

Try this, its a bit long winded but should run in a few seconds.

VBA Code:

Sub DictionaryLookup()

    Dim shtSrc As Worksheet, shtDest As Worksheet
    Dim rngSrc As Range, rngDestIdx As Range, rngDestOut As Range
    Dim arrSrc As Variant, arrDestIdx As Variant, arrDestOut As Variant
    Dim rowLastSrc As Long, rowLastDest As Long
    Dim i As Long, j As Long, colOffset As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set shtSrc = Worksheets("List Clients")
    With shtSrc
        rowLastSrc = .Range("F" & Rows.Count).End(xlUp).Row             ' Use Lookup column
        Set rngSrc = .Range("A1:U" & rowLastSrc)
        arrSrc = rngSrc.Value2
    End With
    
    Set shtDest = Worksheets("listCreance")
    With shtDest
        rowLastDest = .Range("D" & Rows.Count).End(xlUp).Row            ' Use Lookup Value column
        Set rngDestIdx = .Range("D5:D" & rowLastDest)
        arrDestIdx = rngDestIdx.Value2
        Set rngDestOut = .Range("Q" & rngDestIdx.Row)
        ReDim arrDestOut(1 To UBound(arrDestIdx), 1 To 9)               ' Columns 17 (Q) to 25
    End With
    
    ' Column mapping
    Dim colSrc As Variant, colDest As Variant
    colSrc = Array(8, 21, 4, 6, 13, 18, 19)
    colDest = Array(17, 18, 19, 20, 21, 22, 25)
    colOffset = rngDestOut.Column - 1                                   ' Output range starts at Q (col 17) = array col 1
    
    Dim dictSrc As Object, dictKey As String

    Set dictSrc = CreateObject("Scripting.dictionary")
    dictSrc.CompareMode = vbTextCompare
    
    ' Load details range into Dictionary
    For i = 1 To UBound(arrSrc)
        dictKey = arrSrc(i, 6)                                          ' 6 is column F
        If Not dictSrc.exists(dictKey) Then
            dictSrc(dictKey) = i
        End If
    Next i

    ' Get values using Dictionary
    
    
    For i = 1 To UBound(arrDestIdx)
        dictKey = arrDestIdx(i, 1)                                          ' Column D lookup value
        If dictSrc.exists(dictKey) Then
            For j = 0 To UBound(colSrc)
                arrDestOut(i, colDest(j) - colOffset) = arrSrc(dictSrc(dictKey), colSrc(j))
            Next j
            arrDestOut(i, 23 - colOffset) = Mid(arrDestOut(i, 5), 3, 2)     ' U -> W
            arrDestOut(i, 24 - colOffset) = Mid(arrDestOut(i, 4), 1, 7)     ' T -> X
        End If
    Next i
    
    ' Write back Rpt updated data
    rngDestOut.Resize(UBound(arrDestOut), UBound(arrDestOut, 2)).Value2 = arrDestOut
    shtDest.Columns("T:T").NumberFormat = String(15, "0")
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
End Sub

youbitto · Sep 7, 2024

Alex Blakenburg said:

I'm not up for doing percentage completion, however it indicates it is taking some time to run.

Try this, its a bit long winded but should run in a few seconds.

VBA Code:

Sub DictionaryLookup()

    Dim shtSrc As Worksheet, shtDest As Worksheet
    Dim rngSrc As Range, rngDestIdx As Range, rngDestOut As Range
    Dim arrSrc As Variant, arrDestIdx As Variant, arrDestOut As Variant
    Dim rowLastSrc As Long, rowLastDest As Long
    Dim i As Long, j As Long, colOffset As Long
   
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    Set shtSrc = Worksheets("List Clients")
    With shtSrc
        rowLastSrc = .Range("F" & Rows.Count).End(xlUp).Row             ' Use Lookup column
        Set rngSrc = .Range("A1:U" & rowLastSrc)
        arrSrc = rngSrc.Value2
    End With
   
    Set shtDest = Worksheets("listCreance")
    With shtDest
        rowLastDest = .Range("D" & Rows.Count).End(xlUp).Row            ' Use Lookup Value column
        Set rngDestIdx = .Range("D5:D" & rowLastDest)
        arrDestIdx = rngDestIdx.Value2
        Set rngDestOut = .Range("Q" & rngDestIdx.Row)
        ReDim arrDestOut(1 To UBound(arrDestIdx), 1 To 9)               ' Columns 17 (Q) to 25
    End With
   
    ' Column mapping
    Dim colSrc As Variant, colDest As Variant
    colSrc = Array(8, 21, 4, 6, 13, 18, 19)
    colDest = Array(17, 18, 19, 20, 21, 22, 25)
    colOffset = rngDestOut.Column - 1                                   ' Output range starts at Q (col 17) = array col 1
   
    Dim dictSrc As Object, dictKey As String

    Set dictSrc = CreateObject("Scripting.dictionary")
    dictSrc.CompareMode = vbTextCompare
   
    ' Load details range into Dictionary
    For i = 1 To UBound(arrSrc)
        dictKey = arrSrc(i, 6)                                          ' 6 is column F
        If Not dictSrc.exists(dictKey) Then
            dictSrc(dictKey) = i
        End If
    Next i

    ' Get values using Dictionary
   
   
    For i = 1 To UBound(arrDestIdx)
        dictKey = arrDestIdx(i, 1)                                          ' Column D lookup value
        If dictSrc.exists(dictKey) Then
            For j = 0 To UBound(colSrc)
                arrDestOut(i, colDest(j) - colOffset) = arrSrc(dictSrc(dictKey), colSrc(j))
            Next j
            arrDestOut(i, 23 - colOffset) = Mid(arrDestOut(i, 5), 3, 2)     ' U -> W
            arrDestOut(i, 24 - colOffset) = Mid(arrDestOut(i, 4), 1, 7)     ' T -> X
        End If
    Next i
   
    ' Write back Rpt updated data
    rngDestOut.Resize(UBound(arrDestOut), UBound(arrDestOut, 2)).Value2 = arrDestOut
    shtDest.Columns("T:T").NumberFormat = String(15, "0")
   
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
   
End Sub

Hello Mr. Alex This one gives me "Type mismatch" error

Alex Blakenburg · Sep 7, 2024

What line of code is highlighted ?

youbitto · Sep 7, 2024

Alex Blakenburg said:
What line of code is highlighted ?

line 13

Alex Blakenburg · Sep 7, 2024

When you get that error in the immediate window put
? i
and then
? arrSrc(i,6)
and show me what you get.

Also what is in sheet List Clients in column F row i (using the number your got for i above)
PS: I need to see the formula bar of that cell.

youbitto · Sep 7, 2024

Alex Blakenburg said:
When you get that error in the immediate window put
? i
and then
? arrSrc(i,6)
and show me what you get.

Also what is in sheet List Clients in column F row i (using the number your got for i above)
PS: I need to see the formula bar of that cell.

Yes the error comes immediately

The column F in List Clients is the link between the two sheets

Alex Blakenburg · Sep 7, 2024

It doesn't sound like you are familiar with the immediate window.

When you are in the VBA screen enter Ctrl+G a window will pop up called the immediate window.
When the code crashes enter
? i and hit enter (enter question mark followed by i )
Then enter
? arrSrc(i,6) and hit enter
Then go to that line in the Client List

youbitto · Sep 7, 2024

Alex Blakenburg said:
Copy a couple of the values from the formula bar and post them here so I can use them to test.

936 list coupure - Copie.xlsm

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

AE

36400

Code

Intitule

Categorie

Référence

Intitulé lieu (FSM)

Adresse

Etat

Code paiement

Taxe d'habitation

Numéro

Tarif

CAE

Pmd/Dmd

Date integration

Date effet

Etat

Date resiliation

TVA

Numéro

Type

Année de fabrication

Situation

Marque

Nombre fils

Date mise en service

Etat

Code abonné

36401

378

9399P001024

TLAGITE SEDDIK

A.Ordinaire

1,80202E+13

N 28HAI CHEIKH BOUAMAMA

ACTIF

A

Non exonéré

93600241E1999

54M

Y810

6

36390

36383

Contrat actif

Non exonéré

009601

MECANIQUE

1999

Accessible

2

36390

Actif

114510

productif

36402

378

9399P001024

TLAGITE SEDDIK

A.Ordinaire

1,80202E+13

N 28HAI CHEIKH BOUAMAMA

ACTIF

A

Non exonéré

93600241E1999

54M

Y810

6

18/08/1999

11/08/1999

Contrat actif

Non exonéré

9601

MECANIQUE

1999

Accessible

2

18/08/1999

Actif

114510

productif

36403

1157

9309P000414

BOUTADARA ABDELKADER

A.Ordinaire

1,80204E+13

KSAR IKKIS

ACTIF

A

Non exonéré

93600085E2009

54M

Y810

20

15/01/2009

Contrat actif

Non exonéré

61181

ELECTRONIQUE

2004

Accessible

SAGEM

4

15/01/2009

Actif

93600085E2009

productif

36404

1192

9383P006189

BOUTADARA ABDALL

A.Ordinaire

1,80204E+13

AH IKIS

ACTIF

A

Non exonéré

93600972E1983

54M

Y810

4

11/04/1983

10/04/1982

Contrat actif

Non exonéré

6748

MECANIQUE

0

N

2

11/04/1983

Actif

114874

productif

36405

1210

9383P006171

BOUTADARA MEBARE

A.Ordinaire

1,80204E+13

K IKIS

ACTIF

A

Non exonéré

93600980E1983

54M

Y810

4

11/04/1983

10/04/1982

Contrat actif

Non exonéré

4997

MECANIQUE

0

N

2

11/04/1983

Actif

93600980E1983

productif

36406

1231

9303P002844

BOUTADARA SEDDIK

A.Ordinaire

1,80204E+13

KSARIKIS TAMEST

ACTIF

A

Non exonéré

93600277E2003

54M

Y810

6

25/03/2003

19/03/2003

Contrat actif

Non exonéré

6951

MECANIQUE

2002

Accessible

2

25/03/2003

Actif

93600277E2003

productif

36407

1244

9383P006269

BOUTADARA MOHAME

A.Ordinaire

1,80204E+13

D IKIS

ACTIF

A

Non exonéré

93600937E1983

54M

Y810

4

11/04/1983

10/04/1982

Contrat actif

Non exonéré

4430

MECANIQUE

0

N

2

11/04/1983

Actif

114935

productif

36408

1287

9301P003767

BOUTADARA ABDA

A.Ordinaire

1,80204E+13

KSARIKIS

ACTIF

A

Non exonéré

93600287E2001

54M

Y810

4

25/02/2001

24/02/2001

Contrat actif

Non exonéré

1115

MECANIQUE

1982

Accessible

2

25/02/2001

Actif

115008

productif

36409

1502

9383P006433

BEN ABDELKRIM MOHAMED B/AHMED

A.Ordinaire

1,80206E+13

KSAR TMASEKH

ACTIF

A

Non exonéré

93600911E1983

54M

Y810

4

11/04/1983

10/04/1982

Contrat actif

Non exonéré

7647

MECANIQUE

0

N

2

11/04/1983

Actif

115115

productif

36410

1576

9383P006525

BEN ABDELKRIM AB

A.Ordinaire

1,80206E+13

DELKRIM TEMASSE

ACTIF

A

Non exonéré

93600881E1983

54M

Y810

4

11/04/1983

10/04/1982

Contrat actif

Non exonéré

3264

MECANIQUE

0

N

2

11/04/1983

Actif

115176

productif

36411

3022

9313P002490

CHIBANI AEK BEN BRAHIM

A.Ordinaire

1,80212E+13

KSAR TITAF TAMEST

ACTIF

A

Non exonéré

93601065E2013

54M

Y810

20

04/11/2013

03/11/2013

Contrat actif

Non exonéré

197091

ELECTRONIQUE

2008

Accessible

ENER

4

03/11/2013

Actif

116366

productif

36412

5432

9300P001746

GUEFAF FATIMA

A.Ordinaire

1,80802E+13

08 CITE10 LOGTS TSABIT

INACTIF

A

Non exonéré

93600127E2000

54M

Y810

6

12/12/2000

Contrat résilié

18/06/2023

Non exonéré

8476

MECANIQUE

2000

Accessible

2

12/12/2000

Deposé

118941

improductif

36413

9745

9398P000905

KERROUMI EL BARA

A.Ordinaire

1,80816E+13

KSARARIENE RASSE

ACTIF

A

Non exonéré

93600209E1998

54M

Y810

6

20/09/1998

30/08/1998

Contrat actif

Non exonéré

629

MECANIQUE

1998

Accessible

2

20/09/1998

Actif

121690

productif

0

36414

9771

9319P007888

DAHMANI AHMED B/MED

A.Ordinaire

1,80816E+13

KSAR ARIEN ERASS

INACTIF

A

Non exonéré

93602056E2019

54M

Y810

20

09/09/2019

Contrat résilié

17/04/2022

Non exonéré

319757

ELECTRONIQUE

2010

Accessible

SAG

4

09/09/2019

Deposé

218356

improductif

36415

9864

9387P003107

MBARKI ABDERRAH

A.Ordinaire

1,80816E+13

KSARARIENE RASS TSAB

ACTIF

A

Non exonéré

93600489E1987

54M

Y810

4

03/08/1987

02/03/1987

Contrat actif

Non exonéré

6941

MECANIQUE

1985

N

2

03/08/1987

Actif

121738

productif

36416

9944

9398P001319

KAROUMI BARKA

A.Ordinaire

1,80816E+13

KSARARIENE RASS TSAB

ACTIF

A

Non exonéré

93600205E1998

54M

Y810

4

01/10/1998

23/09/1998

Contrat actif

Non exonéré

21950287905

Electronique

2019

Accessible

AMC

2

17/06/2020

Actif

121793

productif

36417

10083

9387P002865

KARAMBI AEK

A.Ordinaire

1,80816E+13

KSARARIENE RASS TSAB

INACTIF

A

Non exonéré

93600559E2013

54M

Y810

6

19/05/2013

Contrat résilié

10/03/2021

Non exonéré

5316

MECANIQUE

1999

Accessible

ELMA

2

19/05/2013

Deposé

121926

improductif

36418

10121

9387P002825

MEKAOUI SALEM

A.Ordinaire

1,80816E+13

KSARARIENE RASS TSAB

ACTIF

A

Non exonéré

93600411E2012

54M

Y810

6

05/01/2012

Contrat actif

Non exonéré

249514

ELECTRONIQUE

2008

Accessible

SAGEM

2

05/01/2012

Actif

121956

productif

36419

10397

9301P001616

BRIKANE EL MEKKI

A.Ordinaire

1,80816E+13

KSARBRINKANE ADRAR

ACTIF

A

Non exonéré

93600284E2001

54M

Y810

6

07/05/2001

05/05/2001

Contrat actif

Non exonéré

7669

MECANIQUE

2001

Accessible

2

07/05/2001

Actif

122131

productif

36420

32980

9392P001458

SBAGHOU MED BEN

A.Ordinaire

1,82602E+13

KADDOUR SBAA TSABIT

ACTIF

A

Non exonéré

93600088E2010

54M

Y810

4

25/01/2010

Contrat actif

Non exonéré

21950773688

Electronique

2019

Accessible

AMC

2

21/03/2020

Actif

151259

productif

36421

33451

9320P000598

SBAI OTHMEN

A.Ordinaire

1,82602E+13

KSARKSAR SBAA/SBAA

ACTIF

A

Non exonéré

93602202E2020

54M

Y810

20

12/02/2020

Contrat actif

Non exonéré

67039

Electronique

2019

Accessible

SAGEM

4

12/02/2020

Actif

93602202E2020

productif

0

List Clients

936 list coupure - Copie.xlsm

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

4

NÂ° Facture

code client

Client

Referance

Date Facturation

Date Presentation

Date Paiement

Date Paiement cheque

date RÃ©tablissement

date annulation

Statut Creance

Statut Creance dÃ©taillÃ©

Mode rÃ©glement

etat facture

Montant

Actions

Adresse

Numero Cpt

Nom Client

Reference

Tarif

Etat

Ménage / Non Ménage

TEE

Date Résile

5

9,36201E+11

9300P001746

GUEFAF FATIMA

1,80802E+13

18/11/2020

22/12/2020

NON_REGLE

Non reglÃ© (CTC)

DOUTEUSE

184,61

6

9,3621E+11

9387P002825

MEKAOUI SALEM

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

Non reglÃ© (CTC)

DOUTEUSE

184,61

7

9,3621E+11

9398P000905

KERROUMI EL BARA

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

Non reglÃ© (CTC)

DOUTEUSE

184,61

8

9,3621E+11

9387P002865

KARAMBI AEK

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

Non reglÃ© (CTC)

DOUTEUSE

184,61

9

9,3621E+11

9319P007888

DAHMANI AHMED B/MED

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

Non reglÃ© (CTC)

DOUTEUSE

265,37

10

9,36231E+11

9313P002490

MR CHIBANI AEK BEN BRAHIM

1,80212E+13

28/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

190,37

11

9,3621E+11

9387P003107

MBARKI ABDERRAH

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

DOUTEUSE

173,07

12

9,3621E+11

9398P001319

KAROUMI BARKA

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

DOUTEUSE

173,07

13

9,36231E+11

9383P006269

BOUTADARA MOHAME

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

14

9,36231E+11

9303P002844

MR BOUTADARA SEDDIK

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

109,61

15

9,36231E+11

9399P001024

MR TLAGITE SEDDIK

1,80202E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

109,61

16

9,36231E+11

9309P000414

MR BOUTADARA ABDELKADER

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

204,46

17

9,36201E+11

9392P001458

SBAGHOU MED BEN

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

98,07

18

9,36231E+11

9383P006189

BOUTADARA ABDALL

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

19

9,36231E+11

9383P006433

MR BEN ABDELKRIM MOHAMED B/AHMED

1,80206E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

20

9,3621E+11

9301P001616

BRIKANE EL MEKKI

1,80816E+13

07/02/2021

20/03/2021

NON_REGLE

DOUTEUSE

184,61

21

9,36231E+11

9383P006525

BEN ABDELKRIM AB

1,80206E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

22

9,36201E+11

9320P000598

SBAI OTHMEN

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

190,37

23

9,36231E+11

9301P003767

MR BOUTADARA ABDA

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

24

9,36231E+11

9383P006171

BOUTADARA MEBARE

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

25

9,36201E+11

9307P001761

HAIDA ABDELHAMID

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

415,37

26

9,36201E+11

9320P003456

BENHASSAN ABDENNASSER

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

190,37

27

9,36201E+11

9383P002900

BOUKACEM TAHAR

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

4548,85

28

9,36231E+11

9383P006057

BOUFARES MOHAMED

1,80202E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

29

9,36201E+11

9316P005012

IDRISSI ABDERRAHMANE

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

109,61

30

9,36201E+11

9313P004886

SBAI MEREME B/AHMED

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

415,37

31

9,36201E+11

9300P003308

BASSA MEBROUK

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

2254,87

32

9,36201E+11

9308P003529

DAHANE MED BEN ABDALLAH

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

109,61

33

9,36201E+11

9313P007114

BASSA SLIMANE

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

109,61

34

9,36201E+11

9300P003184

CHOUKA BOUDJAMA

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

109,61

35

9,36201E+11

9395P000077

SBAGHOU AEK SBAA

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

98,07

36

9,31151E+11

9386P001941

ALLALI MEBAREK

1,80214E+13

07/01/2016

31/01/2016

NON_REGLE

DOUTEUSE

149,72

37

9,36201E+11

9390P000875

DAHANE ABDELKADR

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

109,61

38

9,36231E+11

9383P006157

BOUTADARA ABDELA

1,80204E+13

26/06/2023

23/09/2023

NON_REGLE

DOUTEUSE

98,07

39

9,36201E+11

9318P001892

BASSA AHMED B/ABDALLAH

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

2992,99

40

9,36201E+11

9300P003928

SBAGHOU MED NOUFEL

1,82602E+13

21/11/2020

06/01/2021

NON_REGLE

DOUTEUSE

109,61

listCreance

Index match VBA taking too long

youbitto

New Member

youbitto

New Member

Excel Facts

youbitto

New Member

Alex Blakenburg

MrExcel MVP

youbitto

New Member

Alex Blakenburg

MrExcel MVP

youbitto

New Member

Attachments

Alex Blakenburg

MrExcel MVP

youbitto

New Member

Attachments

Alex Blakenburg

MrExcel MVP

youbitto

New Member

Similar threads

Forum statistics

Share this page

Index match VBA taking too long

New Member

New Member

Excel Facts

New Member

MrExcel MVP

New Member

MrExcel MVP

New Member

Attachments

MrExcel MVP

New Member

Attachments

MrExcel MVP

New Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock