recherche dans un fichier

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
reinruof77

reinruof77

XLDnaute Occasionnel
Bonjour le forum

Je fait appel au expert que vous etes car je me retrouve avec un probleme de recherche via un combobox. :?:

dans le fichier joint Ce lien n'existe plus Mot de passe : 0303 quand je fait la recherche sur un site tout fonctionne sauf pour les site qui porte a peut prés le meme nom
exemple : A2S Choisy le roi et Choisy le roi.

quelqu'un aurait il une solution ?

Merci de votre aide. et bonne Année a Tous 😀
 
Trier par date Trier par votes
Re : recherche dans un fichier

bonjour,

Essaie de remplacer ton code par celui-ci :

Private Sub ComboBox5_Change()
Dim vrech As Range
Dim recherche As String

recherche = Me.ComboBox5.Value
'Stop


Set Plage = Range("B3", Cells(Rows.Count, "B").End(xlUp))
With Plage
Set c = .Find(recherche)
If Not c Is Nothing Then
adresse = c.Address
'a = Range(adresse).Row
'Stop
Do
If recherche = c Then

End If
' Stop
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adresse
End If: End With: Beep

'je recherche dans la colonne B la valeur de la combo
'Set vrech = Sheets("synthèse").Columns("B:b").Find(Me.ComboBox5.Value, LookIn:=xlValues)
'si je trouve une valeur alors j'affiche la valeur correspondante de la
'colonne A dans le textbox
'If Not vrech Is Nothing Then
ComboBox1.Value = c.Offset(0, -1).Value ' dtd
TextBox2.Value = c.Offset(0, 1).Value 'responsable1
TextBox66.Value = c.Offset(0, 2).Value 'responsable1
TextBox67.Value = c.Offset(0, 3).Value 'responsable1
TextBox5.Value = c.Offset(0, 4).Value 'adresse1
TextBox6.Value = c.Offset(0, 5).Value 'adresse2
TextBox7.Value = c.Offset(0, 6).Value 'adresse3
TextBox8.Value = c.Offset(0, 7).Value
TextBox9.Value = c.Offset(0, 8).Value
TextBox10.Value = c.Offset(0, 9).Value
TextBox3.Value = c.Offset(0, 10).Value
ComboBox4.Value = c.Offset(0, 11).Value
TextBox11.Value = c.Offset(0, 12).Value
TextBox52.Value = c.Offset(0, 13).Value
TextBox68.Value = c.Offset(0, 14).Value
TextBox12.Value = c.Offset(0, 15).Value
TextBox20.Value = c.Offset(0, 16).Value
TextBox59.Value = c.Offset(0, 17).Value
TextBox75.Value = c.Offset(0, 18).Value
TextBox19.Value = c.Offset(0, 19).Value
TextBox27.Value = c.Offset(0, 20).Value
TextBox53.Value = c.Offset(0, 21).Value
TextBox69.Value = c.Offset(0, 22).Value
TextBox13.Value = c.Offset(0, 23).Value
TextBox21.Value = c.Offset(0, 24).Value
'RIA
TextBox83.Value = c.Offset(0, 25).Value
TextBox84.Value = c.Offset(0, 26).Value
TextBox81.Value = c.Offset(0, 27).Value
TextBox82.Value = c.Offset(0, 28).Value
'CHAUFFAGE
TextBox54.Value = c.Offset(0, 29).Value
TextBox70.Value = c.Offset(0, 30).Value
TextBox14.Value = c.Offset(0, 31).Value
TextBox22.Value = c.Offset(0, 32).Value
TextBox55.Value = c.Offset(0, 33).Value
TextBox71.Value = c.Offset(0, 34).Value
TextBox15.Value = c.Offset(0, 35).Value
TextBox23.Value = c.Offset(0, 36).Value
TextBox56.Value = c.Offset(0, 37).Value
TextBox72.Value = c.Offset(0, 38).Value
TextBox16.Value = c.Offset(0, 39).Value
TextBox24.Value = c.Offset(0, 40).Value
TextBox57.Value = c.Offset(0, 41).Value
TextBox73.Value = c.Offset(0, 42).Value
TextBox17.Value = c.Offset(0, 43).Value
TextBox25.Value = c.Offset(0, 44).Value
TextBox58.Value = c.Offset(0, 45).Value 'DTA /PRESENCE AMIANTE

TextBox74.Value = c.Offset(0, 46).Value
TextBox18.Value = c.Offset(0, 47).Value
TextBox26.Value = c.Offset(0, 48).Value
TextBox65.Value = c.Offset(0, 49).Value
TextBox28.Value = c.Offset(0, 50).Value
TextBox29.Value = c.Offset(0, 51).Value
TextBox30.Value = c.Offset(0, 52).Value
TextBox31.Value = c.Offset(0, 53).Value
TextBox76.Value = c.Offset(0, 54).Value
TextBox32.Value = c.Offset(0, 55).Value
TextBox33.Value = c.Offset(0, 56).Value
TextBox34.Value = c.Offset(0, 57).Value
TextBox35.Value = c.Offset(0, 58).Value
TextBox36.Value = c.Offset(0, 59).Value
TextBox77.Value = c.Offset(0, 60).Value
TextBox37.Value = c.Offset(0, 61).Value
TextBox38.Value = c.Offset(0, 62).Value
TextBox40.Value = c.Offset(0, 63).Value
TextBox41.Value = c.Offset(0, 64).Value
TextBox42.Value = c.Offset(0, 65).Value
TextBox63.Value = c.Offset(0, 66).Value
TextBox64.Value = c.Offset(0, 67).Value
TextBox79.Value = c.Offset(0, 68).Value
TextBox78.Value = c.Offset(0, 69).Value
TextBox44.Value = c.Offset(0, 70).Value
TextBox80.Value = c.Offset(0, 71).Value
TextBox43.Value = c.Offset(0, 72).Value

TextBox47.Value = c.Offset(0, 73).Value
TextBox45.Value = c.Offset(0, 74).Value
TextBox46.Value = c.Offset(0, 75).Value
TextBox48.Value = c.Offset(0, 76).Value
TextBox49.Value = c.Offset(0, 77).Value
TextBox50.Value = c.Offset(0, 78).Value
TextBox51.Value = c.Offset(0, 79).Value
TextBox61.Value = c.Offset(0, 80).Value
TextBox62.Value = c.Offset(0, 81).Value


' Else
'MsgBox "Aucune valeur trouve!"
'End If
End Sub


a+
 
Vote positif 0 Vote négatif
Re : recherche dans un fichier

Re,

La méthode Find que tu utilisais s'arrête sur la chaîne de caractères dès lors qu'elle la trouve. Avec une recherche sur Maison Alfort, le premier item contenant cette chaine est Maison Alfort A2S.

J'ai rajouté une modification :
Private Sub ComboBox5_Change()
Dim c As Variant
Dim recherche As String

recherche = Me.ComboBox5.Value


Set Plage = Range("B3", Cells(Rows.Count, "B").End(xlUp))
With Plage
Set c = .Find(recherche)
If Not c Is Nothing Then
adresse = c.Address
'a = Range(adresse).Row
Do
If recherche = c Then

End If
' Stop
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> adresse
End If: End With: Beep
If c Is Nothing Then MsgBox "Aucune valeur trouve!": Exit Sub
'je recherche dans la colonne B la valeur de la combo
'Set vrech = Sheets("synthèse").Columns("B:b").Find(Me.ComboBox5.Value, LookIn:=xlValues)
'si je trouve une valeur alors j'affiche la valeur correspondante de la
'colonne A dans le textbox
'If Not vrech Is Nothing Then
ComboBox1.Value = c.Offset(0, -1).Value ' dtd
TextBox2.Value = c.Offset(0, 1).Value 'responsable1
TextBox66.Value = c.Offset(0, 2).Value 'responsable1
TextBox67.Value = c.Offset(0, 3).Value 'responsable1
TextBox5.Value = c.Offset(0, 4).Value 'adresse1
TextBox6.Value = c.Offset(0, 5).Value 'adresse2
TextBox7.Value = c.Offset(0, 6).Value 'adresse3
TextBox8.Value = c.Offset(0, 7).Value
TextBox9.Value = c.Offset(0, 8).Value
TextBox10.Value = c.Offset(0, 9).Value
TextBox3.Value = c.Offset(0, 10).Value
ComboBox4.Value = c.Offset(0, 11).Value
TextBox11.Value = c.Offset(0, 12).Value
TextBox52.Value = c.Offset(0, 13).Value
TextBox68.Value = c.Offset(0, 14).Value
TextBox12.Value = c.Offset(0, 15).Value
TextBox20.Value = c.Offset(0, 16).Value
TextBox59.Value = c.Offset(0, 17).Value
TextBox75.Value = c.Offset(0, 18).Value
TextBox19.Value = c.Offset(0, 19).Value
TextBox27.Value = c.Offset(0, 20).Value
TextBox53.Value = c.Offset(0, 21).Value
TextBox69.Value = c.Offset(0, 22).Value
TextBox13.Value = c.Offset(0, 23).Value
TextBox21.Value = c.Offset(0, 24).Value
'RIA
TextBox83.Value = c.Offset(0, 25).Value
TextBox84.Value = c.Offset(0, 26).Value
TextBox81.Value = c.Offset(0, 27).Value
TextBox82.Value = c.Offset(0, 28).Value
'CHAUFFAGE
TextBox54.Value = c.Offset(0, 29).Value
TextBox70.Value = c.Offset(0, 30).Value
TextBox14.Value = c.Offset(0, 31).Value
TextBox22.Value = c.Offset(0, 32).Value
TextBox55.Value = c.Offset(0, 33).Value
TextBox71.Value = c.Offset(0, 34).Value
TextBox15.Value = c.Offset(0, 35).Value
TextBox23.Value = c.Offset(0, 36).Value
TextBox56.Value = c.Offset(0, 37).Value
TextBox72.Value = c.Offset(0, 38).Value
TextBox16.Value = c.Offset(0, 39).Value
TextBox24.Value = c.Offset(0, 40).Value
TextBox57.Value = c.Offset(0, 41).Value
TextBox73.Value = c.Offset(0, 42).Value
TextBox17.Value = c.Offset(0, 43).Value
TextBox25.Value = c.Offset(0, 44).Value
TextBox58.Value = c.Offset(0, 45).Value 'DTA /PRESENCE AMIANTE

TextBox74.Value = c.Offset(0, 46).Value
TextBox18.Value = c.Offset(0, 47).Value
TextBox26.Value = c.Offset(0, 48).Value
TextBox65.Value = c.Offset(0, 49).Value
TextBox28.Value = c.Offset(0, 50).Value
TextBox29.Value = c.Offset(0, 51).Value
TextBox30.Value = c.Offset(0, 52).Value
TextBox31.Value = c.Offset(0, 53).Value
TextBox76.Value = c.Offset(0, 54).Value
TextBox32.Value = c.Offset(0, 55).Value
TextBox33.Value = c.Offset(0, 56).Value
TextBox34.Value = c.Offset(0, 57).Value
TextBox35.Value = c.Offset(0, 58).Value
TextBox36.Value = c.Offset(0, 59).Value
TextBox77.Value = c.Offset(0, 60).Value
TextBox37.Value = c.Offset(0, 61).Value
TextBox38.Value = c.Offset(0, 62).Value
TextBox40.Value = c.Offset(0, 63).Value
TextBox41.Value = c.Offset(0, 64).Value
TextBox42.Value = c.Offset(0, 65).Value
TextBox63.Value = c.Offset(0, 66).Value
TextBox64.Value = c.Offset(0, 67).Value
TextBox79.Value = c.Offset(0, 68).Value
TextBox78.Value = c.Offset(0, 69).Value
TextBox44.Value = c.Offset(0, 70).Value
TextBox80.Value = c.Offset(0, 71).Value
TextBox43.Value = c.Offset(0, 72).Value

TextBox47.Value = c.Offset(0, 73).Value
TextBox45.Value = c.Offset(0, 74).Value
TextBox46.Value = c.Offset(0, 75).Value
TextBox48.Value = c.Offset(0, 76).Value
TextBox49.Value = c.Offset(0, 77).Value
TextBox50.Value = c.Offset(0, 78).Value
TextBox51.Value = c.Offset(0, 79).Value
TextBox61.Value = c.Offset(0, 80).Value
TextBox62.Value = c.Offset(0, 81).Value


' Else
'MsgBox "Aucune valeur trouve!"
'End If
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

BenHarber
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
1 K
Marc Vanlindt
M
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
480
youguybass
Y
B
  • Question Question
XL 2016 recherche dans une colonne depuis un autre onglet
Réponses
5
Affichages
570
boguinette
B
E
  • Question Question
XL 2016 Rechercher une valeur d'un tableau dans un autre tableau
Réponses
3
Affichages
541
JHA
J
N
  • Résolu(e)
XL 2010 A partir d’un Shape, ouvrir un fichier dont l'adresse est sur une autre feuille dans une cellule
Réponses
4
Affichages
484
Nounours_59
N
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
532
MCOTTEND
M
Electron24
  • Question Question
Microsoft 365 Classeur Disparu
Réponses
2
Affichages
558
Electron24
Electron24
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
589
Dégé59
D
P
  • Question Question
Microsoft 365 Après filtre ave ComboBox (ListView), Recherche avec 4 critères dans BDD et sélectionner la ligne correspondante
2
Réponses
27
Affichages
2 K
Piment
P
P
  • Question Question
Microsoft 365 crée une zone de recherche dans un tableur
Réponses
9
Affichages
903
patrick965
P
DenisHen
  • Question Question
Microsoft 365 Cellule multiligne dans fichier texte.
Réponses
2
Affichages
517
sylvanu
sylvanu
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
780
arnoldbrice19
A
K
  • Question Question
Microsoft 365 Afficher la photo d'un produit dans un UserForm
Réponses
4
Affichages
775
krisprolss
K
P
  • Question Question
Microsoft 365 Besoin d'aide pour plusieurs petite chose technique sur un fichier excel
8 9 10
Réponses
136
Affichages
9 K
TooFatBoy
TooFatBoy
K
  • Résolu(e)
XL 2019 tableau de bord
2 3 4
Réponses
50
Affichages
4 K
kayumanis
K
L
  • Question Question
XL 2016 Recherche de partie de mot dans les cellules d'un tableau et extractions des résultats
2
Réponses
29
Affichages
2 K
Lorenzini
L
L
  • Résolu(e)
Microsoft 365 Compter le nb de mot qu'il y a dans toutes les cellules du fichier
Réponses
2
Affichages
589
ludovic29
L
StephCo
  • Question Question
Autres Diagramme de Gantt avec beaucoup de contraintes (avec LibreOffice) et formule matricielle multicritères
Réponses
2
Affichages
889
Simon 1234
S
B
  • Résolu(e)
Microsoft 365 Recherche dans plusieurs listes suivant le menu déroulant.
Réponses
13
Affichages
878
Blf57
B
S
  • Question Question
Microsoft 365 Problème chrono dans un fichier excel lorsque 2 fichiers sont ouverts
2
Réponses
15
Affichages
1 K
steph67
S
Retour