VBA excel,pb pour comparer cellule, err execution 6

Version imprimable

30/03/2012, 10h51
maxdevelop

VBA excel,pb pour comparer cellule, err execution 6

Bonjour,
je commence avec VBA ;)
je cherche a creer une macro qui puisse comparer avec une boucle "for" le contenu des cellules de deux colonnes de la feuille excel de laquelle je lance la macro

si elles sont respectivement le meme contenu ( un mot) alors je rajoute le contenu des cellules qui sont sur la meme ligne dans un tableau, que je desire ensuite ajouter sur cette meme feuille excel en bas de mon tableau de donneés que j'analyse.

ex: abc new 2
abc new 5
abc old 6 les deux premieres lignes ont le meme libellé abc ,
et le meme 'titre' : new mais pas la troisieme qui a :
old.
alors j'additionne dans un nouveau ableau 2 et 5. ( sans 6)
voici la ligne de mon programme qui affiche erreur de depassement de capacite...

If f.Cells(i, 1) = f.Cells(i + 1, 1) And f.Cells(i, 2) = f.Cells(i + 1, 2) Then
et la ca bloque..;

qu en pensez vous?

merci de votre aide
30/03/2012, 11h12
bifconsult

Bonjour,

Est-ce qu'il y a moyen de mettre un peu plus de code ? Parce que ça plante à cette ligne là, mais l'erreur peut provenir de l'amont. Le "f" dans f.cells(x,y), il représente la feuille je suppose ? Est-elle bien définie ?

voici le debut du programme:

Code:

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
Sub ()
 
 
 
Dim appExcel As Excel.Application
Dim sheet As Excel.Worksheet
 
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un nouveau vierge
appExcel.Workbooks.Add
Set f = appExcel.ActiveWorkbook.ActiveSheet
 
 
                    Dim j As Integer
                    j = 0
 
                      Dim bool, bool2 As Boolean
                      bool = True
             bool2 = True
                     Dim i As Integer
                    i = 2
                    Dim tabtemp(48) As Double
 
 
 
  While (i < 1437)
 
                bool2 = True
 
        If f.Cells(i, 4) = 1 And f.Cells(i, 5) <> "X" Then
 
                 For g = 0 To 11
 
                        tabtemp(g) = f.Cells(i, 5 + g)
                 Next g
 
 
 
                ElseIf f.Cells(i, 4) = 1 And f.Cells(i, 5) = X Then
 
                For h = 0 To 11
 
                tabtemp(h + 12) = f.Cells(i, 5 + h)
 
                 Next h
 
        ElseIf f.Cells(i, 4) = 1 And f.Cells(i, 5) <> X Then
 
                For k = 0 To 11
 
                tabtemp(k + 24) = f.Cells(i, 5 + k)
 
                Next k
 
                Else
 
                For s = 0 To 11
 
                tabtemp(s + 36) = f.Cells(i, 5 + s)
 
                 Next s
        End If
 
 
        While (bool2)
 
 
 
        If f.Cells(i, 1) = f.Cells(i + 1, 1) And f.Cells(i, 2) = f.Cells(i + 1, 2) Then
 
'.......................