Formulaire qui rempli des cellules specifique

Bonsoir tous le monde,

Je n'ai pas trouvé le classeur que j'avais trouvé sur le forum.

Par contre je viens de tomber sur un post très intéressant. https://forum.excel-pratique.com/post427039.html?hilit=filtre%20premi%C3%A8res#p427039

Voir le post de CEUZIN, et le classeur "Copie de ListeIntuitiveLettresForm"

magnifique la recherche !!! faut que j'arrive à l'adapter maintenant.

edit : 00h58 j'ai réussi à l'appliquer sans probleme. Je tape par exemple CH il me sort toutes les adresses qui ont ch

c'est magnifique.

encore merci a l'auteur du classeur, et merci à grisan, gelinotte, galopin et les autres.

Bonjour,

Concernant le ComboBoxAdressesSites, tu demandais un changement d'approche ... grâce au lien soumis, voici une proposition adaptée.

Pour tester, tu sélectionnes le code présent, tu le places en commentaire. Colle ce code proposé ... teste ...

Private Sub ComboBoxAdressesSites_Change()
  Set d1 = CreateObject("Scripting.Dictionary")
  x = Replace(Replace(Me.ComboBoxAdressesSites, ".", ""), " ", "")
  tmp = "*"
  For i = 1 To Len(x): tmp = tmp & Mid(x, i, 1) & "*": Next i
  tmp = UCase(tmp)
  For Each cc In d
   tmp2 = "*" & Replace(Replace(cc, ".", ""), " ", "") & "*"
   If UCase(tmp2) Like tmp Then d1(cc) = ""
  Next cc
  Me.ComboBoxAdressesSites.List = d1.keys
  Me.ComboBoxAdressesSites.DropDown

 Me.TextBoxCodePostal = retFind(Me.ComboBoxAdressesSites, [AdresseSite], 2)
End Sub

Gelinotte

bonsoir, merci beaucoup, j'applique ca à mon classeur perso et vous redis ca !! mercii