bouton de recherche

Re : bouton de recherche

Bonsoir le forum
Bonsoir charly013

Tout d'abord bienvenu sur le forum.
Une approche de ton fichier remanié. Toutefois dans cette forme originelle, il te faut connaître les prénoms présents en Feuil1 et respecter la casse sinon le TextBox2 ne te rapportera aucune valeur.
Bon courage

Re : bouton de recherche

bonsoir charly013, Eric C,

une approche de recherche

bonne continuation

jcf64

Re : bouton de recherche

bonsoir et tout d'abord merci pour ta réponse rapide
(même si je n'ai malheureusement pas tout capté) mais bon je désespère pas les débuts sont toujours un peu dur

je vais essayer de détailler j'avais créer un bouton en faisant :développer insérer bouton "active x"
jusque la c'est top mais après ........
mon but ; insérer des donnes a partir d'un lieux

donc en colonne a dans mon tableau : "un lieu dit "
en colonne c "le nom de la ville correspondante"
en colonne E le type de produit

ce fichier est destiné a un service intervention de sécurité donc le but et que " en tapant le nom d'un lieu dit on est le nom de la ville correspondante et enfin un type de risque associé

je sais c'est pas facile pour un début
j'ai essaye d'effectuer la manœuvre tel que tu l'as decrite mais je crois que j'ai pas tout capté
encore un grand grand merci
charly

Re : bouton de recherche

bonsoir a tous

j'ai réussi a avancé (grâce a vous)mais il me reste une erreur de code. mon but faire une recherche dans une colonne a (nom de lieux dit) et récupérer le résultat de la colonne c.
le useform est crée mais il doit y avoir une erreur dans le code dont je me suis servi

Private Sub UserForm_Click()
Option Explicit
Option Base 1
Option Compare Text

Private Sub L1_Click()
Dim lig&
If L1.ListIndex <> -1 Then
lig = L1.List(L1.ListIndex, L1.ColumnCount)
adresse.Select: adresse.Rows(lig).Select
ActiveWindow.ScrollRow = lig
Application.ScreenUpdating = 1
End If
End Sub

Private Sub T1_Change()
Dim i&, fin&, y&, a&, aa, bb, lig&, col&
Application.ScreenUpdating = 0
If T1 = "" Then L1.Clear: Exit Sub
L1.Clear
With Feuil1
y = 1
fin = .Range("A" & Rows.Count).End(xlUp).Row
col = .Cells(1, Columns.Count).End(xlToLeft).Column + 2
If fin < 2 Then fin = 2: Exit Sub
aa = .Range(.Cells(2, 1), .Cells(fin, col))
End With
For i = 1 To UBound(aa)
aa(i, UBound(aa, 2) - 1) = i + 1
aa(i, UBound(aa, 2)) = ""
Next i
For i = 1 To UBound(aa)
For a = 1 To UBound(aa, 2)
If aa(i, a) Like "*" & T1 & "*" Then aa(i, UBound(aa, 2)) = "oui": y = y + 1: Exit For
Next a
Next i
If y = 1 Then Exit Sub
ReDim bb(y - 1, UBound(aa, 2) - 1)
y = 1
For i = 1 To UBound(aa)
If aa(i, UBound(aa, 2)) = "oui" Then
For a = 1 To UBound(aa, 2) - 1
bb(y, a) = aa(i, a)
Next a
y = y + 1
End If
Next i
With L1
.ColumnCount = UBound(aa, 2) - 2
.List = bb
End With
End Sub

pourriez vous m'aider sachant que ma feuille s'appelle "adresse"
encore un grand grand merci

Re : bouton de recherche

bonsoir

met le fichier en place sera plus lisible

a+ jcf64

Re : bouton de recherche

voila un petit morceau du fichier

au départ l’idée était de pouvoir a partir de la colonne A trouver le nom de la ville colonne c suivi de la colonne f en remarque.
vu que je n'y arrive pas j'ai arrêté mes ambitions en conservant que...a partir de la colonne A trouver le nom de la ville colonne c
Ci joint une partie du fichier copier d'excel a word en espérant qu'il soit compréhensible
je ne peux pas envoyer le fichier original car je suis garant de la confidentialité

Regarde la pièce jointe Aéroport.docx

encore merci
charly

Re : bouton de recherche

Bonsoir le forum
Bonsoir charly013, bonsoir jcf6464

Peut être que ce fichier très basique (comme moi) pourrait être un nouveau départ ??
Attention, le fichier que tu as joint est un élément Word
Bonne poursuite.

Re : bouton de recherche

un super super bon départ !!!
je te remercie et te souhaites une excellente soirée
encore un grand merci

Charly

Re : bouton de recherche

bonjour

grâce vous j'ai pu créer mon useform conformément a mon souhait

mais avant de clôturer cette demande je voudrais juste un renseignement

j'utilise le code suivant:

Option Explicit
Option Compare Text
Dim t As Variant, ta() As String, p As Long, s As Long
Dim X As Long, i As Long, j As Long, k As Long, e As Byte
Private Sub CommandButton4_Click()
Unload Me: [a1].Select
End Sub
Private Sub CommandButton5_Click()
t = Range("a8:f" & Range("a65536").End(xlUp).Row)
Lbx1.List = t
End Sub
Private Sub reset_Click()
Unload Me: UserForm3.Show
End Sub
Private Sub Tbx1_Change()
On Error Resume Next
Application.ScreenUpdating = False
t = Range("a8:f" & Range("a65536").End(xlUp).Row)
Lbx1.Clear
X = 1
For i = 1 To UBound(t)
For j = 1 To 4
If Left(t(i, j), Len(Tbx1)) = Left(Tbx1, Len(Tbx1)) Then
ReDim Preserve ta(1 To 6, 1 To X)
For k = 1 To 6
ta(k, X) = t(i, k)
Next k: X = X + 1: End If: Next j: Next i
Lbx1.List = Application.Transpose(ta)
If X - 1 = 1 Then
For e = 1 To 6
Controls("Textbox" & e) = Lbx1.List(Lbx1.ListIndex + e)
Next e: Lbx1.Clear: End If
Erase t, ta
If Tbx1 = "" Then
Lbx1.Clear
For e = 1 To 6: Controls("Textbox" & e) = "": Next e: Lbx1.Clear: End If
Beep
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub lbx1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Caption = ""
p = 0.02: s = Timer: Do While Timer < s + p: DoEvents: Loop
Label1.Caption = "1111"
End Sub

toutefois dans mon tableau les réponses concernés ne "rentrent pas dans les colonnes. c'est a dire j'aurais besoin dans mon useform d'avoir une colonne A plus importante. si j’agrandis le useform ç’a ne change rien; je pense que la réponse est dans le code mais la!!!!

si quelqu'un a un peu de temps et une idee ? en tout cas un grand merci a tous
charly

Re : bouton de recherche

Bonjour,
si c'est juste en agrandissant les zones, c'est facile ...

P.

Re : bouton de recherche

bonjour tous 🙂

Lbx1 c'est pas une listbox ???

Re : bouton de recherche

merci a tous pour vos réponses
mais je pense m’être mal fait comprendre
tout marche a merveille simplement comme vous pouvez le constater dans le usefom ci joint la taille des colonnes dans le cartouche réponse est "mal dimensionné"
je pense que dans la macro ci dessus il y une variable a changer que je ne trouve pas pour dimensionner le colonnes de réponses comme vous allez le voir sur la photo jointe


encore merci a tous et toutes pour votre super boulot et soutien sans vous c'a serait la ..............

Re : bouton de recherche

re tous 🙂

il faut modifier la largeur des colonnes de la listbox
2 possibilitées
la premiere
directement dans la proprieté de la listbox
columnWidths

90 pt;80 pt;50 pt;60 pt;60 pt;60 pt;60 pt;50 pt

ou dans code user dans initialise ou code de la textbox

Private Sub Tbx1_Change()
en debut ou la fin du code



pour la premiere colonne j'ai mis 90 a toi d'ajuster

Re : bouton de recherche

Géniale Lætitia

un énorme merci

charly