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
Partager