Discussion :

[ouskel'n'or]

Bonsoir,
La raison est simple, la première ligne de code (Selection.HomeKey Unit:=wdStory, etc) n'est pas exécutée lors du premier lancement
Pourquoi ?

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
Sub test()
Dim tablo(), i As Integer, ok As Boolean
    Selection.HomeKey Unit:=wdStory, Extend:=wdMove 'On se place en début de document
    Selection.Find.Style = ActiveDocument.Styles("Titre 1")
    Do
        With Selection.Find
            .Forward = True
            .Format = True
            ok = .Found
            .Execute
            .Wrap = wdFindStop
        End With
        If ok Then
            i = i + 1
            ReDim Preserve tablo(i)
            tablo(i) = Selection
            ElseIf Not ok Then Exit Do
        End If
    Loop While ok
    'simple contrôle par affichage des titres
    For i = 1 To UBound(tablo)
        MsgBox i & " - " & tablo(i)
    Next
End Sub

Par avance, merci.

[Heureux-oli]

Salut Ousk,

Je viens d'essayer ton code, mais ce n'est pas sur la première ligne HomeKey que je coince, mais sur l'indice du tableau.

en ajoutant

Code :

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

Option Base 1

Il fonctionne.

Mais j'ai peut-être rien compris !

[ouskel'n'or]

Salut l'homme heureux,
Non, tu as bien compris, tel quel mon code fonctionne une fois sur deux. Et effectivement, cela venait bien de l'indice. Je teste avec base 1 mais je ne comprends pas plus, je n'ai jamais eu à faire appel à Option ... pour que l'indice d'un tableau soit correct.

Edit
Test réalisé : avec ou, sans option, rien de changé.
Je répète, ça fonctionne une fois sur 2 et je ne comprends pas le pourquoi de la chose.

Edit bis
Youki rudement content :
............J'ai compris ! j'ai viendu ! j'ai vaincu !
Suffisait d'inverser Execute et ok = found
Avant

ok = .Found
.Execute

Après

Code :

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

1
2
            .Execute
            ok = .Found

Fallait être bête pour faire ça mais heureusement je suis beaucoup intelligent
Merci à toi maître des lieux

[Heureux-oli]

euh ...

as-tu essayé ?

Code :

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

ok = .Execute

[ouskel'n'or]

Non. D'ailleurs l'exécution est systématique puisque la ligne .execute lance la recherche, tandis que found n'est vrai que si la recherche a été fructueuse. Logiquement...
Bonne soirée

[Heureux-oli]

Salut,

.Execute renvoie vrai si l'opération a été fructueuse.

Tu devrais gagner une ligne.

Essaie, qu'est ce que ça coûte !

[ouskel'n'or]

Essaie, qu'est ce que ça coûte !

M'énerve ! Moi je voulais le garder pour la logique de l'histoire : On cherche, on ne trouve pas, on sort !
Bon, pour te faire plaisir et comme tu sembles sous-entendre qu'il y a des trucs qui servent à rien dans VBA, j'ai déplacé le ok. C'est ok !

Heureux Oli contre VBA et qui c'est qui a gagné ?

J'ai également enlevé le Elseif qui ne sert à rien non plus vu que j'ai déjà modifié mon code et que j'avais supprimé un truc qui ne servait à rien non plus ...
Tu aurais tout de même pu me le dire

Merci quand même.
Bonne nuit
A+