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

blarrere Messages postés 9 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 28 juillet 2005 - 23 juil. 2005 à 19:34
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 - 24 juil. 2005 à 06:07
Bonjour à vous

Je dois à partir d une base de donnée consequente et evoluante supprimer un nombre important d enregistrement pour ne travailler que sur ce qui m interesse.
pour cela je cherche à sortir une macro qui effectue un filtre automatique sur ma premiè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

4 réponses

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
23 juil. 2005 à 19:58
Salut,

Pour ce genre de question ç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çant par 1


aussi bien 1 que 12, 123,123456994



++

Zlub
0
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
23 juil. 2005 à 19:58
Salut,

ok j'suis un boulet ... c'est pour excel ... sorry

++

Zlub
0
blarrere Messages postés 9 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 28 juillet 2005
23 juil. 2005 à 20:01
C'est pas grave, je vais essayer avec cela sous excel on verra, si qlq un a d autre idée enfin surtout la solution merci d avance
0
Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
24 juil. 2005 à 06:07
Salut,


Tu peux essayer ça ... Le code marque "trouvé" à coté des valeurs trouvé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é"

nb = nb + 1

Wend



notFind:

Cells(1, 1) = "not found"



End Sub

++

Zlub
0