Discussion :

[gaett]

Bonjour à tous,

je réalise une fonction recherche et je bloque un peu.
Pour le contexte, je recherche un composant dans ma base en entrant son part number. Dans un premier temps, je vais savoir s'il existe ou non et si il existe j'ai plusieurs choix.
(ça reste simple dans les boutons, je me pencherai par la suite sur un UserForm, j'ai donc un Yes,No et Cancel).

Si je clique sur "Yes", je vais aller sur la première "cellule contenant la valeur" rencontrée au fil des pages, la macro s'arrête. J'ai ma valeur.
La subtilité est pour le "No", je voudrais que lorsque je clique dessus, la recherche de la valeur ne se fasse que sur une feuille en particulier. Mais je coince, j'ai un problème d'exécution 1004 : La méthode Select de la classe Range a échoué.
Et le cancel, pour fermer.

Si vous pouviez me donner un petit coup de main , je vous remercie par avance, voici le code en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub PNsearch()
    Dim valeur As Variant
    Dim Wsh As Object
    Dim cellule As Range
 
    valeur = InputBox("Enter Your Part Number", "Search")
    If valeur <> "" Then
        For Each Wsh In ThisWorkbook.Worksheets
 
        With Wsh.Cells.Columns("A:A")
        Set cellule = .Find(valeur, LookIn:=xlValues)
        If Not cellule Is Nothing Then
            Select Case MsgBox("Part Number Found ! Go To ?", vbYesNoCancel, "Make a choice !")
                Case vbYes
                   Wsh.Activate: cellule.Select: Exit Sub
                Case vbNo
                   Worksheets("SourcesAVL").Activate: cellule.Select: Exit Sub
                Case vbCancel
                   Exit Sub
            End Select
        'UserForm1.Show
 
         End If
        End With
        Next
            MsgBox ("Your P/N doesn't exist in DataBase...")
    End If
 
End Sub

[Menhir]

j'ai un problème d'exécution 1004 : La méthode Select de la classe Range a échoué.

Déjà, commence par mettre une seul instruction par ligne au lieu de 3 comme tu le fais.
Ca te permettra de savoir sur quelle instruction se situe le problème.

[Igloobel]

Bonjour,

Pour ma part je ferai pas : Select Case MsgBox("...") ;

je ferai avant le for Each : Rep = MsgBox("...") ;

puis dans le for each : Select Case Rep.


Bon c'est pas testé à voir donc

tu nous dis

A+

[Zirak]

Bonjour,


Si je comprends bien :

- tu fais saisir un numéro d'identification de ta pièce
- tu balais chaque feuille de ton classeur à la recherche de ce numéro
- si tu le trouve, une msgbox s'ouvre et te demande si tu veux t'y rendre
- si tu mets oui, tu te rends sur ta cellule trouvée
- si tu mets non, tu actives une autre feuille, et tu essais de te rendre sur "cellule"

Sauf que "cellule" n'appartient pas à cette feuille que tu actives, mais à la feuille est était en cours de balayage, du coup je me demande si ce n'est pas ton cellule.select qui fait planter ta macro.

Tu devrais dans un premier temps, faire comme l'a suggéré Menhir, remettre une instruction par ligne, et lancer un debug en mode pas à pas, tu verras bien la ligne qui coince.

Si c'est effectivement l'instruction cellule.select, essais avec

Code :

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

cells(cellule.row, cellule.column).select

Ce qui pourrait t'amener sur ton nouvel onglet, à la cellule correspondant aux coordonnées de la cellule trouvée pendant ton balayage, mais à moins d'avoir exactement les mêmes données à la même position dans tout tes onglets, je ne comprends pas le but de ta manœuvre ?

[gaett]

Pour être plus précis,
déjà, les termes "oui, non, annuler" ne sont pas vraiment significatifs. On va traduire ça par : bouton 1, bouton 2 et annuler.

- tu fais saisir un numéro d'identification de ta pièce : OK
- tu balais chaque feuille de ton classeur à la recherche de ce numéro pour voir s'il existe: OK

- s'il est trouvé, je voudrais avoir deux choix, les deux boutons.

Le bouton 2 : affiche moi la valeur qui est présente sur cette feuille uniquement : SourcesAVL
Le bouton 1 : affiche moi la valeur qui est présente sur n'importe quelle feuille autre que SourcesAVL.

Le problème est que je n'ai pas su faire la fonction "autre que/sauf", donc je me suis rabattu sur du balayage. Ma page SourcesAVL est située tout à la fin de mon WorkBook, donc avec le bouton 1, je balaye et trouve ma valeur forcément avant d'atteindre la page SourcesAVL.

Et c'est bien le cellule.cell qui fait planter ma macro, j'ai mi une instruction par ligne

Merci pour vos messages, je vais chercher encore

[Zirak]

Alors pour moi tu fonctionne à l'envers.

Tu devrais faire le choix avant la recherche, pour savoir où chercher.

D'une part car le code cherché, n'est peut-être pas forcément présent exactement à la même cellule sur chaque page, et surtout, car ce n'est pas parce que tu tombes sur ce code en balayant une de tes autres pages, qu'il est forcément présent sur ta feuille SourcesAVL (et si il est présent, encore une fois, il n'est peut-être pas forcément exactement sur la même cellule).

Si tu pose la question avant :

- bouton2 : tu fais ta recherche simple directement sur ta feuille SourceAVL
- bouton1 : tu lance ton balayage actuel qui a l'air de fonctionner, pour chercher le code sur tes autres pages avec ta boucle.


Je pense que tu te simplifierais beaucoup les choses en faisant ainsi.