Discussion :

[Sebphyto]

Bonjour à tous,

Et merci à ceux qui voudront jeter un coup d'œil (pas trop fort ) à ma difficulté,

Voici, dans mon userform, je peux sélectionner plusieurs critères que je souhaite, par contre j'ai un souci, si j'ai, par exemple, 30 résultats dans la Lv, cela devient vite ingérable, y aurai-t-il un moyen pour qu'il me sorte seulement, en double-clic sur entête de la listview (c'est actuellement le cas), et qu'il m'affiche un msgbox avec une liste sélectionnable et imprimable?

Autres Analyses :

- Il ne recherche pas certains critères des combobox, car l'orthographe n'est pas exacte, alors qu'il faudrait qu'il recherche des semblables ou les 4 ou 5 premières lettres avec ou sans accents. (ex= pathologies : acné)

- Pourquoi lorsque je lance certaine recherche, il vient inscrire dans la feuille "recherche" des critères recherchés (genre : Acérola en P1)?

- Pourquoi me demande-t-il d'enregistrer à chaque fois que je veux quitter le classeur, alors qu'il n'y a eu aucune modif?


Merci encore de m'aider et de me faire comprendre mes erreurs,

A bientôt

[Docmarti]

Bonjour Sebphyto

Commence par ajouter la commande suivante en tête du module "recherche_phyto".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

et préférer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If C.Value Like

à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If C.Text Like

Voir l'aide (F1) sur l'opérateur LIKE.

[Sebphyto]

Bonjour Docmarti,

Merci de t'intéresser au sujet,

Etant débutant, c'est pas simple donc:

Ok pour ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

Par contre pour les deux autres j'ai une erreur,

Erreur de compilation Attendu:Expression

Je pense que je ne dois pas faire les choses comme il le faut???

Merci de ton aide

[Docmarti]

Je te conseillais de remplacer C.Text par C.Value dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If C.Text Like "*" & plantes.Text & "*" And C.Offset(0, 4) Like "*" & constchimiq.Text & "*" And C.Offset(0, 5) Like "*" & patho.Text & "*" _
            And C.Offset(0, 3) Like "*" & actpharm.Text & "*" Then

Mais c'est sans rapport avec ta question. Alors oublie ça.

[Sebphyto]

Ah ok, mais cela est toujours bon à prendre,

Je fait la modif

JE te remercie quand même

[Sebphyto]

Bonjour à tous,

Avis aux amateurs de difficultés,

Si vous trouvez faites moi signe, car la je ne trouve pas, tout cela pour mon projet que je souhaiterai finaliser à temps

Merci à vous

Et bon weekend

[Docmarti]

Voici, dans mon userform, je peux sélectionner plusieurs critères que je souhaite, par contre j'ai un souci, si j'ai, par exemple, 30 résultats dans la Lv, cela devient vite ingérable, y aurai-t-il un moyen pour qu'il me sorte seulement, en double-clic sur entête de la listview (c'est actuellement le cas), et qu'il m'affiche un msgbox avec une liste sélectionnable et imprimable?

Remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.PrintPreview
       Me.Show

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Worksheets("Résultats et Impression").Activate
       Exit For

Autres Analyses :

- Il ne recherche pas certains critères des combobox, car l'orthographe n'est pas exacte, alors qu'il faudrait qu'il recherche des semblables ou les 4 ou 5 premières lettres avec ou sans accents. (ex= pathologies : acné)

Modifie la propriété MatchEntry des 4 combobox.

- Pourquoi lorsque je lance certaine recherche, il vient inscrire dans la feuille "recherche" des critères recherchés (genre : Acérola en P1)?

Fais une recherche de P1 dans le code. Tu vas trouver la cause de cette apparition intempestive.

- Pourquoi me demande-t-il d'enregistrer à chaque fois que je veux quitter le classeur, alors qu'il n'y a eu aucune modif?

C'est parce qu'il y a eu une modification. Vas voir dans le code l'événement Workbook_BeforeClose.

[Sebphyto]

Bonjour Docmarti, Et le forum,

Merci pour tes réponses,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheets("Résultats et Impression").Activate
       Exit For

Comment dire, cela ne correspond pas à ce que j'aimerai, car lorsque j'ai besoin de sélectionner un ou plusieurs éléments dans Lv, je souhaiterai qu'il m'ouvre un Msgbox, afin que je puisse avoir le choix de sélectionner tel ou tel recherche et après l'imprimer cette sélection.

Fais une recherche de P1 dans le code. Tu vas trouver la cause de cette apparition intempestive.

C'est bon j'ai trouvé, merci

Modifie la propriété MatchEntry des 4 combobox.

J'ai mis la propriété à MatchEntry à 0 (first letter)
Par contre, je ne vois pas ce que cela à changer, car pour cette recherche par exemple (Pathologie puis Acné), il ne trouve rien!!!

C'est parce qu'il y a eu une modification. Vas voir dans le code l'événement Workbook_BeforeClose.

Voici mon code, et comme de faite s'est normal qu'il me le demande, et comme faire pour qu'il ne prenne pas en compte cette modif car sans importance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Worksheets("Résultats et Impression").Range("E5:G6,E8:G9,E11:G11,B13:D14,A17:C29,D17:G29,A31:C43,D31:G43,A45:G48").Select
    Worksheets("Résultats et Impression").Range("A45").Activate
    Selection.ClearContents
End Sub

Ps: je joins le nouveau fichier avec les modifs, et le userform pour impression que je souhaiterai
Pièce jointe 143535
Très bonne avance et je t'en remercie

A bientôt

[Sebphyto]

Bonjour à tous,

Merci de votre aide, tout est bon pour moi, tout fonctionne, J'ai ajouté un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trim

, pour chaque liste, car j'avais des problème d'espace en fin de mot

A bientôt