> Tous les forums > Forum Bureautique
 Recherche dans une colonneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Lui
  Posté le 17/05/2013 @ 22:43 
Aller en bas de la page 
Petit astucien

Bonsoir ,

J'ai trouvé cette formule qui me va bien, elle permet de faire une recherche avec un mot contenu ou un chiffre

http://www.blog-excel.com/creer-un-champ-de-recherche-vba/

Je l'ai donc adapté comme ceci

Private Sub CommandButton1_Click()

ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 1 To 1600

If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then

ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If


End Sub

ça marche, mais ma feuille contient 270 000 lignes {#}, et là ça coince
jusqu'à ~1600 ça va, mais pas audelà...

une idée pour rechercher dans la totalité de la feuille ?
Tous se trouve en A1:A270856

Merci

Publicité
Bérylion
 Posté le 17/05/2013 à 23:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

bin c'est normal...

Private Sub CommandButton1_Click()

ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 1 To 270856 '<< METTRE ICI LA DERNIERE LIGNE A PRENDRE EN COMPTE

If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then

ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If


End Sub

Si ta dernière ligne n'est pas toujours la même il faut la mettre en variable.

reviens si ça coince toujours

Lui
 Posté le 18/05/2013 à 09:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

yo !

Non, pas bon. J'ai bien sure essayé. mais la limite semble être plus ou moins 1600

Lui
 Posté le 18/05/2013 à 09:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re,

Voilà ce que ça donne

C'est la ligne " If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then " qui se met en jaune quand je clique sur déboguage

ferrand
 Posté le 18/05/2013 à 10:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Regarde sur quelle ligne se produit l'erreur, soit quelle est la valeur de la variable ligne quand l'erreur survient (après avoir cliqué sur débogage, tu balades le curseur de la souris sur le mot ligne, sa valeur s'affichera dans une infobulle).

Ensuite tu vas voir ce que contient la cellule à cette ligne. Si elle ne contient pas du texte alors que la commande fait une comparaison de textes, il est normal que ça déclenche une incompatibilité de type. Faut supprimer tout contenu qui n'est pas du texte pour éliminer l'erreur.

Lui
 Posté le 18/05/2013 à 10:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Ferrand

Encore un fois tu as vu juste et je t'en remercie !

J'avais dans certaines cellules la valeur #NOM?

Merci également à Bérylion

Bonne journée

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
listing et somme valeurs unique dans colonne excel
Comment aller recherche les X dernière valeur d'une colonne
Pub et blocage recherche dans Paperport
Figer colonne ou ligne dans excell
Protéger introduction données dans une colonne
Recherche Verticale dans 3 plages
Adresses Mail dans colonne restent noires
Excel: longue colonne, recherche d'un chiffre
recherche dans classeur
Ajouter une colonne dans writter (Open office 4)
Plus de sujets relatifs à Recherche dans une colonne
 > Tous les forums > Forum Bureautique