ERREUR incompatibilité 13_Application.Index

Version imprimable

Bonjour à tous,

Je me permets de vous solliciter car dans le cadre de mon travail je tente de mettre en place un userform qui permettrait en fonction de filtre multicritères d'extraire des colonnes définis d'une base de donnée dynamique. Pour ce faire et étant débutant en la matière, je me suis appuyer sur les tuto boisgontiers ( que je remercie au passage :D).

Code:

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
Private Sub UserForm_Initialize()
On Error Resume Next
  NomTableau = "Tableau1"
  TblBD = Range(NomTableau).Value
  NbCol = UBound(TblBD, 2)
  Set d = CreateObject("scripting.dictionary")
  For i = LBound(TblBD) To UBound(TblBD)
    d(TblBD(i, 9)) = ""
  Next i
  Me.ChoixListBox1.List = d.keys
  Set d = CreateObject("scripting.dictionary")
  For i = LBound(TblBD) To UBound(TblBD)
    d(TblBD(i, 6)) = ""
  Next i
  Me.ChoixListBox2.List = d.keys
  Set d = CreateObject("scripting.dictionary")
  d.comparemode = vbTextCompare
  For i = LBound(TblBD) To UBound(TblBD)
    d(TblBD(i, 10)) = ""
  Next i
  Me.ChoixListBox3.List = d.keys
  Me.ListBox1.ColumnCount = NbCol + 1
  Me.ListBox1.List = TblBD
  Range(NomTableau).ClearFormats
  EnteteListBox
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub EnteteListBox()
   x = Me.ListBox1.Left + 8
   Y = Me.ListBox1.Top - 20
   For c = 1 To NbCol
       Set Lab = Me.Controls.Add("Forms.Label.1")
       Lab.Caption = Range(NomTableau).Offset(-1).Item(1, c)
       Lab.ForeColor = vbBlack
       Lab.Top = Y
       Lab.Left = x
       Lab.Height = 24
       Lab.Width = Range(NomTableau).Columns(c).Width * 1#
       x = x + Range(NomTableau).Columns(c).Width * 1
       tempcol = tempcol & Range(NomTableau).Columns(c).Width * 1# & ";"
   Next c
   tempcol = tempcol
   On Error Resume Next
   Me.ListBox1.ColumnWidths = tempcol
   On Error GoTo 0
End Sub

Code:

1
2
3
4
5
6
7
8
9
Private Sub ChoixListBox1_change()
  Affiche
End Sub
Private Sub ChoixListBox2_change()
  Affiche
End Sub
Private Sub ChoixListBox3_change()
  Affiche
End Sub

Code:

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
Sub Affiche()
  Set dchoisis1 = CreateObject("Scripting.Dictionary")
  For i = 0 To Me.ChoixListBox1.ListCount - 1
    If Me.ChoixListBox1.Selected(i) Then dchoisis1(Me.ChoixListBox1.List(i, 0)) = ""
  Next i
  Set dchoisis2 = CreateObject("Scripting.Dictionary")
  For i = 0 To Me.ChoixListBox2.ListCount - 1
    If Me.ChoixListBox2.Selected(i) Then dchoisis2(Me.ChoixListBox2.List(i, 0)) = ""
  Next i
  Set dchoisis3 = CreateObject("Scripting.Dictionary")
  For i = 0 To Me.ChoixListBox3.ListCount - 1
    If Me.ChoixListBox3.Selected(i) Then dchoisis3(Me.ChoixListBox3.List(i, 0)) = ""
  Next i
  n = 0: Dim Liste()
  For i = LBound(TblBD) To UBound(TblBD)
     tmp = TblBD(i, 9)
     tmp2 = TblBD(i, 6)
     tmp3 = TblBD(i, 10)
     If (dchoisis1.exists(tmp) Or dchoisis1.Count = 0) _
        And (dchoisis2.exists(tmp2) Or dchoisis2.Count = 0) _
          And (dchoisis3.exists(tmp3) Or dchoisis3.Count = 0) Then
         n = n + 1
         ReDim Preserve Liste(1 To NbCol + 1, 1 To n)
         For k = 1 To NbCol
            Liste(k, n) = TblBD(i, k)
         Next k
         Liste(k, n) = i
     End If
  Next i
  If n > 0 Then
    Me.ListBox1.Column = Liste
    Range(NomTableau).ClearFormats
    For i = 0 To Me.ListBox1.ListCount - 1
      ligne = Me.ListBox1.List(i, NbCol)
      Range(NomTableau).Cells(ligne, 1).Resize(, NbCol).Interior.ColorIndex = 4
    Next i
  Else
    Me.ListBox1.Clear
  End If
 
  Me.txtnbreco.Value = Me.ListBox1.ListCount
 
 
end sub

Si les lignes de code supra fonctionne correctement, à ce stade j'ai un problème (erreur d'incompatibilité 13) lorsque je veux extraire les données apparaissant dans ma listbox (résultant de mes précédents filtres) dans un nouvel onglet. Voici la ligne de code qui cause le problème (erreur sur la ligne en gras) :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub recu_Click()
Application.ScreenUpdating = False
  Set f = Sheets("EXTRACTION")
  n = ListBox1.ListCount
  Tbl = Me.ListBox1.List
  f.[A2].Resize(100000, NbCol + 1).ClearContents
  f.[A2].Resize(n, 13) = Application.Index(Tbl, Evaluate("Row(1:" & n & ")"), Array(1, 3, 6, 2, 4, 5, 7, 8, 9, 10, 11, 12, 13))
  

End Sub

Si l'un d'entre vous pouvait m'expliquer comment corriger cette erreur ou adapter le code au besoin, je lui en serais très reconnaissant.

Je vous remercie d'avance ;

12/01/2021, 17h27
Pierre Fauconnier
Salut.

En 2016, il y a Power Query qui fait cela sans macros.

Même avec macros, l'utilisation du dictionnaire n'est absolument pas utile pour réaliser cela. "Penser Excel avant de penser VBA" devrait à mon sens être un leitmotiv pour créer ce genre de programme. Les solutions de boisgontier sont à mon sens inappropriées, obsolètes et antédiluviennes, pour la plupart. Elles font appel à des notions de programmation pure que l'on met souvent en oeuvre sans les comprendre, et leur adaptation amène régulièrement à l'usine à gaz qui pète au moindre changement:
- Inappropriées car l'utilisation de [A1] est à mon sens à bannir, ainsi que le dictionnaire, en plus en late binding ce qui fait qu'on utilise l'outil sans l'aide à la saisie qui permet de mieux le manipuler;
- Obsolète parce que l'on devrait travailler sur des tableaux structurés et donc bannir le code du style f.[A2].Resize(100000, NbCol + 1).ClearContents (Le resize 100000 était déjà une ineptie à l'époque, mais ça l'est encore plus aujourd'hui);
- Antédiluviennes car elles utilisent souvent un [a65536]... alors qu'on est passé à 1048576 lignes depuis 2007 (13 ans, quand même).
Que ce soit avec Excel/Power Query ou en VBA, il faut, à mon sens, utiliser les tableaux structurés et ne pas hésiter à utiliser les outils d'Excel en VBA.

Pourrais-tu détailler ton problème avec des copies d'écran de tes tableaux et userforms?
12/01/2021, 19h26
eivor

2 pièce(s) jointe(s)

Bonjour Pierre,

je te remercie de ton retour. Je voudrais tout d'abord insister sur le fait qu'étant débutant j'essaie de me débrouiller avec les différents supports trouvés et que jusqu'à présent, le site boigontiers apparaissait comme le plus didactique pour apprendre en pratiquant

Les données de mon travail étant sensibles et confidentielles je peux te soumettre un cadre que j'ai reproduit sur mon ordinateur personnel afin de pouvoir pratiquer.

Le tableau ci-dessous contient 15 colonnes mais le fichier de travail contient 44 colonnes.

Pièce jointe 588380

je joint une capture d'écran de l'userform. ici ma listbox se remplit en fonction des éléments cochés.
le probleme que je rencontre et au moment de l'extraction.
Ici par exemple je souhaiterai programmer le bouton afin d'extraire uniquement les colonnes A, H, M, dans une nouvelle feuille " extraction" ( dans le fichier que je vais utiliser pour le travail, je souhaiterai extraire plus de colonnes [13 au total].

Pièce jointe 588382

Ps la mise en forme laisse à désirer ce fichier m'a servi de support.

Je te remercie pour ton aide .

Cordialment ;

1 pièce(s) jointe(s)

Pièce jointe 588501 je joint également le fichier qui m'a servi pour m'exercer . ici le code marche, mais lorsque je passe sur mon fichier de travail , l'erreur 13 apparait sur ce bout de code. :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub recu_Click() Application.ScreenUpdating = False Set f = Sheets("EXTRACTION") n = ListBox1.ListCount Tbl = Me.ListBox1.List f.[A2].Resize(100000, NbCol + 1).ClearContents f.[A2].Resize(n, 4) = Application.Index(Tbl, Evaluate("Row(1:" & n & ")"), Array(1, 3, 6, 8)) End Sub

14/01/2021, 05h55
Pierre Fauconnier

Le seul problème que je vois qui pourrait amener cela, c'est une listbox vide. Tu devrais démarrer la ligne qui pose problème par If n > 0 Then pour tester que tu as au moins une ligne dans ton tableau.
14/01/2021, 12h07
eivor

Bonjour Pierre,

je pense avoir identifié le problème mais je ne vois pas comment le résoudre.
Il semblerait que dans mon fichier de travail il y ai des données de type 16 ( erreur valeur) dans certaines colonnes ( Pour rappel i: s'agit la d'un fichier de 70 colonnes qui s'alimente de façon dynamique ).

Si tu a une idée de comment contourner le problème je suis preneur.

Cdt
19/01/2021, 19h20
thekat

[XL-2016] ERREUR incompatibilité 13_Application.Index

Bonjour à tous,

Il semblerait que dans mon fichier de travail il y ait des données de type 16 ( erreur valeur) dans certaines colonnes

Faire tourner le code sur un fichier de "travail", pas sur l'original

____Entrer dans le code quand çà bug

Passer la souris sur la variable colonne et la variable ligne ou mettre un espion ligne et un espion colonne

____Identifier la valeur qui pose pb

Corriger la valeur pour poursuivre le débug, voir si d'autre colonnes ont un pb.

Une fois les données à pb identifiées soit filtrer le masque de saisie (possible ?) soit corriger la saisie à pb par du code.

Bon courage pour les 70 colonnes ...