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

Microsoft 365 VBA run time error 13

ODB

XLDnaute Nouveau
Bonjour à Tous,
Voilà un bon moment que j'essaye de comprendre pourquoi ce message d'erreur "Run time error 13" qui indique un "type mismatch"
L'erreur se produit lors du chargement d'une variable tableau. Celle-ci est déclarée en tant que Variant. Les valeurs chargées dans le tableau sont des valeurs numériques et du texte.

Le début du code est le suivant,

Sub calc_Prix()
'definition des variables
Dim wb As Workbook
Set wb = Workbooks("Catalogue_Reference.xlsm")

Dim feuille_matrice As Worksheet
Set feuille_matrice = wb.Worksheets("Matrice_reference")
Dim Prix As Worksheet
Set Prix = wb.Worksheets("Prix")

Dim der_lig As Long
Dim der_col As Long
Dim matrice As Range
der_lig = feuille_matrice.Range("A" & Rows.Count).End(xlUp).Row
der_col = feuille_matrice.Range("A1").End(xlToRight).Column
feuille_matrice.Activate
Set matrice = feuille_matrice.Range(Cells(1, 1), Cells(der_lig, der_col))

Dim var_gamme, var_ssgamme, var_ref, var_desig As String
'CU=cout unitaire HT
Dim CU_ref As Currency
Dim CU_etiq As Currency
Dim CU_emb1 As Currency
Dim CU_emb2 As Currency
Dim CU_transp1 As Currency
Dim CU_transp2 As Currency
Dim CU_acc As Currency
Dim CU_comp As Currency
Dim CU_market As Currency
Dim K As Single 'K= coeff appliqué sur cout complet pour obtenir le prix

Dim TVA_A As Single
Dim TVA_B As Single
Dim TVA_C As Single
'TVA_A à 5,5% sur produits alimentaires 1ere nécessité
'TVA_B à 20% sur produits alimentaires hors 1ere nécessité
'TVA_C 'TVA à 20% sur produits non alimentaires

TVA_A = 5.5 / 100
TVA_B = 20 / 100
TVA_C = 20 / 100

Sheets("Scenario").Activate
Dim der_lig_S, der_col_S, pre_lig_S, pre_col_S As Long
der_lig_S = Sheets("Scenario").Range("D" & Rows.Count).End(xlUp).Row
der_col_S = Sheets("Scenario").Cells(2, Columns.Count).End(xlToLeft).Column
pre_lig_S = Sheets("Scenario").Range("D1").End(xlDown).Row
pre_col_S = Sheets("Scenario").Range("A2").End(xlToRight).Column

Dim plage_S As Range
Set plage_S = Sheets("Scenario").Range(Cells(pre_lig_S, pre_col_S), Cells(der_lig_S, der_col_S))
Dim tableau() As Variant
ReDim tableau(der_lig_S - 1, der_col_S - 1)
For i = 0 To der_lig_S - 2
For j = 0 To der_col_S - 2
tableau(i, j) = plage_S.Cells(i + 1, j + 1)
VarType (tableau(i, j))
Next j
Next i

Prix.Activate
Prix.Cells.ClearContents
Prix.Cells.ClearFormats
Dim range1, range2 As Range

feuille_matrice.Activate
Set range1 = matrice.Range(Cells(1, 1), Cells(der_lig, 4))
Set range2 = matrice.Range(Cells(1, 21), Cells(der_lig, 21))
range1.Copy Destination:=Prix.Cells(1, 1)

Dim der_col_P As Long 'derniere colonne dans feuille Prix
der_col_P = Prix.Cells(1, Columns.Count).End(xlToLeft).Column
range2.Copy Destination:=Prix.Cells(1, der_col_P + 1)
Dim der_lig_P As Long

Prix.Activate
Prix.Cells.Interior.ColorIndex = xlColorIndexNone
der_lig_P = Prix.Cells(Rows.Count, 1).End(xlUp).Row
der_col_P = Prix.Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, der_col_P + 1) = "CU_etiq"
Cells(1, der_col_P + 2) = "CU_emb1"
Cells(1, der_col_P + 3) = "CU_emb2"
Cells(1, der_col_P + 4) = "CU_transp1"
Cells(1, der_col_P + 5) = "CU_transp2"
Cells(1, der_col_P + 6) = "CU_market"
Cells(1, der_col_P + 7) = "Coeff_prix"

Dim libelleScenario As Integer

libelleScenario = InputBox("entrer n°scenario")
Select Case libelleScenario
Case Is = 1
CU_etiq = tableau(1, 4)
CU_emb1 = tableau(1, 5)
CU_emb2 = tableau(1, 6)
CU_transp1 = tableau(1, 7)
CU_transp2 = tableau(1, 8)
CU_market = tableau(1, 9)
K = tableau(1, 10)
Case Is = 2
CU_etiq = tableau(2, 4)
CU_emb1 = tableau(2, 5)
CU_emb2 = tableau(2, 6)
CU_transp1 = tableau(2, 7)
CU_transp2 = tableau(2, 8)
CU_market = tableau(2, 9)
K = tableau(2, 10)
Case Is = 3
CU_etiq = tableau(3, 4)
CU_emb1 = tableau(3, 5)
CU_emb2 = tableau(3, 6)
CU_transp1 = tableau(3, 7)
CU_transp2 = tableau(3, 8)
CU_market = tableau(3, 9)
K = tableau(3, 10)
Case Is = 4
CU_etiq = tableau(4, 4)
CU_emb1 = tableau(4, 5)
CU_emb2 = tableau(4, 6)
CU_transp1 = tableau(4, 7)
CU_transp2 = tableau(4, 8)
CU_market = tableau(4, 9)
K = tableau(4, 10)
Case Is = 5
CU_etiq = tableau(5, 4)
CU_emb1 = tableau(5, 5)
CU_emb2 = tableau(5, 6)
CU_transp1 = tableau(5, 7)
CU_transp2 = tableau(5, 8)
CU_market = tableau(5, 9)
K = tableau(5, 10)
Case Is = 6
CU_etiq = tableau(6, 4)
CU_emb1 = tableau(6, 5)
CU_emb2 = tableau(6, 6)
CU_transp1 = tableau(6, 7)
CU_transp2 = tableau(6, 8)
CU_market = tableau(6, 9)
K = tableau(6, 10)
Case Is = 7
CU_etiq = tableau(7, 4)
CU_emb1 = tableau(7, 5)
CU_emb2 = tableau(7, 6)
CU_transp1 = tableau(7, 7)
CU_transp2 = tableau(7, 8)
CU_market = tableau(7, 9)
K = tableau(7, 10)
End Select

Si vous pouvez m'aider à comprendre la raison du plantage, je suis preneur....

Merci de votre aide,
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Les valeurs chargées dans le tableau sont des valeurs numériques et du texte.

Mettez un point d'arrêt (F9) sur la ligne qui pose problème
lancez votre macro et vérifiez dans la fenêtre des variables locales que votre tableau contient bien les valeurs attendues.
Sans doutes des doubles
declarer k en tant que double (les valeurs numériques des cellules sont toujours du type double en vba)

Cordialement
 

ODB

XLDnaute Nouveau
Ce qui est surprenant, c'est que la valeur de K (ci dessous 1,67 et 1,60) est tantot écrite sans " " mais tantôt avec des " ",

Exemple
Watch : : tableau(i, j) : 1,67 : Variant/String * -1 : Calcul_Prix.calc_Prix
Watch : : tableau(i, j) : "1.60" : Variant/String * -1 : Calcul_Prix.calc_Prix
 

Hasco

XLDnaute Barbatruc
Repose en paix
re;
C'est certainement que dans vos cellules elles sont également en texte
Mais sans classeur exemple se sera ma dernière participation à cette discussion qui pourrait s'éterniser sans qu'on avance d'un poil!
 

ODB

XLDnaute Nouveau
re;
C'est certainement que dans vos cellules elles sont également en texte
Mais sans classeur exemple se sera ma dernière participation à cette discussion qui pourrait s'éterniser sans qu'on avance d'un poil!

Oui, bien sur,
J'ai vérifié les formats de données (onglet "Scenario") et elles correspondent au format de données attendu...
Je poste le fichier de travail pour que vous puissiez jeter un oeil,
Merci de votre aide
 

Pièces jointes

  • Catalogue_Reference.xlsm
    581.1 KB · Affichages: 5

Roland_M

XLDnaute Barbatruc
bonsoir,

j'ai essayé et je n'ai pas eu d'erreur en question !?

par-contre l'exécution de la macro est longue !
voir pour rajouter ceci: (*)

Sub calc_Prix()
'au début de la macro (*)
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual: Application.EnableEvents = False
'à la fin de la macro (*)
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic: Application.EnableEvents = True
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans le fichier joint j'ai commencé à remodeler votre macro pour vous montrer une technique de manipulation des plages de travail sans avoir à créer des variables tant et plus et comment remplir une colonne de valeurs sans boucler sur chaque ligne.

De plus votre macro ne traitait qu'un scenario à la fois, il est inutile donc que votre variable 'tableau' contiennent toutes les lignes de scenario.
Dans la macro du fichier joint, seul la ligne du scenario désiré est retenue.

Je me suis arrêté après le premier calcul, en montrant également comment insérer une formule dans toute une colonne puis à la fin, n'en conserver que les valeurs, sans avoir à boucler sur toutes les lignes là non plus.

De façon générale, vous avez intérêt à séparer les choses. Remplir toutes vos colonnes, les unes après les autres et seulement ensuite le formatage.

Les variables c'est très bien, mais trop de variables, c'est pas top. On s'y perd.

bonne continuation
 

Pièces jointes

  • Catalogue_Reference.xlsm
    635 KB · Affichages: 5

ODB

XLDnaute Nouveau
Merci mille fois pour votre aide, je vais regarder ça pour continuer à progresser,
Effectivement, j'ai beaucoup trop de variables et suis très intéressé à voir comment vous procéder,
Merci encore,
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…