Aide code rechercher

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jonat28
Membre fidèle
Membre fidèle
Messages : 261
Appréciation reçue : 1
Inscrit le : 31 janvier 2019
Version d'Excel : 2016 FR

Message par jonat28 » 14 décembre 2019, 10:28

bonjour à tous

j'aimerai que dans ce code ci-dessous je puisse cherche en colonne A puis B si pas trouvé
Set fr = Sheets("feuil1")
ComboBox1.List = fr.Range("A1:A" & fr.Range("A" & Rows.Count).End(xlUp).Row).Value
merci :)

bonne journée
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'063
Appréciations reçues : 894
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 14 décembre 2019, 11:52

Bonjour,
dim cel as range
Set fr = Sheets("feuil1")
set cel = fr.Range("A1:A" & fr.Range("A" & Rows.Count).End(xlUp).Row).Value
if cel is nothing then set cel = fr.Range("B1:B" & fr.Range("B" & Rows.Count).End(xlUp).Row).Value

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 32
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 14 décembre 2019, 11:53

Salut jonat28,

Pas très clair ta demande, néanmoins regarde du côté de la méthode .find en vba :wink:

Bonne journée,

Baboutz
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'063
Appréciations reçues : 894
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 14 décembre 2019, 12:56

Oui Babtoutz a raison, du reste j'ai été un peu vite car je pensais qu'il y avait déjà find dans l'instruction !
Et chercher quoi ?

exemple :
Sub test()

Dim cel As Range

quoi = InputBox("Quel caractère rechercher ?", "Indication du critère", "a")
Set fr = Sheets("feuil1")
Set cel = fr.Range("A1:A" & fr.Range("A" & Rows.Count).End(xlUp).Row).Find(quoi)
If cel Is Nothing Then Set cel = fr.Range("B1:B" & fr.Range("B" & Rows.Count).End(xlUp).Row).Find(quoi)

MsgBox cel.Address

End Sub
jonat28.xlsm
(16.72 Kio) Téléchargé 3 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
j
jonat28
Membre fidèle
Membre fidèle
Messages : 261
Appréciation reçue : 1
Inscrit le : 31 janvier 2019
Version d'Excel : 2016 FR

Message par jonat28 » 15 décembre 2019, 13:58

bonjour Baboutz et Steelson
merci pour votre aide :)

je vais essayer d’être plus clair:
dans la feuille base je clic sur le bouton rouge
et j'aimerai dans la combobox1 je tape sois le nom sois le numéro de téléphone il me remplis tout les champs

la ça fonctionne actuellement avec le nom mais pas avec le numéro de tel (je voudrais le nom ou tel dans la même recherche
(saisie combobox1)

voici mon fichier si ça peux aider
v1 base stat.xlsm
(71.96 Kio) Téléchargé 7 fois
j'ai essayer avec ta méthode Steelson mais j'y arrive pas grrr

merci :)
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 32
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 15 décembre 2019, 14:20

Salut jonat28,

Quelque chose comme ça, en imaginant que les numéros de tel commencent par 0 et non +33 :
If ComboBox1.Value Like "*0*" then

	'Ton code pour remplir les TextBox à partir du num
	
Else

	'Ton code pour remplir les TextBox à partir du nom

End If
Cela t'irait ?

Bonne journée,

Baboutz
j
jonat28
Membre fidèle
Membre fidèle
Messages : 261
Appréciation reçue : 1
Inscrit le : 31 janvier 2019
Version d'Excel : 2016 FR

Message par jonat28 » 15 décembre 2019, 15:01

Baboutz ,

j'aimerai que quand je tape quelque choses dans la combobo1 (un mot ou chiffre) il vienne faire la recherche dans la colonne A et B
pour instant cest nom et n°de tel mais (ça risque peut être de changer par la suite pas sur encore.. pour ça que le mieux serai de chercher ce que l'on marque dans colonne A et B)

merci bcp pour ton aide :)


bonne journée également !!
Avatar du membre
Baboutz
Membre fidèle
Membre fidèle
Messages : 412
Appréciations reçues : 32
Inscrit le : 19 avril 2019
Version d'Excel : 2016 FR

Message par Baboutz » 15 décembre 2019, 15:20

jonat28 a écrit :
15 décembre 2019, 15:01
j'aimerai que quand je tape quelque choses dans la combobo1 (un mot ou chiffre)
Le but d'une ComboBox de base n'a pas pour vocation d'accueillir du texte mais plutôt de choisir parmi une liste !

Je te propose une méthode différente : Une ComboBox qui te permet de choisir le critère avec lequel tu veux rechercher (Nom, N° tel etc.) et une TextBox où tu entres ce que tu veux chercher. En fonction, de la valeur de la ComboBox, tu cherches dans telle ou telle colonne !
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'063
Appréciations reçues : 894
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 15 décembre 2019, 17:18

jonat28 a écrit :
15 décembre 2019, 13:58
voici mon fichier si ça peux aider
v1 base stat.xlsm
enfin un fichier, ce qui était indispensable !
tu pourrais maintenant dire où cela se trouve? j'ai fait une recherche sur ce que tu as posté au début et je n'ai rien trouvé ! (surtout que je n'aime pas du tout les userform !)
Modifié en dernier par Steelson le 15 décembre 2019, 17:29, modifié 1 fois.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
j
jonat28
Membre fidèle
Membre fidèle
Messages : 261
Appréciation reçue : 1
Inscrit le : 31 janvier 2019
Version d'Excel : 2016 FR

Message par jonat28 » 15 décembre 2019, 17:23

Baboutz?

ta solution me parait tres bien !! :)
je veux bien cette solution la stp ;;)

merci

désolé de pas avoir mis le fichier des le début :oops:
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message