Problème de tableau en listeRésolu

Question

Bonjour à tous, 

J'ai une erreur (9) dans mon codeci-dessous,  à la ligne TabTests(i) = Ref, et je ne trouve pas pourquoi.

'contruction du tableau
'======================
    Dim Ref As String   'Référence du Test
    Dim TabTests()      'Déclaration tableau variable
    'Taille du tableau
    Dim Fin As Integer  'N° de la dernière ligne du tableau
    Fin = Sheets("CertJG").Range("BZ65536").End(xlUp).Row - 1
    'Redimentionner si plusieurs Tests ont été trouvés
    If Fin > 1 Then ReDim TabTests(Fin)
    ' Avec un seul test trouvé, Fin = 0
    For i = 0 To Fin
        'Référence du Test trouvé (exemple Ref = "45")
        Ref = Sheets("CertJG").Range("BZ" & i + 1).Value
        'ERREUR D'EXECUTION (9)
        'L'indice n'appartient pas à la sélection
        TabTests(i) = Ref
    Next i

 
Merci de votre aide
Cordialement

ucfoutu · Answer

Bonjour,
ton tableau n'étant pas dimensionné, je vois mal comment tu peux accéder à son indice i !

De toutes manières : ne pas chercher midi à 14 heures et remplir le tableau d'un seul coup, ainsi (exemple) :
Dim tableau
tableau = Range("B1:C3")
et tableau contiendra toutes les valeurs  (ici sur 2 colonnes, donc) de la plage traitée.

ucfoutu · Answer

En appelant ton attention sur le fait que le tableau ainsi obtenu sera en option base 1 (et non 0)
tableau(2,2) , donc (exemple) pour avoir le contenu de la cellule B2 (2ème ligne, 2ème colonne de la plage et du tableau)

4u4me4us · Answer

Fin vaut 1 de trop.

Je pense que Sheets("CertJG").Range("BZ65536").End(xlUp).Row = 10
Donc Fin  = 9

Ce qui fait que ReDim TabTests(Fin) créer un tableau dans les case vont de 0 à 8 (PAS DE 0 à 9 ) !!!

Donc For i = 0 To Fin fait que i va de 0 à 9 alors qu'il doit aller de 0 à 8.

Solution  For i = 0 To Fin-1 ou ajouter fin=fin-1 avant la boucle for.

Note que la solution de ucfoutu est la meilleur. ça solution mérite que tu t'y attardes. Avec ma réponse tu sais pour quoi ta solution, qui est louable, ne fonctionne pas.

CerberusPau · Answer

J'ai donc choisi la première solution de Ucfoutu pour créer le tableau TabTests en voulant en afficher les résultats dans une MsgBox.

J'ai essayé 2 cas, avec un seul test trouvé et avec plusieurs, mais j'ai une erreur 13 dans les 2 cas.

'contruction du tableau
'======================
    Dim TabTests()      'Déclaration tableau variable
    Dim Fin As String   'N° de la dernière ligne du tableau
    Fin = Sheets("CertJG").Range("BZ65536").End(xlUp).Row
    If Fin = 1 Then     'un seul test trouvé
        TabTests = Sheets("CertJG").Range("BZ1").Value
        'si un seul test =>Erreur 13 : incompatibilité de type
    Else                'plusieurs tests trouvés
        TabTests = Sheets("CertJG").Range("BZ1:BZ" & Fin).Value
    End If
    MsgBox TabTests 'si plusieurs tests =>Erreur 13 : incompatibilité de type

 
Je ne vois pas ce que je dois faire pour corriger l'erreur 9 précédente et les erreurs 13 ici...

Merci

CerberusPau · Answer

Je ne pensais pas qu'un tableau de une ligne n'était pas reconnu en tant que tableau. Je le saurai, et donc qu'il faille passer par un If.

Effectivement j'ai la mauvaise de déclarer les "valeurs" de colonnes en String pour les Range. Je corrige donc, comme tu me le demandes:
Dim tableau
Dim Lst
Lst = Range("BZ65536").End(xlUp).Row
tableau = Range("BZ1:BZ" & Lst)
If Lst = 1 Then
    MsgBox Range("BZ1:BZ" & Lst).Value
Else
    For i = 1 To UBound(tableau)
        MsgBox tableau(i, 1)
    Next
End If

 
Dernier point : MsgBox tableau(i) n'est donc pas correct quand il n'y a qu'une simple liste (un seule "colonne")?

ucfoutu · Answer

Non ! pas correct ! relis donc ce que j'ai écrit plus haut . Le tableau résultant d'une plage  a DEUX dimensions et non une. Elles sont en option base 1.

CerberusPau · Answer

Donc ça veut dire que pour une seule dimension (une liste), je dois mettre l'option Option Explicit Option Base 0 en tête de module, pour que  MsgBox tableau(i) soit correct?

ucfoutu · Answer

1) Je n'ai jamais dit cela
2) faire ton expression conditionnelle sir le base de ta variable lst = 1 est maladroit (je t'expliquerai pourquoi ce soir)
3) les tableaux dynamiques créés pour traiter les celluyles de Excel doivent toujours être en option base 1 si l'on veut pouvoir profiter des énormes facilités qu'ils offrent et de leur grande agilité 
5) j'ai déjà (il y a entre 6 mois et un an) déjà traité ce problème en créant une procédure polyvalente
4) c'est l'heure de la marée et la pêche est prioritaire. Je reviendrai après dîner avec, à nouveau, l'écriture une procédure polyvalente 
 A plus (à ce soir après dîner).

ucfoutu · Answer

Bon sars et louvines étaient là ... tout va bien).


Alors : voilà la fonction universelle que je viens d'écrire :
Private Function faire_tableau(plage As Range)
 If plage.Cells.Count < 2 Then
    Dim tabli(1 To 1, 1 To 1)
    tabli(1, 1) = plage.Value
    faire_tableau = tabli
    Erase tabli
  Else
    faire_tableau = plage.Value
  End If
End Function
 
Elle est à utiliser ainsi (exemple)

 tabl = faire_tableau(Range("A1:A3"))
  
  ' la suite n'est là que comme preuve de la bonne exécution
  For i = 1 To UBound(tabl, 1)
    For j = 1 To UBound(tabl, 2)
      MsgBox tabl(i, j)
    Next
  Next

toujours vrai, quelle que soit la plage (une cellule, une seule colonne, une seule ligne ou plusieurs colonnes et lignes
et le tableau retourné sera toujours en base 1 et contiendra toujours les valeurs de la plage traitée.
Rien ne devrait maintenant te manque, CerberusPau

CerberusPau · Answer

Merci Ucfoutu. 

Ta fonction "universelle" est beaucoup plus pratique que la solution "If" (je risquai effectivement d'avoir à batailler!).

Il me reste à "construire" le message qui doit afficher chaque valeur du tableau, ligne par ligne :

tabl = faire_tableau(Range("A1:A3"))
  
  ' la suite n'est là que comme preuve de la bonne exécution
 Ligne = "" 
 For i = 1 To UBound(tabl, 1)
    For j = 1 To UBound(tabl, 2)
       If Ligne = "" then 
         Ligne = Ligne & tabl(i, j)
       Else
         Ligne = Ligne & chr(13) & tabl(i, j)
       End if
     Next j
  Next i
 If Ligne <> "" then MsgBox Ligne

Problème de tableau en liste

10 réponses

Votre réponse