Lol !!

Voici un classique probable

Il s’agit de lancer des recherches sur toutes les chaines d’un tableau de variable

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
Sub testTableau2()  
 
Dim i As Integer
Dim tableau As Variant
 
tableau = Array("tre", "ba", "erfge", "fgbfb", "ljffj", "gjhj") 'voici les chaînes concernées (au pif)
 
Do
Do
 
MsgBox (tableau(i) & "=" & i)
 
       On Error GoTo erreur
 
       Cells.Find(What:=tableau(i), After:=ActiveCell, LookIn:=xlValues, _
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=False).Activate
‘ça bug ici
 
      MsgBox ("La recherche du mot   " & tableau(i) & " vient de fonctionner")
 
     i = i + 1
 
Loop Until i = 6
 
erreur:
 
     MsgBox ("La recherche du mot   " & tableau(i) & " a échouer")
 
     i = i + 1
Loop Until i = 6
 
End Sub
Avec le message « Variable objet non définie » si la recherche échoue plus de 2 fois .
Je pense qu’il faut que je définisse une nouvelle variable objet avec dim
Suivi d’un Set pour référencer .(Incroyable n’est-ce-pas ? )

Le problème est que je comprend mal la philosophie d’excel .Je ne sais jamais définir un objet parce qu’il y en a trop (pareil pour les propriétes) .J’en connais quelques un(e) et c’est tout .
Et au final c’est toujours sur le même style de bug que je tombe

Merci d’éclairer ma lanterne ….