Probleme de macro

re,

Ok. Merci.

Je vois que tu avais enlevé "secteur" des macros. Normal que cela ne fonctionnait pas.

Sur base de ton dernier fichier, remplace tes macros par celles-ci :

Sub Recherche()
'MAcro par Nad-dan pour Max70200 - XL pratique le 22/04/08
Dim TROUVE As String, secteur As String
Dim cell As Range
secteur = Sheets("INFOS").Range("B2").Value
TROUVE = Sheets("INFOS").Range("B4").Value
With Sheets(secteur)
     .Activate
For Each cell In .Range("B3:B1000")
If cell.Value = TROUVE Then cell.EntireRow.Select
Next cell
End With
End Sub

Sub TROUVE()
'MAcro par Nad-dan pour Max70200 - XL pratique le 22/04/08
Dim TROUVE As String, secteur As String
Dim cell As Range
secteur = Sheets("INFOS").Range("E2").Value
TROUVE = Sheets("INFOS").Range("E4").Value
With Sheets(secteur)
    .Activate
For Each cell In .Range("D2:D1000")
If cell.Value = TROUVE Then cell.EntireRow.Select
Next cell
End With
End Sub

Pour le test j'ai utilisé ces données :

B2 = Injection, B4 = Collier chauffant 100x55, E2 = Injection, E4 = 121167

A te relire

Dan

J'avais enlevé secteur car lorsque je fait F5 pour lancer la macro j'avais un message d'erreur qui apparaissait,et qui apparait encore avec cette nouvelle macro!

Erreur d'execution '9' :

L'indice n'appartient pas a la sélection

je clique sur débogage et il me renvoi a cette ligne:

With Sheets(secteur)

Ce message d'erreur n'apparait que pour le recherche de désignation,les recherches par références elles fonctionnent

Et maintenant j'ai ce message d'erreur pour les deux fonctions,je n'y comprend plus rien!

re,

Sur ton fichier, ton bouton "Trouve" n'est pas associé à la macro qu'il faut.

Pour désignation -> MAcro Recherche

Dan

Bon sa marche,mais ce que je ne comprend pas,c'est qu'il continue a m'afficher le message d'erreur lorsque je veux exécuter les macros.Mais sinon c'est parfait,merci Nad-Dan

re,

Et avec ce fichier ? -> https://www.excel-pratique.com/~files/doc/qoq9DStockMaintenanceMax.zip

Dan

Bonjour a tous,

j'ai une question concernant les recherches,j'aimerais pouvoir effectuer une recherche,sans prendre en compte si l'on est en majuscules ou minuscules.

C'est possible de faire sa?

Merci

re,

Normalement tu ne devrais avoir de soucis. Sinon place OPTION COMPARE TEXT en entête des macros dans le module ( juste avant la macro Sub RECHERCHE)

Dan

Bonjour,

OK pour ce qui est des majuscules/minuscules le problème est réglé.Et maintenant si je fais une faute d'orthographe,ou si je ne connais pas la désignation complete?

Est ce que c'est possible que la recherche me renvoi a des mots qui ressemblent a celui que j'ai tappé?

Merci

Re,

C'est aussi possible mais cela va chnager la macro évidemment et le résultat aussi.

Exemple : si en désignation tu tapes "collier",on pourrait faire en sorte de n'afficher que les résultats trouvé pour "collier"

Essaie avec cette macro à la place de la macro Rechercher

Sub Recherche2()
'MAcro par Nad-dan pour Max70200 - XL pratique le 22/04/08
Dim TROUVE As String, secteur As String
Dim cell As Range
secteur = Sheets("INFOS").Range("B2").Value
TROUVE = Sheets("INFOS").Range("B4").Value
With Sheets(secteur)
     .Activate
Selection.AutoFilter Field:=2, Criteria1:="*" & TROUVE & "*", Operator:=xlAnd
End With
End Sub

Dan

Je te remercie pour la macro,mais apparement sa n'a pas l'air de fonctionner,je viens de faire plusieurs essais de recherche.

re,

Tu as essayé avec quelles données ? Avec collier je n'ai eu aucun souci.

Le bouton est associé à la bonne macro ?

Dan

Bonjour,

oui le bouton est associé a la bonne macro,j'ai vérifier.

Alors je ne comprend pas pourquoi sa marche pas,aussi bien avec collier que n'importe quel autre mot.

Encore une erreur de ma part désolé

en fait dans la feuille infos j'ai supprimé une ligne donc en fait j'avais juste a changer

TROUVE = Sheets("INFOS").Range("B4").Value

en

TROUVE = Sheets("INFOS").Range("B3").Value

et en effet,cette fois,sa marche!

Merci