Recherche et sélection d'une cellule non adjascente

[JerCaz]

Bonjour à toutes et tous!

Comme je l'ai dit dans la rubrique "présentation", je suis "grand débutant" dans excel 2003, et je suis confronté à un problème de macro pour lequel je ne trouve pas de solution...

En effet, j'ai le souhait ambitieux de créer une macro qui réalise ceci:
effectuer une recherche dans la colonne A, entre A3 et A500, en demandant dans une boite de dialoque la référence à chercher, et, si cette référence est trouvée, mettre le curseur dans la cellule de la colonne D en face de la cellule de la colonne A contenant cette référence.
Exemple: je cherche la référence "1234" dans les cellules situées entre A3 et A500. Cette référence est trouvée dans la cellule A300; le curseur se place donc dans la cellule D300.
Par contre, si cette référence n'est pas trouvée, une boite de dialogue affiche "cette référence n'existe pas".


En effectuant des recherches, j'ai trouvé comment créer la boite de dialogue qui demande la référence du produit et la prendre en compte dans une variable:

reference_produit = InputBox("Entrez la référence du produit")

Ensuite, sans être sûr de mon coup, je pense avoir trouvé comment demander à excel de rechercher cette variable entre A3 et A500:

For Each Cell In Sheets(1).Range(Range("A3"), Range("A500").End(xlUp).Address).Cells
If Cell.Value = reference_produit Then

Mais c'est après le "Then" que ça se complique...
Effectivement, je ne sais pas comment dire à excel que si il trouve ma référence dans une cellule A, il faut qu'il mette le curseur dans la cellule D correspondante.

De même, je ne sais pas lui dire que si ma variable "reference_produit" ne correspond à aucune référence, il m'affiche la boite de dialogue "cette référence n'existe pas" (ça donnerait un truc du genre IF numero_produit n'existe pas Then MsgBox "ce produit n'existe pas!"


Un grand spécialiste des macros saurait-il m'aider à avancer dans mon schmilblick ?????

D'avance, merci d'avir pris le temps d'étudier mon problème.


Cordialement,

Jérôme.

 

[mromain]

Re : Recherche et sélection d'une cellule non adjascente

bonjour JerCaz,

je te propose ce code :

Sub test()
reference_produit = InputBox("Entrez la référence du produit")
Set cellule = Range("A3:A500").Find(what:=reference_produit, LookIn:=xlValues, lookat:=xlWhole)
If cellule Is Nothing Then
    MsgBox "ref non trouvée"
Else
    cellule.Offset(0, 3).Select
End If
End Sub

a+

 

[pierrejean]

Re : Recherche et sélection d'une cellule non adjascente

bonjour JerCaz

teste ceci:

Sub cherche()
achercher = InputBox("Reference a chercher")
Set c = ActiveSheet.Range("A3:A500").Find(achercher, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  c.Offset(0, 3).Select
Else
  MsgBox ("reference introuvable")
End If
End Sub

Edit: Salut mromain

 

[JerCaz]

Re : Recherche et sélection d'une cellule non adjascente

Merci à tous les 2 pour votre rapidité!
Je teste tout de suite!
Un grand merci!

 

[alj50]

Re : Recherche et sélection d'une cellule non adjascente

Bonjour,

Essaye avec cette procédure :

Sub RechercheReference()
Dim Ref As String, c As Range
Ref = InputBox("Référence", "Recherche")

Set c = Range("A1:A500").Cells.Find(Ref, LookIn:=xlValues)
If Not c Is Nothing Then
c.Offset(0, 2).Select
Else
MsgBox "Référence non trouvée"
[A1].Select
End If
Set c = Nothing
End Sub

Je pense que ça marche.

 

[JerCaz]

Re : Recherche et sélection d'une cellule non adjascente

C'est parfait !!!!

La preuve que je suis un grand débutant!

En quelques minutes, vous avez été 3 à me dépanner, et avec des solutions différentes mais qui fonctionnent toutes!

Un grand merci à tous les 3 !!!!!