Aide pour mon PFE

Version imprimable

Aide pour mon PFE

Bonjour à tous,

J'ai besoin de vous pour m'aider à compléter un programme pour mon projet de fin d'études!

Dans une feuille j'affiche les résultats d'une recherche d'article. Je souhaite créer une fonction pour affiner ma recherche.
Dans une textbox :
Si tu trouve le mot-clé dans la cellule, rien
Si tu ne trouve pas le mot-clé dans la cellule tu me supprime toute la ligne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub CommandButton1_Click() Dim cellulecherche2 As Range Dim j As Integer With Worksheets("Recherche").Range(Cells(14, 2), Cells(200, 2)) Set cellulecherche2 = .Find(what:="*" & TextBox1 & "*", LookIn:=xlValues) Set cellulecherche2 = .FindNext(cellulecherche2) For j = 14 To 200 If Cells(j, 2).Value <> cellulecherche2 Then Cells(j, 2).EntireRow.Delete End If Next j End With Unload UserForm2 End Sub
Merci @+

10/08/2009, 21h48
Krovax

Mais de rien,
ce fut un plaisir de ne pas répondre.
En même temps ca serait pas mal d'expliquer ce qui ne te convient pas dans ton programme, bug, résultat incohérent....

Première chose tu parcours tes colonnes de haut en bas regarde cette exemple
on a 4 lignes

AAA0
BBB0
CCC0
DDD1

on supprime les lignes avec un 0 a la fin
i=1 on supprime la ligne 1 AAA0
on a

BBB0
CCC0
DDD1

i=2 on test la deuxième ligne CCC0
on la supprime
il nous reste

BBB0
DDD1

on teste la troisième et ma quatrième ligne sans modifier le résultat. Et la tu vois bien que cela coince.
il faut parcourir les colonne de la dernière ligne a la première

Code:

For j = 200 to 14 step -1

Autre chose je suppose que 200 est une valeur arbitraire, ca serait beaucoup plus pratique de te limiter a la dernière ligne rempli non?
Regarde ces exemples
http://www.developpez.net/forums/d45...gnees-feuille/

Essaye déjà de faire ceci, et si ca ne suffit pas explique un peu ton problème ;)
12/08/2009, 20h17
Nikes

Ok oui c'est vrai que j'ai rien expliquer.

Merci pour le step -1, ça marche déjà mieux!!Héhé!

Comment puis-je lui dire de ne pas s'arrêter à la première valeur qu'il trouve ?
Pour l'instant, seule la première ligne trouvée est conservée.

Merci.
12/08/2009, 20h57
Krovax

je ne comprend pas.
Tu cherche une mot clef il corespond a une référence tu supprmie toutes les ligne qui n'ont pas cette référence. Si tu cherche un nouveau truc tu aura une autre référence du coup tu supprimes ce que n'a pas cette référence la donc tout ce' qui te restais. A la fin tu n'as plus rien.

A mon avis commence par bien réfléchir a ce que tu veux faire (ou alors bien l'expliquer) et ensuite on avisera. Si c'est pour ton PFE je pense que ce n'est pas trop te demander :mouarf:
12/08/2009, 22h05
Nikes

Ouep t'a raison, alors

J'ai fais une recherche pour trouver le mot "A", voici les résultats :
AA1
AB2
AC3
AD1

Si j'ai trop de réponses, je créer une userform où j'ajoute un mot-clé. Par exemple "1".

Je veux juste donc avoir comme résultat : AA1 et AD1

Pour l'instant il ne me trouve qu'une seule valeur.

Voilà pour les explications,
merci et @+
12/08/2009, 23h35
Krovax

Je ne vais pas le faire a ta place (si quelqu'un veux s'en occuper je passe la main) mais on peu essayer d'y réfléchir ensemble car visiblement soit tu ne donne que des bride d'information soit tu n'as qu'une idée très vague de ce que tu veux faire et aucune idée de l'algorithme.

Tu veux effectuer une recherche, si il y a plusieurs solution possible alors proposer d'affiner la recherche jusqu'a n'avoir qu'une solution, c'est bien ca?

Donc dans un premier temps tu fait la fonction de recherche et tu comptes le nombre de résultat, ensuite en fonction de ce nombre soit tu balance l'algo précédent soit tu affine la recherche jusqu'a n'avoir qu'une solution et balancé ton algo.

Mais la on s'éloigne méchamment du problème de VBA là le souci me semble venir du fait que tu veux coder avant de réfléchir ;)
13/08/2009, 19h05
Nikes

Non c'est beaucoup plus simple que ça

En simplifié :

j'ai des nom de produits quelconque qui s'affiche dans une colonne. Je tape un mot-clé dans une textbox. Si une de ces cellules ne contient pas ce mot-clé, la ligne est supprimée. C'est valable pour toutes les cellules

Pour l'instant avec mon code, le programme s'arrête dès qu'il trouve le mot-clé dans une cellule, car au final il me reste qu'une seule ligne de produit. Je voudrais que toutes les cellules qui contiennent le mot-clé reste affiché.

Je ne sais pas comment relancer la machine...

Merci en tout cas...
14/08/2009, 18h54
Krovax
hmm en faisant tout simplement quelque chose comme ceci
Code:

1 2 3 4 5 For j =derniereligne to 14 step 1 If Cells(j, 2).Value <> textbox1 Then rows(j).Delete End If Next j
pas besoin de find ou de truc comme ca, tu entres un mot clef tu supprime toutes les ligne qui n'ont pas ton mot dans une certaine colonne

Mais essaye d'être précis tu as des mot dans une colonne tu parle d'une de ces cellules (une de la colonne?) valable pour toutes les cellules (de toutes les colonnes?)

Non ça ne marche pas, j'explique :
Dans la colonne 2, j'ai des cellules du genre :
bloc creux 10x20x50 nf sepa
bloc creux 15x20x50 nf sepa
bloc creux 10x20x50 nf sepa direct usine
bloc creux 15x20x50 nf sepa direct usine

si je cherche "usine", je veux supprimer les deux premières lignes

si je ne passe pas par la fonction find, il faudrait que le texte que j'écris dans la textbox soit exactement celui du produit (ce qui ne m'intéresse pas du tout).

Avec les lignes suivantes, seul la dernière ligne est conservée.
Code:

1 2 3 4 5 6 7 8 9 10 11 With Worksheets("Recherche").Range(Cells(14, 2), Cells(200, 2)) Set cellulecherche2 = .Find(what:="*" & TextBox1 & "*", LookIn:=xlValues) For j = [a65000].End(xlUp).Row To 14 Step -1 If Cells(j, 2).Value <> cellulecherche2 Then Cells(j, 2).EntireRow.Delete End If Next j Set cellulecherche2 = .FindNext(cellulecherche2) End With
Comment, lui dire de ne pas s'arrête à la première cellule trouvée ?

Dans ce cas, adaptes le code proposé par Krovax comme suit:

Code:

1
2
3
4
5
           For j =derniereligne to 14 Step -1
                If InStr(Cells(j, 2).Value, TextBox1)=0 Then
                    Rows(j).Delete
                End If
            Next j

16/08/2009, 14h19
Nikes

Dsl mercatog, mais ça marche carement pas...il me supprime tout

Ah! Bon
Tu en es sûr? ou à la hâte?
NE SOIS JAMAIS DSL :mouarf:

REGARDE FICHIER CI JOINT

Citation:

Dans la colonne 2, j'ai des cellules du genre :
bloc creux 10x20x50 nf sepa
bloc creux 15x20x50 nf sepa
bloc creux 10x20x50 nf sepa direct usine
bloc creux 15x20x50 nf sepa direct usine

si je cherche "usine", je veux supprimer les deux premières lignes

Supprime toutes les lignes ne contenant pas le mot sélectionné dans TextBox1

Et ici code amélioré,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Valid_Click() Dim derniereligne As Long Dim j As Long derniereligne = Range("B65000").End(xlUp).Row For j = derniereligne To 14 Step -1 If InStr(1, Cells(j, 2).Value, Trim(CStr(TextBox1.Value)), 1) = 0 Then Rows(j).Delete End If Next j USF.Hide End Sub

16/08/2009, 20h37
Krovax

le code est bon par contre tu doit avoir la chaine de caractère présente dans la cellule et avec les bonne majuscule minuscule sinon met

Code:

Option Compare Text

en tête du module

POST RESOULOU

...enfin presque résolu, lol!

Je voulais ajouter un petit complément à la fonction : si le mot-clé tapé n'existe pas dans les cellules, alors toutes les cellules sont supprimées. Pas cool ça. Si c'est le cas je veux afficher un message d'information du type "Aucun produit ne correspond à votre recherche" et retourner sur la USF sans supprimer les cellules.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 For j = derniereligne To 14 Step -1 If InStr(Cells(j, 2).Value, TextBox1) = 1 Then If InStr(Cells(j, 2).Value, TextBox1) = 0 Then Rows(j).Delete End If Else MsgBox "Aucun produit ne correspond à votre recherche", vbExclamation TextBox1.Value = "" TextBox1.SetFocus Exit Sub End If Next j
Bien sur ça ne marche pas! Es-ce que la fonction InStr peut renvoyer 1? ou quel est l'opposé de 0 ?

Merci de jeter un oeil,

Nikes

Code:

1
2
3
4
5
6
7
8
9
Dim trouve as Boolean
trouve =False
For j = 14 To derniereligne   'Pas besoin de l'inverse si aucune ligne n'est à supprimer
        If InStr(Cells(j, 2).Value, TextBox1) > 0 Then
                  trouve = True
                  Exit For
        End If
Next j
If Not trouve Then  MsgBox "Aucun produit ne correspond à votre recherche", vbExclamation

Dans ton editeur, double clique sur le mot InStr
fais F1

C'st gratuit et ça ne mords pas

20/08/2009, 00h16
Nikes

Ben j'ai regardé l'aide, mais on peut pas dire que j'ai accroché...

Merci pour le code, ça marche nikel là:ccool:

Une autre variante pour toutes fins utiles:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
 
Private Sub Valid_Click()
Dim LastLig As Long
Dim c As Range, plage As Range
 
LastLig = Range("B65000").End(xlUp).Row
Set plage = Range("B4:B" & LastLig)
Set c = plage.Find(TextBox1.Value, LookIn:=xlValues, lookat:=xlPart)
    If c Is Nothing Then
        MsgBox "Aucun produit ne correspond à votre recherche", vbExclamation
        TextBox1.Value = ""
        TextBox1.SetFocus
        Exit Sub
    Else
        MsgBox "La première occurrence contenant le mot [ " & TextBox1 & _
            " ] existe dans la plage de recherche dans la cellule " & c.Address()
        USF.Hide
        c.Select   'Sélectionne la première cellule trouvée répondant au critère de recherche
    End If
 
Set c = Nothing
Set plage = Nothing
End Sub

N'oublie surtout pas de mettre un F1 sur le mot Find

Fuseau horaire GMT +2. Il est actuellement 16h21.