Discussion :

[orcinus]

bonjour
je cherche un tuto ou la solution "code" pour avoir un numéro unique pour chaque enregistrement dans une feuille exel.
Je recherche également un tuto ou une vidéo qui m’expliquerez comment faire une recherche d'un enregistrement directement a partir de la même userform.
merci d'avance pour votre aide
P.S je cherche pas une solution toute faite. Juste une bonne explication

jean marc

[parmi]

Bonjour,

Tu peux utiliser un filtre avancé sans doublon.
Ensuite, tu charges une listbox ou combobox d'un seul coup, si nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaListBox.List = Sheets("MaFeuille").Range("Z2:Z" & DerLigne).Value

C'est toujours un début...

[orcinus]

bonjour
déjà merci de m'avoir répondu.
Je suis pas informaticien
pourrais tu me faire une petite explications un peux plus détaillé
merci d'avance

jean marc

[Marc-L]

Bonjour,

voir Les filtres avancés ou élaborés dans Excel …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[orcinus]

bonjour
merci pour vos réponses. J'ai bien regarder ce tuto mais sa ne correspond pas a ce que je souhaiterais faire.
Ce que je souhaite c'est que quant j'ouvre mon userform en cliquant sur le bouton ajouter de ma feuille "contact client" c'est que cela me génère automatiquement un numéro unique et que dans cette même userform pouvoir rajouter un bouton recherche qui me permettrai de retrouver un enregistrement de ma feuille "contact client" pour pouvoir modifier cet enregistrement.
Voila. Si il y a une possibilité je suis preneur.
Merci d'avance
jean marc

[Invité]

Tu peux utiliser le N° de ligne comme N° unique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NumUnique = ActiveSheet.UsedRange.Rows.Count + 1

ou incrémenté de 1 en fonction de la dernière ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NumUnique = ActiveSheet.Cells(ActiveSheet.UsedRange.Rows.Count, 1) + 1