Microsoft 365 Affichage recherche dans formulaire

Mathisgodu

XLDnaute Nouveau
Bonjour,

Je bloque complètement depuis quelques jours sur ce sujet malgré les réponses disponibles sur les forums, c'est pourquoi je m'en remet à vos connaissances et à votre gentillesse. Actuellement j'ai créé un formulaire de recherche (Avec le méthode find) afin de trouver la ligne correspondant à un numéro d'affaire pour ensuite venir y modifier des informations. Seulement, je souhaiterais faire apparaître des informations de l'affaire recherchée dans le formulaire afin d'être sur de modifier la bonne (Ville, responsable, etc).
Je ne sais pas grâce à quoi le faire et comment le faire (TextBox, ListBox, ...)...
Je vous met bien sur en pièce jointe un document extrait de mon travail.

Merci d'avance pour votre aide !

Mathis GODU
 

Pièces jointes

  • Aide.xlsm
    43.4 KB · Affichages: 4

JM27

XLDnaute Barbatruc
bonjour
A tester
VB:
Private Sub CommandButton3_Click()
     If txtnuméroaffaire = "" Then Exit Sub
     If IsNumeric(txtnuméroaffaire) = False Then
     MsgBox " numéro d'affaire non documenté"
     Exit Sub
     End If
    On Error Resume Next
    LigneNumAffaire = Application.WorksheetFunction _
        .Match(CLng(txtnuméroaffaire), Worksheets("Data").Range("A1:A100000"), 0)
     If Err <> 0 Then
         MsgBox " numéro d'affaire inonnu"
        Exit Sub
     End If
    On Error GoTo 0
    With Sheets("Data")
        Me.txt1 = .Cells(LigneNumAffaire, 8).Text
        ' faire ici les autres textbox
    
    
    End With
End Sub
 

Pièces jointes

  • Aide.xlsm
    46 KB · Affichages: 4

JM27

XLDnaute Barbatruc
bonjour
pour pouvoir afficher directement les données dans la liste il te faut remplacer ta textbox de recherche par une combo en style dropdown list.
Et d'afficher les données à la sélection dans cette nouvelle combo
 

Pièces jointes

  • Aide.xlsm
    46.1 KB · Affichages: 14

Discussions similaires

Réponses
18
Affichages
1 K

Statistiques des forums

Discussions
315 127
Messages
2 116 522
Membres
112 765
dernier inscrit
SIDIANW