EXCEL VBA - recherche d'une valeur [Résolu/Fermé]

Signaler
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 -
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 -
Bonjour à tous!

(Sous VBA et excel 2007)

bon je fais appel à vous car je bloque complètement sur ce problème, j'ai essayé tout un tas de truc mais cela ne fonctionne pas.

sur ma feuille 1 j'ai une Textbox4 dans laquelle je rentre un chiffre entier.

sur ma feuille 1 j'ai un commandbutton.

dans ma colonne 2 j'ai des chiffres entier (le fruit d'une formule)

=> j'aimerais simplement que le chiffre entré dans la textbox soit recherché dans la colonne 2 a partir du moment ou je clique sur mon bouton.

merci si vous pouvez faire quelquechose pour moi ou simplement me mettre sur la bonne piste
Afficher la suite

18 réponses

Réponse 1 / 18
Messages postés
16242
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 octobre 2020
 3 049
Bonjour,

un peu à la bourre
à adapter à 2007: 65536 ----> nbre de lignes sur 2007 (je sais pas car j'ai pas) 

Private Sub CommandButton1_Click()

On Error Resume Next

cellule = Columns(2).Find(CLng(TextBox1), Range("B65536")).Select

If Err.Number > 0 Then: MsgBox "inconnu"



End Sub
Merci
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Réponse 2 / 18
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
 1 111
Bonjour,
Une solution parmi d'autre !! 
Private Sub CommandButton1_Click()

Dim Lig As Long

    For Lig = 1 To Range("B65536").End(xlUp).Row

        If Cells(Lig, 2) = textbox4 Then

            Cells(Lig, 2).Select

            Exit Sub

        End If

    Next Lig

End Sub
A+
Réponse 3 / 18
Messages postés
5
Date d'inscription
jeudi 2 juillet 2009
Statut
Membre
Dernière intervention
23 juillet 2009
 1
M
Réponse 4 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
Salut Lermitte,

Le code me parait bon mais lorsque je clique sur mon bouton il n'y a aucune action... bizarre!!!
Réponse 5 / 18
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
 1 111
Met un stop dans la boucle pour voir s'il y arrive bien...
C'est bien la colonne B et la même feuille que le bouton ?
C'est bien des nombre entier ?
Pas avec des décimales ?
Réponse 6 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
oui c'est bien la colonne B et les chiffres inscrits dans les cellules de cette colonne sont bien entiers, par contre il y a une formule derrière ces chiffres... (le chiffre est le résultat d'une formule en d'autre mots)
Réponse 7 / 18
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
 1 111
Compris, ton affichage est sans décimale mais si tu a des divisions tu a des décimales cachées dans tes cellules.
Corige la ligne 
If Int(Cells(Lig, 2)) = textbox4 Then
Réponse 8 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
je ne comprends vraiment pas...

j'ai bien remplacé la ligne en question mais toujours aucune réaction.

quand je fais une execution du code en "pas à pas" je remarque que la ligne Cells(Lig, 2).Activate n'est pas surlignée en jaune...

Cela veut il dire que le code ne trouve pas la valeur recherchée?
Réponse 9 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
Merci michel de ta réponse.

Comment déclare tu ta variable cellule? en As integer?

j'ai essayé comme cela et cela fonctionne bien! Merci!

par contre j'ai pas compris pourquoi le code de Lermitte ne fonctionne pas...
Réponse 10 / 18
Messages postés
16242
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 octobre 2020
 3 049
ce n'est pas la cellule qu'il fallait transformer en entier mais le textbox, comme son nom l'indique textbox renvoie du texte... (clng(textbox1)
il valait mieux transformer en Long qu'en integer surtout avec 2007
A propos, en guise de redevance ;-) pourrais tu me dire le nombre de lignes sur 2007? d'avance, merci

pour le type de "cellule" je tenterais bien as range (je n'ai pas sauvegardé)
Réponse 11 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
1 048 576...

légèrement plus que 2003!

Merci Michel pour les infos et le coup de main...


MErci aussi à Lermitte!
Réponse 12 / 18
Messages postés
16242
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 octobre 2020
 3 049
1 048 576... c'est noté Merci du tuyau
a+ pour de nouvelles aventures!
Réponse 13 / 18
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
 1 111
Pour Info..
Cellule renvoi le contenu de la cellule trouvée, alors vaux mieux la dimentionner en variant.
A+
Réponse 14 / 18
Messages postés
16242
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 octobre 2020
 3 049
Salut Lermite, ca va?
excuses moi je ne t'avais pas salué.

OK c'est noté, merci
Réponse 15 / 18
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
 1 111
Bonjour michel :D
de nouveau pour info...
il fallait mettre 
        If Int(Cells(Lig, 2)) = Val(TextBox1) Then

Normalement VB fait la traduction pour nous mais pas cette fois !!
A+
Réponse 16 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
Merci lermitte pour l'info

je me disais bien qu'il y avait un truc manquant à ce niveau, j'avais meme essayé:

If Int(Cells(Lig, 2)) = TextBox1.value Then

sans succès...

Par ailleurs je me demandais ce que voulais dire CLng dans le code de Michel, à cette ligne:

cellule = Columns(2).Find(CLng(TextBox1), Range("B65536")).Select

A+
Réponse 17 / 18
Messages postés
16242
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
15 octobre 2020
 3 049
aie, aie, aie !!!

CLng est une fonction de conversion vers une donnée de type long; or tu as,( j'ai déjà oublié!!!) >1 million de lignes.
on marque Long quand on ne sait le nombre de lignes utilisées; quand on sait on adapte...( 4 octet en mémoire pour un "long", 2 pour un "integer", 1 pour un byte)

La fonction VAL est utile quand tu as un nombre suivi d'un texte par exemple VAL("1000 machins") te renvoie 1000 sous forme de type numérique double ( 8 octets en mémoire, 4 pour un lsingle)
c'est à manier avec précaution dans le cas de nombre à virgule car VAL ne connait que les points comme séparateur. il vaut mieux utiliser Cdbl ou Csng (double ou single). on l'utilise aussi pour les dates par fainéantise ( je l'utilise donc souvent) dûe au sempiternel b.... de manipulation de ces dernières

ici, le contexte est un entier sec sans texte: utiliser VAL est inapproprié...
Réponse 18 / 18
Messages postés
253
Date d'inscription
vendredi 7 septembre 2007
Statut
Membre
Dernière intervention
21 décembre 2010
 25
Merci pour l'explication michel!
Posez votre question