[VBA]compatibilité vba sur mac

Version imprimable

19/01/2006, 14h27
julien.63

[VBA]compatibilité vba sur mac
Salut,
j'ai fait une petite macro excel sur mon pc. Quand j'essaie de l'exécuter sur mac, d'abord c'est très très lent et ensuite ça plante sur la seconde ligne du tableau ci-dessous.
Code:

1 2 3 4 For Each cell In Range(Cells(Line, col), Cells(Line + num_rep - 1, col)) If IsNumeric(cell) And Not IsEmpty(cell) And cell.Value > 0 Then adress_2 = cell.Address
Merci d'avance de vos conseils
Julien
19/01/2006, 14h31
Megaxel

Houlaaaaaa! Je n'en ai pas la moindre idée...
Je n'ai jamais fait de VBA sur un Mac. En fait, je n'ai jamsi rien fait sur un Mac...
:D
19/01/2006, 16h15
AlainTech

Je veux bien vérifier demain.

Si tu ne vois rien venir vers 11h, refais-moi un petit signe.

Pour éviter de jouer aux devinettes, j'aurais besoin d'un peu plus d'info.

Il me faudrait les contenus et l'évolution de Line, col et num_rep.

Autrement dit, si tu pouvais me donner la procédure complète, ça m'aiderait.

voilà mon petit script qui prend une valeur dans une plage et compte combien de fois la valeur se retrouve.

Comme je le disais ça fonctionne bien sous PC, mais cette macro est susceptible d'être utiliser sous Mac, bien entendu sous Excel ;).

merci d'avance

julien

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
 
num_rep = TextBox5
 
For Each ligne In ActiveSheet.UsedRange.Rows
 If ligne.Row >= 2 Then
    If Not IsEmpty(Cells(ligne.Row, 1)) Then
        Line = ligne.Row
        For Each colonne In ActiveSheet.UsedRange.Columns
            If Not IsEmpty(Cells(2, colonne.Column)) Then
                col = colonne.Column
                adress_1 = Cells(Line, col).Address
 
                For Each cell In Range(Cells(Line, col), Cells(Line + num_rep - 1, col))
 
                    If IsNumeric(cell) And Not IsEmpty(cell) And cell.Value > 0 Then
                        adress_2 = cell.Address
                        check = check_value(adress_1, adress_2) ' permet de voir si la valeur a déjà été comptabilisée
                        If check < 2 Then
                            valeur_a = cell.Value
                            total = find(Line, col, num_rep, valeur_a) ' permet de comptabiliser combien de fois la valeur se trouve dans le tableau
                            If total > 1 Then
                                If IsEmpty(Cells(Line + num_rep, col)) Then
                                    Cells(Line + num_rep, col).Formula = valeur_a
                                Else
                                    Cells(Line + num_rep, col).Formula = "ambiguity"
                                End If
                           End If
                        End If
                    'Cells(line + num_rep, col).Formula = valeur_a + 1
                     End If
                Next cell
            End If
         Next
    End If
  End If
Next
End Sub