Discussion :

[Dédé6621]

Bonjour,

J'ai une erreur 13 d'incompatibilité de type à la dernière ligne de ce début de code :

Code :

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

1
2
3
4
5
        Dim TblLdS() As Variant
        Dim N as Integer
        
        N = N + 1
        ReDim Preserve TblLdS(2, N)

Qu'est-ce que j'ai fait de mal?

Cordialement

[anasecu]

Bonjour,

Avant de préserver il faut définir

Code :

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

 ReDim TblLdS(2, 1)

Ce qui te permet de supprimer ton Dim du tableau

[Dédé6621]

Bonjour,

Merci beaucoup de la réponse et désolé pour mon retour tardif.

En effet, ça fonctionne.

Mais comment ce fait-il alors que ce code fonctionne?

Code :

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

1
2
3
4
5
6
7
        Dim NomCl() As String
        Dim I As Byte
 
For I = 1 To Workbooks.Count
        ReDim Preserve NomCl(I)
        NomCl(I) = Workbooks(I).Name
Next

[mat955]

Bonjour,

Je pense que la différence vient du fait que dans ton 1er cas ton tableau a 2 dimensions, et l'utilisation de Preserve ne permet de modifier que la dernière dimension d'un tableau (voir aide en ligne)
Avant que tu corriges, VBA comprenait que tu voulais redimension la première et la deuxième dimension vu que tu n'avais pas initialiser ton tableau, ce qui n'est pas possible.

Dans ton deuxième code, tu ne redimensionnes qu'une seul dimension à chaque itération (donc la dernière en somme), ce qui ne pose pas de problème à VBA.
En revanche, tu aurais eu une deuxième dimension, m'est avis que ça aurait bugué.

[Dédé6621]

Bonjour,

Je vous remercie de vos réponses.

Malgré tout, ce code fonctionne :

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
        Dim TblLds() As Variant
 
        Set OLi = Selection
        IntLi = OLi.Row
        IntLiDer = IntLi + OLi.Rows.Count - 1
 
        N = 0
 
    For I = IntLi To IntLiDer
        If Rows(I - 1).OutlineLevel > Rows(I).OutlineLevel Then
            N = N + 1
            ReDim Preserve TblLds(2, N)
            TblLds(1, N) = Rows(I).Row
            If Rows(I).Hidden = True Then TblLds(2, N) = True Else TblLds(2, N) = False
        End If
    Next
 
        Set FlBD = Sheets.add
    With FlBD
        .Range("A1").Value = "Ligne faisant partie d'un plan"
        .Range("B1").Value = "Cachée ou pas"
    For N = 1 To UBound(TblLds, 2)
        .Cells(N + 1, 1) = TblLds(1, N)
        .Cells(N + 1, 2) = TblLds(2, N)
    Next N
    End With

Quelle différence avec le premier code?

À vrai dire, je n'arrive pas à reproduire l'erreur.

Peut-être que j'avais simplement omis les parenthèses lors du dimensionnement :

Code :

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

Dim TblLdS As Variant

Si c'est ça, désolé du dérangement !

Cordialement

[Dédé6621]

Peut-être que j'avais simplement omis les parenthèses lors du dimensionnement

Je confirme, c'était ça.

Avant de préserver il faut définir

Code :

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

 ReDim TblLdS(2, 1)

Ce qui te permet de supprimer ton Dim du tableau

En fait, il n'est pas nécessaire de définir la variable tableau avant de préserver.
En revanche, dans ce cas, il est alors nécessaire de dimensionner avec des parenthèses:

Code :

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

Dim Tbl() as Variant

Je n'ai pas fait attention à ça en retouchant le code dans mon message d'ouverture.

Merci pour vos réponses!