Discussion :

[zoumzoum59]

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 :

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

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

[plegat]

Salut,

Essaye plutôt un truc comme ça:

Code :

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

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)

[zoumzoum59]

Merci plegat

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

voila le code:

Code :

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

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

[plegat]

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!!!!

[zoumzoum59]

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 :

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

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