recherche avec userform

[montiti]

Bonjour à toutes et à tous,

J'ai réalisé, avec l'aide d'un ami, (car je débute en VBA) un userform multipages. Je peux afficher l'userform, effectuer des modifications sur les fiches, ajouter de nouveaux enregristrements tout cela fonctionne bien. Mon souci est que je souhaiterais pouvoir faire une recherche sur le nom d'une personne et afficher dans l'userform toutes les informations concernant cette personne. J'ai regardé sur différents forums et je vous avoue être un peu perdu. Pouvez-vous m'aider svp ? merci

 

[kjin]

Re : recherche avec userform

Bonjour,
Sans doute mais avec un fichier exemple, qq données et le formulaire
A+
kjin

 

[jp14]

Re : recherche avec userform

Bonjour

Le plus simple pour réaliser cette fonction est d'utiliser un userform avec un combobox de deux ou trois colonnes. La dernière colonne a pour dimension 0 (pour la rendre invisible).

With ComboBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "50;0"
    For Each cellule In Sheets(nomfeuille1).Range("a4:a" &   Sheets(nomfeuille1).Range(col & "65536").End(xlUp).Row)
            .AddItem cellule.Value
            .List(.ListCount - 1, .ColumnCount - 1) = cellule.Row
        
    Next cellule
     .Style = fmStyleDropDownList '
End With

Le code suivant permettra de récupérer le numéro de la ligne sélectionnée

lig = CLng(ComboBox1.List(ComboBox1.ListIndex, ComboBox1.ColumnCount - 1))

JP

 

[montiti]

Re : recherche avec userform

merci. J'essaie désespérement d'envoyer mon fichier mais il est toujours trop lourd 256 ko, j'ai retiré des onglets, des bouts de codes il est toujours trop gros

merci d'avance

 

[montiti]

Re : recherche avec userform

bonjour,

merci beaucoup pour ton aide, je mets en pratique tout de suite.
cordialement,