Variables tableau : erreur Type Mismatch

Version imprimable

Bonjour à tous et meilleurs voeux pour 2016 :chin:
Je suis en train de modifier une macro en utilisant des tableaux à deux dimensions afin d’optimiser mon temps de traitement, actuellement 144,6 sec…
Dans un premier temps j’ai déclaré mes deux tableaux
Code:

1 2 Dim Table1() As String 'Declaration du tableau 1 Dim Table2() As String 'Declaration du tableau 2
Puis j’ai chargé mes tableaux :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 ReDim Table1(0 To NbLine, 18) '18 etant le Nb de Col du fichier avec les donnees detaillees ReDim Table2(0 To NbLine1, 20) '20 etant le Nb de Col du fichier qui doit être importe For i = 0 To UBound(Table1, 1) For j = 0 To 18 Table1(i, j) = Up.Offset(i, j) Next j Next i For i2 = 0 To UBound(Table2, 1) For j2 = 0 To 18 Table2(i2, j2) = Tsk.Offset(i2, j2) Next j2 Next i2
L’objectif de ma macro est de comparer certaines valeurs des deux tableaux pour modifier l’un d’entre eux et ensuite aller modifier mon fichier Excel avec le tableau mis à jour.
Code:

1 2 3 4 5 6 For i = 0 To NbLine1 For j = 0 To NbCol1 Tsk.Offset(i, j) = Table1(i, j) Next j Next i
Le problème est que j’obtiens une erreur “Type Mismatch” sur la ligne suivante
Code:

1 2 If ((Table2(i2, 12) = 0 Or Table2(i2, 12) = "") And Table1(i, 14) = "00:00:00") Or ((Table2(i2, 12) = 0 Or Table2(i2, 12) = "") And Table1(i, 14) <> "00:00:00") Then
J’ai mis un espion sur

Citation:

Table2(i2, 12)

et je vois que ma variable est du type String, comme déclarée précédemment
J’ai mis un autre espion sur l’expression

Citation:

(Table2(i2, 12) = 0 Or Table2(i2, 12) = "")

et là mon expression est du type Integer, je pense que c’est là que ça cloche mais je ne sais pas pourquoi…
Quelqu’un a-t-il une idée sur la co..rie que j’ai pu faire ou sur ce que je n’ai pas fait ?
Merci pour votre aide et votre collaboration
Eric

29/01/2016, 19h40
joe.levrai

Bonjour,

déclarer tes tableaux en String, et tout manipuler ainsi, c'est vraiment ce que tu souhaites ?

si tel est le cas, entourer ton 0 par des guillemets, afin d'avoir une chaine de caractère au lieu d'un nombre... ça devrait le faire pour ce problème ?
29/01/2016, 20h13
Marc-L

'soir !

Juste en passant, pas besoin de boucle pour affecter les valeurs d'une plage de cellules à une variable tableau !
Suffit de lire le tutoriel ou les nombreux exemples dans les discussions de ce forum …
Et si les données ne sont pas du même type, mieux vaut laisser la variable en Variant !

______________________________________________________________________________________________________
Je suis Paris, Charlie, …
29/01/2016, 21h21
eric4459

MarcL,
Si j'écris

Code:

Table1(i,j)= Range(A1: T6630)

Toutes les valeurs de mon tableau prendront les valeurs de chacune des cellules et donc pas besoin de boucler, c'est ça?
Éric

teste ça sur une feuille vierge

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Tableaux()
Dim LesValeurs()
 
For i = 1 To 20
    For j = 1 To 26
        Cells(i, j).Value = "$" & Chr(64 + j) & "$" & i
    Next j
Next i
 
LesValeurs = Cells(1, 1).CurrentRegion.Value
MsgBox LesValeurs(2, 4) & " = " & Cells(2, 4).Address
 
End Sub

Code:

1
2
3
Table1()= Range(A1: T6630)
Range(A1: T6630)=Table1
Range("a1").Resize(ubound(Table1),ubound(Table1,1))=Table1

01/02/2016, 12h13
eric4459
MarcL,
Voici la page que j'ai consulté et qui m'a fait pensé que je codais correctement pour charger mon tableau, mais j'ai peut-être zappé une subtilité

http://didier-gonard.developpez.com/...s-tableau-vba/

et plus précisément le chapitre: VIII-B-2. Via une variable tableau à deux dimensions.

Voilà donc pour charger mon tableau, ce n'est peut-être pas la méthode la plus rapide, (j'ai testé les propositions de Robert et de Joe sans succès ) mais le tableau se charge -> vérification avec Debug.Print.

Mon souci, Type Mismatch demeure, même si j'ai déclaré mes tableaux différemment
Code:

1 2 Dim Table1() 'Declaration du tableau 1 Dim Table2() 'Declaration du tableau 2
Ce que je souhaite faire n'est peut-être pas possible avec les tableaux car je veux effectuer des comparaisons des valeurs de mes tableaux entre eux et avec des données extérieures du type
Code:

1 2 3 If Month(Table2(i2, 14)) = Month(Data_Date) And Year(Table2(i2, 14)) = Year(Data_Date) Then Table2(i2, 12) = Table2(i2, 14) End If
Dans l'exemple ci-dessus

Code:

Month(Table2(i2, 14))

a pour valeur dans ma fenêtre d'espions

Citation:

<Type mismatch>

Comme mon code sans utilisation des tableaux à deux dimensions fonctionne et a moins que quelqu'un ne puisse m'aiguiller, je vais donc rester sur cette version.

Eric

Bonjour,
ton tableau contient des variants pas des dates!

Code:

1
2
3
4
5
6
 
Dim Table1() as varaiant  'Declaration du tableau 1
Dim Table2()  as varaiant  'Declaration du tableau 2
'<Type mismatch>
'Month(Table2(i2, 14))
Month(cdate(Table2(i2, 14))) '<Type Date>

01/02/2016, 12h43
eric4459
Bonjour Robert,
Erreur de copie de mon code, voici ce que j'ai mis
Code:

1 2 Dim Table1() 'As Variant 'Declaration du tableau 1 Dim Table2() 'As Variant 'Declaration du tableau 2
De fait l'erreurType Mismatch intervient plus loin dans mon code et non plus au début
Eric

Robert,
Je viens de m'apercevoir que

Code:

1
2
Dim Table1() As Variant 'Declaration du tableau 1
Dim Table2()   As Variant 'Declaration du tableau 2

Code:

1
2
Dim Table1()  'Declaration du tableau 1
Dim Table2()   'Declaration du tableau 2

c'est la même chose :oops:

01/02/2016, 12h47
Invité

Oui
01/02/2016, 13h12
eric4459

Robert,
Et donc ce que je souhaite faire n'est pas possible avec des tableaux à deux dimensions, car certaines données sont des dates, d'autre des nombres, c'est ça?
Eric
01/02/2016, 13h27
Invité

Code:

if isdate(Table2(i2, 14))=true and instr(Table2(i2, 14),"/")<>0 then Month(cdate(Table2(i2, 14)))

Code:

if isdate(Table2(i2, 14))=true and instr(Table2(i2, 14),"/")<>0 then M= Format(Table2(i2, 14),"mm")

Robert,
Ton code m'a mis la puce a l'oreille, voici ce que j'ai écris
Code:

1 2 3 4 5 Table2(i2, 14) = IsDate(Table2(i2, 14)) If Month(Table2(i2, 14)) = Month(Data_Date) And Year(Table2(i2, 14)) = Year(Data_Date) Then Table2(i2, 12) = Table2(i2, 14) End If
J'ai donc passe un écueil mais je bloque par la suite, il semblerai que lors du chargement de ma Table2 je bifurque à un certain moment vers les données qui alimentent ma Table1.
L'une des données de ma Table2 a pour valeur ce que je devrai avoir en Table1, il faut que je vérifie si je ne me suis pas mélangé les pinceaux

Eric

01/02/2016, 20h08
Invité

Attention un numérique est vu comme une date

Code:

if isdate(632) then msgbox "Ok"

d'ou le instr pour tester le "/" d'une date
01/02/2016, 20h48
eric4459

Tout a fait d'accord mais j'obtiens ce que je recherche car Table2(i2, 14) contient bien une date mais précédée d'une apostrophe (donc du texte ). Avec la fonction [IsDate], ma comparaison fonctionne.