Problème recherche via une textboxRésolu

Question

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

cs_Le Pivert · Answer

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/

Problème recherche via une textbox

1 réponse

Votre réponse

Discussions similaires