cathodique
XLDnaute Barbatruc
Bonsoir,
Je m'initie aux variables tableau vba. Je voudrais apprendre à effectuer des calculs en utilisant des tableaux.
Sur le net j'ai trouvé cet exemple https://www.auditsi.eu/?p=5678
Je sollicite vos compétences pour :
1- Le code du module 1, plante pour une incompatibilité de type (erreur 13) en prenant la plage de données avec l’en-tête.
2- La seconde demande : calculer la remise suivant les conditions qui seront à mettre dans une 3ème dimension du TableauDonnées .
Et enfin, transférer ce tableau sur la feuille Remise avec les en-têtes de colonne.
En vous remerciant par avance.
Ps : tout tutoriel sera le bienvenu.
Je m'initie aux variables tableau vba. Je voudrais apprendre à effectuer des calculs en utilisant des tableaux.
Sur le net j'ai trouvé cet exemple https://www.auditsi.eu/?p=5678
Je sollicite vos compétences pour :
1- Le code du module 1, plante pour une incompatibilité de type (erreur 13) en prenant la plage de données avec l’en-tête.
VB:
Option Explicit
Sub CalculRFA()
Dim TableauDonnées As Variant
TableauDonnées = ActiveWorkbook.Sheets(1).Range("A1:C22").Value 'si A2:C22 le code ne plante pas
Dim Taux As Double
Dim CA As Double
Dim i As Integer
For i = LBound(TableauDonnées) To UBound(TableauDonnées)
Taux = 0
CA = TableauDonnées(i, 2) ' plante ici si A1:C22
If CA > 100000 Then
Taux = 0.15
ElseIf CA > 50000 Then
Taux = 0.1
ElseIf CA > 25000 Then
Taux = 0.05
End If
TableauDonnées(i, 3) = CA * Taux
Next i
'Report sur feuille excel
ActiveWorkbook.Sheets(2).Range("G1:I22").Value = TableauDonnées
End Sub
Et enfin, transférer ce tableau sur la feuille Remise avec les en-têtes de colonne.
En vous remerciant par avance.
Ps : tout tutoriel sera le bienvenu.