[VBA E]selectionner cellule connaissant sa valeur

bonjour à tous

Je cherche à retrouver l'adresse d'une cellule connaisant sa valeur dans une plage definit.
J'ai fait une recherche pour trouver ma valeur dans la plage mais je n'arrive pas à selectionner la cellule correspondante.

J'ai essayer "ActiveCell" mais ça marche pas car la seule cellule active est celle en haut à gauche de ma plage.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim d As Variant Dim source As Range Set source = Sheets("feuil1").Range("b18:c19") For Each d In source d = Range("D15").Value MsgBox (d) Stop Next

Salut,

Essaye plutôt un truc comme ça:
Code:

1 2 3 4 5 6 7 8 9 Dim source as range dim cible as range Set source = Sheets("feuil1").Range("b18:c19") Set cible = source.Cells.Find(ceQueTuCherches, activecell,xlValue, xlWhole) If Not Reponse Is Nothing Then Msgbox cible.address End If
Je te conseille le tutoriel de Bidou, il y a un paragraphe sur la fonction Find (http://bidou.ftp-developpez.com/Cours/VB/VB-excel2.pdf)

Merci plegat

Mais ton code me renvoit l'erreur "l'indice n'appartient pas à la selection"

voila le code:

Code:

1
2
3
4
5
6
7
8
9
10
Dim f As String
Dim source As Range
Dim cible As Range
 
f = Range("D15").Value
Set source = Sheets("feuil1").Range("b18:c19")
Set cible = source.Cells.Find(f, ActiveCell, xlValue, xlWhole)
If Not Reponse Is Nothing Then
    MsgBox cible.Address
End If

Citation:

Envoyé par zoumzoum59

Mais ton code me renvoit l'erreur "l'indice n'appartient pas à la selection"

Sur quelle ligne?

[PS]raaah!!! J'adore l'Italie, mais je sens que je ne vais plus aimer les italiens!!!!

bonsoir plegat

L'erreur etait sur la ligne set source et je l'ai modifier comme cela et ça fonctionne mais il y a peut etre mieux
Code:

1 2 3 4 5 f = Range("D15").Value Sheets("feuil1").Range("b18").Select Set source = Sheets("feuil1").Range("b18:c19") Set cible = source.Cells.Find(f, ActiveCell) cible.Select
Merci