J'avais deja posté cette demande et je pensais l'avoir resolu mais en faite non donc je vais réitérer ma demande.

La macro que j'ai fait, me donne tout les resultats dans chaque case ("aq" & j)
Le but de ma macro est de scanner la colonne "au" de la case "4 à 81" et lorsque dans la zone de texte il ya plus de 1 caractères il fait une recherche dans toutes les feuilles de cet valeur et inscrit les numéro de pages en ("au" & j).

exemple : si je trouve un valeur qui s'appelle 10bis (en au2) qui se trouve dans la page 1 2 3 et je trouve une valeur qui s'appelle 2bras(en au5) qui se trouve dans la page 45 80 le resultat dans la case (aq 3 et aq 6) sera 1 2 3 45 80. je voudrais séparer ça et avoir des resultats pour chacun de mes recherches



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
34
35
36
 
Sub macro9()
'recherche des liens de pages des sorties
 
Dim resultat As Variant
Dim x As String
Dim j As Integer
Dim i As Integer
Dim z As Integer
Dim y As Integer
x = "to sheet "
y = Sheets.Count - 3
    'de la page 12 au nombre de pages
   For z = 3 To y
            'pour i de 4 à 81
            With Sheets(z).Range("b4:e81")
            For i = 4 To 81
                'selection
                        If Len(Sheets(z).Range("au" & i)) > 0 Then
                               'la recherche s"effectue dans toutes les cellules de la feuille
                        Set resultat = .Find(Sheets(z).Range("au" & i), LookIn:=xlValues)
                            'si la valeur est trouvé
                            If Not resultat Is Nothing Then
                            x = x & Sheets(z).Name & " - "
                            'insère le resultats dans la case "aq" & j
                            j = i + 1
                            Sheets(z).Range("aq" & j) = x
                            End If
                        If x <> "to sheet " Then Sheets("1").Range("g14") = x
                        End If
 
            Next
     End With
    Next
 
End Sub