Sujet Précédent Sujet Suivant

Code recherche sur partie d'un mot et sur plusieurs colonnes

Fermé
damdamdeo44 Messages postés 6 Date d'inscription jeudi 18 octobre 2012 Statut Membre Dernière intervention 29 octobre 2012 - 18 oct. 2012 à 20:27
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 24 oct. 2012 à 18:58
Bonjour,
je travaille sur un fichier qui aura au moins 3000 lignes.
sur excel 200 avec certaienement mise à niveau excel 2007 tres prochainement mais c'est pas confirmé.

j'ai des colonnes de A à X. je voudrais faire un textbox recherche en xlpart sur plusieurs colonnes.
j'ai réussi à mettre le code sur une. mais lorsque je mets le code sur une autre là rien ne se passe . pourtant ais modifié les données pous que cela pointe vers la bonne colonne. bref suis perdu.

je vous envois mon code
mais si vous trouvez mieux je suis preneur.

merci pour votre aide

le code : 

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
nx = TextBox1.Text: ' [B1] = nx
If nx = "" Then
[G7].Interior.ColorIndex = 5
On Error Resume Next
ActiveSheet.Range("A8:X" & [A65536].End(3).Row).AutoFilter Field:=1
Exit Sub
End If
'tx = "=*" & nx & "*"
tx = nx & ""
[G7].Interior.ColorIndex = 3
On Error Resume Next
ActiveSheet.Range("A8:X" & [A65536].End(3).Row).AutoFilter Field:=1, Criteria1:=tx, Operator:=xlAnd
End Sub



A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
19 oct. 2012 à 10:43
Bonjour,
Ce que vous avez programme est un filtre, pas une recherche proprement dite.

A+
0
Réponse 2 / 3
damdamdeo44 Messages postés 6 Date d'inscription jeudi 18 octobre 2012 Statut Membre Dernière intervention 29 octobre 2012
19 oct. 2012 à 13:24
ha !! oupsss merci

et vosu aurieaz uneidée de code ?

merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 19/10/2012 à 13:33
Bonjour

Dans l'aide en ligne de Find de VBA, tu as un exemple qui correspond peut-^tre à ta demande... tu as juste à changer la ligne C.value (xlpart est un param^tre par défait, donc, inutile de l'écrire) 

Visual Basic pour Applications  
With Worksheets(1).Range("a1:a500") 
    Set c = .Find(2, lookin:=xlValues) 
    If Not c Is Nothing Then 
        firstAddress = c.Address 
        Do 
            c.Value = 5 
            Set c = .FindNext(c) 
        Loop While Not c Is Nothing And c.Address <> firstAddress 
    End If 
End With  


© 2006 Microsoft Corporation. Tous droits réservés.
0
Réponse 3 / 3
damdamdeo44
24 oct. 2012 à 18:22
bonjour,

j'aurais besoin de vos lumières sur ce nouveau problème :

il me faudrait un userform qui permettrait à l'utilisateur d'aller chercher plusieurs fichiers excel (fonction parcourir) et de copier les lignes les unes derrière les autres. le nombre de fichiers peut varier.
de plus, il faudrait un code vb pour que le code scan ce fichier et si il trouve plus de trois fois la même occurence (par exemple le même problème décrit dans le commentaire ou la même "zone/lieu" du problème une alerte s'affiche. après validation, un tri est opéré sur ce fichier pour rassembler les occurences entres elles et un indice coloré (genre #1) est remplie dans une nouvelle colonne.

merci d'avance pour vos conseils

cordialement

damien
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 oct. 2012 à 18:58
....de rien pour la réponse avec find
0

Discussions similaires

Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
Mot de passe administrateur Freebox : où le trouver ?
Utilisateur anonyme -
Marie -

7 réponses
[référencement] Ne pas être référencé
kij_82 -
Searaphina -

10 réponses