Filtre automatique sous VB excel pour tous les champs commencant par "1"

Question

Bonjour &#224; vous

Je dois &#224; partir d une base de donn&#233;e consequente et evoluante supprimer un nombre important d enregistrement pour ne travailler que sur ce qui m interesse.
pour cela je cherche &#224; sortir une macro qui effectue un filtre automatique sur ma premi&#232;re colonne, que celui ci me selectionne tous les enregistrements commencant par "1.........." , (mes enregistrement sont de 7 ou 8 chiffres

Comment donc lui dire de filtrer ces enregistrment

merci d avance

Zlub · Answer

Salut,

Pour ce genre de question &#231;a serait sympas de donner le nom des champs et celui de la table que tu manipules...



Bon on va dire que c'est Table ( id, lib, ...)



SELECT * FROM Table WHERE lib LIKE "1%"
Tu auras tous les lib commen&#231;ant par 1


aussi bien 1 que 12, 123,123456994



++

Zlub

Zlub · Answer

Salut,

ok j'suis un boulet ... c'est pour excel ... sorry

++

Zlub

blarrere · Answer

C'est pas grave, je vais essayer avec cela sous excel on verra, si qlq un a d autre id&#233;e enfin surtout la solution merci d avance

Zlub · Answer

Salut,


Tu peux essayer &#231;a ... Le code marque "trouv&#233;" &#224; cot&#233; des valeurs trouv&#233;e...




Private Sub CommandButton1_Click()



nb = 0

Cells(1, 1) = ""



On Error GoTo notFind

While (Cells.Find(What:="1*", After:=ActiveCell, LookIn:=xlFormulas, LookAt _

        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

        False, SearchFormat:=False).Activate) And (ActiveCell.Address <> celStart)



        If nb 0 Then celStart ActiveCell.Address

       

        Dim ligne As Integer

        ligne = ActiveCell.Row

        Dim colonne As Integer

        colonne = ActiveCell.Column + 1

        Cells(ligne, colonne) = "trouv&#233;"

        nb = nb + 1

Wend



notFind:

Cells(1, 1) = "not found"



End Sub

++

Zlub

Filtre automatique sous VB excel pour tous les champs commencant par "1"

4 réponses

Discussions similaires