Salut tout le monde, je suis nouveau sur ce forum,
j'essaie de réaliser une macro de recherche via une inputbox sous excell. Le programme que j'ai réalisé pour l'instant ne marche que sur un petit classeur; pour un classeur de plus de 1500 lignes (et une dixaine de colonnes), cela ne marche pas et celà affiche cette erreur : "La méthode 'Range' de l'objet _Global a échoué" . Voici le pgm :


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
Dim xCellule As Range 
Dim xSelection As String 
Dim Message As String 
 
'Crée une boîte de dialogue : 
  Message = InputBox(" Entrez la date  : ", "Mon Programme", "01/mm/aaaa") 
 
 
'Arrête procédure si utilisateur clique sur annuler 
If Message = "   " Then Exit Sub 
 
'Place la valeur dans la cellule A1; 
'Worksheets("feuil2").Range(" A1 ").Value = Message 
 
'Sélectionner le tableau : 
'sélectionner toutes les cellules du tableau : 
 
Selection.Worksheet.UsedRange.Select 
 
'activer la dernière cellule du tableau 
Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count).Activate 
 
'Recherche " Message " dans le tableau : 
 
For Each xCellule In Selection 
    If xCellule.Value = Message Then 
        xSelection = xSelection & xCellule.Address & "," 
    End If 
Next 
    If Len(xSelection) > 0 Then 
        Range(Left(xSelection, Len(xSelection) - 1)).Select 
    End If


Quelqu'un saurait-il me dire comment résorber ce problème?
merci d'avance