Problème recherche via une textbox

Résolu
-
Messages postés
7653
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 janvier 2022
-
Bonjour,

Je cherche à réaliser une recherche dans un tableau inclu dans ma feuille excel.
Le tableau se trouve sur la colonne AA.
je tape la chaine de texte à chercher dans une textbox, et je veux faire afficher les résultats de la recherche dans une listbox.

Dans un premier fichier d'essai, mon code marche sans problème.

Dans le fichier où je veux vraiment l'utiliser, j'ai une erreur de compilation, variable non définie, focalisé sur la variable 'ligne' à la ligne 15 de mon code ci-aprés.

La nuance entre mon fichier d'essai et mon fichier cible, le tableau du fichier cible est issu d'une requête P Query.

L'un de vous peut-il me dire comment surmonter cette difficulté?
D'avance merci pour tous vos conseils.
--------------------------------------------------------------------------
mon code:


01    Dim nbrow As Long
02    
03    nbrow = Range("Tableau1[DATA]").Rows.Count
04    
05
06    Application.ScreenUpdating = False
07        
08   
09    Range("Tableau1[DATA]").Interior.ColorIndex = 43
10    ListBox2.Clear
11    
12    If TextBox1 <> "" Then
13    
14
15        For ligne = 2 To nbrow
16                
17        
18            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
19        
20                Cells(ligne, 1).Interior.ColorIndex = 43
21                ListBox2.AddItem Cells(ligne, 27)
22                
23        
24            End If
25        Next
26    
27    End If
28        
29      
30
31End Sub

1 réponse

Messages postés
7653
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 janvier 2022
128
Bonjour,

variable non définie

Dim ligne As Integer


et pour:

nbrow = Range("Tableau1[DATA]").Rows.Count


voir ceci

https://excel-malin.com/tutoriels/vba-tutoriels/vba-trouver-la-derniere-cellule-utilisee/