Probleme de Range: Pouvez vous me dire ou se trouve l'erreur dans ce code ?

**bourbe** · 07/06/2007, 21h59

Bonsoir,

J'ai ecrit un code assez simple ou je dois manipuler deux tableaux passée en Variant Mais la au moment de la compiler il y une erreur 13 et je sais pas de quoi il s'agit.

il est simple a lire et pour des experimenté l'erreur sautera au yeux . En rouge ce sont les lignes ou j'ai des doutes surtout avec la fdacon dont j'affecte les elemants aux tableaux Variant

Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96

Sub test()

tab_entree = ActiveSheet.Range("D5:IJ2627").Value  'Tableau d'input a l'entree

Dim tab1 As Variant
Dim tab2 As Variant

Dim i As Long
Dim j As Long

Dim i_debut As Long
Dim i_fin As Long

Dim j_debut As Long
Dim j_fin As Long

i_debut = LBound(tab_entree, 1)
i_fin = UBound(tab_entree, 1)

j_debut = LBound(tab_entree, 2)
i_fin = UBound(tab_entree, 2)

' 1 plus

For i = i_debut To i_fin
    For j = j_debut To j_fin
        tab1(i, j) = tab_entree(i, j) + 1
        
    Next j
    
Next i

' Pusssance

For i = i_debut To i_fin
  tab2(i, 1) = tab1(i, 1)
  tab2(i, 2) = (tab1(i, 1) * tab1(i, 2)) ^ (0.5)
  tab2(i, 3) = (tab1(i, 1) * tab1(i, 2) * tab1(i, 3)) ^ (1 / 3)
  
  If Application.WorksheetFunction.Type(tab2(i, 1) = 16) Then
 
                tab2(i, 1) = ""
                
                Else
                
                 tab2(i, 1) = tab2(i, 1)
                 
  End If
  
  If Application.WorksheetFunction.Type(tab2(i, 2) = 16) Then
 
                tab2(i, 2) = ""
                
                Else
                
                 tab2(i, 2) = tab2(i, 2)
                 
  End If
  
  If Application.WorksheetFunction.Type(tab2(i, 3) = 16) Then
 
                tab2(i, 3) = ""
                
                Else
                
                 tab2(i, 1) = tab2(i, 3)
                 
  End If
  
  For j = 4 To j_fin
  
       tab2(i, j) = (tab1(j - 3) * tab1(j - 2) * tab1(j - 1) * tab1(j)) ^ (1 / 4)
       
       If Application.WorksheetFunction.Type(tab2(i, j) = 16) Then
 
                tab2(i, j) = ""
                
                Else
                
                 tab2(i, j) = tab2(i, j)
                 
  End If
       
  Next j
  
Next i

Worksheet.Add
Worksheet.Name = "resultats"

Worksheets("resultats").Activate
ActiveSheet.Range(Cells(1, 1), Cells(i_fin, j_fin)).Value = tab2

End Sub

**dadavyvy** · 08/06/2007, 06h54

Envoyé par bourbe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Sub test()
Dim i As Long
Dim j As Long
Dim i_debut As Long
Dim i_fin As Long
Dim j_debut As Long
Dim j_fin As Long
 
i_debut = LBound(tab_entree, 1)
i_fin = UBound(tab_entree, 1)
 
j_debut = LBound(tab_entree, 2)
i_fin = UBound(tab_entree, 2)
 
For i = i_debut To i_fin
    For j = j_debut To j_fin
        tab1(i, j) = tab_entree(i, j) + 1
 
    Next j
 
Next i

Bonjour, est-ce là ton véritable code?
Si oui, j_fin n'est pas défini (tu définis seulement 2 fois le i_fin), donc il est à 0 par défaut. Ainsi ta boucle sur j ne fonctionnera peut-etre pas.

Rem. Il serait mieux que tu nous dises sur quelle ligne ton code plante, en l'executant en pas à pas ([F8]), par exemple.

**bourbe** · 08/06/2007, 10h23

En effet je ne m'étais pas rendu compte pour le j_fin, c'est juste une erreur de ma part. La je l'ai corrigé et en gras en bleue c'est ou ca me fait la premiere erreur lorsque je fais F8;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Sub test()

tab_entree = ActiveSheet.Range("D5:IJ2627").Value  'Tableau d'input a l'entree

Dim tab1 As Variant
Dim tab2 As Variant

Dim i As Long
Dim j As Long

Dim i_debut As Long
Dim i_fin As Long

Dim j_debut As Long
Dim j_fin As Long

i_debut = LBound(tab_entree, 1)
i_fin = UBound(tab_entree, 1)

j_debut = LBound(tab_entree, 2)
i_fin = UBound(tab_entree, 2)

' 1 plus

For i = i_debut To i_fin
    For j = j_debut To j_fin
        tab1(i, j) = tab_entree(i, j) + 1
        
    Next j
    
Next i

' Pusssance

For i = i_debut To i_fin
  tab2(i, 1) = tab1(i, 1)
  tab2(i, 2) = (tab1(i, 1) * tab1(i, 2)) ^ (0.5)
  tab2(i, 3) = (tab1(i, 1) * tab1(i, 2) * tab1(i, 3)) ^ (1 / 3)
  
  If Application.WorksheetFunction.Type(tab2(i, 1) = 16) Then
 
                tab2(i, 1) = ""
                
                Else
                
                 tab2(i, 1) = tab2(i, 1)
                 
  End If
  
  If Application.WorksheetFunction.Type(tab2(i, 2) = 16) Then
 
                tab2(i, 2) = ""
                
                Else
                
                 tab2(i, 2) = tab2(i, 2)
                 
  End If
  
  If Application.WorksheetFunction.Type(tab2(i, 3) = 16) Then
 
                tab2(i, 3) = ""
                
                Else
                
                 tab2(i, 1) = tab2(i, 3)
                 
  End If
  
  For j = 4 To j_fin
  
       tab2(i, j) = (tab1(j - 3) * tab1(j - 2) * tab1(j - 1) * tab1(j)) ^ (1 / 4)
       
       If Application.WorksheetFunction.Type(tab2(i, j) = 16) Then
 
                tab2(i, j) = ""
                
                Else
                
                 tab2(i, j) = tab2(i, j)
                 
  End If
       
  Next j
  
Next i

Worksheet.Add
Worksheet.Name = "resultats"

Worksheets("resultats").Activate
ActiveSheet.Range(Cells(1, 1), Cells(i_fin, j_fin)).Value = tab2

End Sub

**mordrhim** · 08/06/2007, 10h36

tu définis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tab_entree = ActiveSheet.Range("D5:IJ2627").Value  'Tableau d'input a l'entree

et tu utilises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tab1(i, j) = tab_entree(i, j) + 1

or ton tableau d'entrée n'est pas défini selon i et j mais donne toujours la même chose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("D5:IJ2627").Value

**bourbe** · 08/06/2007, 10h50

Je ne sais pas trop mais je pense pas que l'erreur vienne de la car je me suis inspriré de

http://vb.developpez.com/faqvba/?page=3.4.4#TabVariant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
Dim Montab As Variant, cmpt1 As Long, cmpt2 As Long
Montab = Range("A1:J65535").Value
For cmpt1 = LBound(Montab, 1) To UBound(Montab, 1)
    For cmpt2 = LBound(Montab, 2) To UBound(Montab, 2)
        Montab(cmpt1, cmpt2) = Montab(cmpt1, cmpt2) * 2 + 3
    Next cmpt2
Next cmpt1
Range("A1:J65535").Value = Montab

tu voii la on passe de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Montab = Range("A1:J65535").Value

a ...........

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Montab(cmpt1, cmpt2) = Montab(cmpt1, cmpt2) * 2 + 3

**mordrhim** · 08/06/2007, 11h32

donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tab1(i, j)

référence quoi ?

**bourbe** · 08/06/2007, 11h38

Je pense que lre probleme vient de la et tu as saisi surtout ce que j'ai envie de faire mais je ne sais pas comment le corriger i.e introduire des elements calculés à un tableau variant

Probleme de Range: Pouvez vous me dire ou se trouve l'erreur dans ce code ?

Macros et VBA Excel

Discussions similaires

Partager

Partager