Discussion :

[luksvibes]

Bonjour,


Je cherche à sélectionner dans ma feuille une cellule qui n'est pas nommée mais qui a comme valeur un certain nom (ici "Linthal")
Imaginons que dans ma feuille une certaine cellule a comme propriété :
Worksheet("sheet1").Range("macellule").Value=Linthal
Par contre je ne connais pas l'emplacement de "macellule" et je veux la sélectionner.
Ca parait peut-être tout bête mais je ne sais pas comment faire!^^
Merci pour vos réponses!

[mercatog]

Regarde l'aide sur la méthode Find de la collection Range. Tu y trouve aussi une petit exemple d'utilisation

[luksvibes]

Merci déjà pour cette réponse! Par contre je ne m'en sors pas!
Je tappe le programme suivant en ayant mis dans une cellule appartenant à la plage "B11:B500" le nom "Linthal"

Code :

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

1
2
3
4
5
 
With Worksheets("sheet1").Range("B11:B500")
Set c = .Find(Linthal, LookIn:=xlValues)
c.Select
End With

Et la sélection se fait sur la cellule B12. Du coup je ne comprends pas bien! Avec la commande ".Find(Linthal, LookIn:=xlValues)", est ce que je regarde toutes dans toutes les cellules de B11:B500?

[mercatog]

Linthal ainsi comme tu l'as écrite est considérée comme une variable et non la valeur recherchée.

Essaies comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Rech()
Dim c As Range
 
With Worksheets("sheet1").Range("B11:B500")
    Set c = .Find("Linthal", LookIn:=xlValues, Lookat:=xlWhole)
    If Not c Is Nothing Then
    MsgBox c.Address
        c.Select
        Set c = Nothing
    End If
End With
End Sub

PS1: Il faudra faire le test sur c, si aucun mot ne correspondant, c sera vide
PS2: Essaies d'éviter les Select

[luksvibes]

Merci beaucoup ce qu'il me manquait c'était le "Is nothing"!
Merci bien!^^

Pardon de te déranger encore une fois, mais si je veux que ce mot Linthal soit une variable justement!
En fait je veux plutot créer une fonction (je ne sais pas si c'est vraiment le cas^^) où je pourrai l'utiliser dans une macro en disant :

Code :

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

1
2
3
 
Rech(Linthal)
Selection.Offset(0, 13).Select

En fait je dois faire ça sur plusieurs mots comme Linthal, Peligre, etc...

[luksvibes]

Du coup en cherchant un peu j'ai trouvé!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Rech(param As String)
'Trouver le nom Linthal dans la feuille
Dim c As Range
 
With Worksheets("sheet1").Range("B11:B500")
    Set c = .Find(param, LookIn:=xlValues, Lookat:=xlWhole)
    If Not c Is Nothing Then
        c.Select
        Set c = Nothing
    End If
End With
'Sélectionner à partir du nom la cellule des heures
Selection.Offset(0, 13).Select
End Sub