Discussion :

[A_blz]

Bonjour,

La question a surement été posé de nombreuses fois mais je n'arrive pas à trouver la réponse.

Dans mon code, je souhaite obtenir l'adresse d'une cellule ainsi que sa valeur.

Lorsque je sélectionne ma cellule, cela fonctionne, mais impossible d'y mettre un .Value ou .Address !!

Code :

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

1
2
3
4
Cells(Columns(1).Find(What:="toto", LookIn:=XlValues).Row , 2 ).Select
' Ok ca marche
Cells(Columns(1).Find(What:="toto", LookIn:=XlValues).Row , 2 ).Value (ou .Adress)
'Erreur : Propriété ou méthode non géré par cet objet

D'où vient cette erreur ?

Merci !

[Marc-L]

Bonjour,

mauvaise utilisation de la méthode Find, consulter l'aide VBA intégrée et son exemple …


Sinon Select est une méthode tandis que Value est une propriété, d'où l'erreur !
Là aussi l'aide est à portée de clic ! Sans compter les nombreux exemples dans les discussions de ce forum …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[mercatog]

Code :

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

1
2
3
4
5
6
7
Dim c As Range
 
Set c = Worksheets("Feuil1").Range("A:A").Find("toto", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
    MsgBox "Adresse: " & c.Address & "   ,   Valeur cellule juste à droite: " & c.Offset(, 1).Value
    Set c = Nothing
End If