Question avec .Find et adressage

J'ai à effectuer une recherche dans une zone a1 à sdligne) sur un nom puis
par la suite à regarder la valeur qui se trouve 2 colonne à droite
(colonne C) de cette valeur. ce que je constate est que .find ne déplace
pas le curseur ni ne me permet d'interroger ou de manipuler ce qui se
trouve sur cette ligne. Comment devrais-je faire?

Ci-dessous un bout de code pour permettre de visualiser mon problème.

i2=1
snoyau=N97
strousse=Visio
With Worksheets(2).Range("a1:a" & sdligne)
Set c = .Find(snom, LookIn:=xlValues)

If Not c Is Nothing Then

c.Activate
If Cells(i2, 3) = snoyau Then
Cells(i2, 4) = strousse
Else

i2 = i2 + 1

End If

Bonjour.
c.offset(0,2) devrait faire l'affaire ?
Cordialement.
Daniel
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message de
news: OoUi2OJFHHA.3668@TK2MSFTNGP02.phx.gbl...

J'ai à effectuer une recherche dans une zone a1 à sdligne) sur un nom
puis par la suite à regarder la valeur qui se trouve 2 colonne à droite
(colonne C) de cette valeur. ce que je constate est que .find ne déplace
pas le curseur ni ne me permet d'interroger ou de manipuler ce qui se
trouve sur cette ligne. Comment devrais-je faire?

Ci-dessous un bout de code pour permettre de visualiser mon problème.

i2=1
snoyau=N97
strousse=Visio
With Worksheets(2).Range("a1:a" & sdligne)
Set c = .Find(snom, LookIn:=xlValues)

If Not c Is Nothing Then

c.Activate
If Cells(i2, 3) = snoyau Then
Cells(i2, 4) = strousse
Else

i2 = i2 + 1

End If

Merci mais cela génère une erreur de syntaxe. Est-ce que la syntaxe est
correcte?

"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OAdiluJFHHA.1240@TK2MSFTNGP03.phx.gbl...

Bonjour.
c.offset(0,2) devrait faire l'affaire ?
Cordialement.
Daniel
"François Racine" <Francois.Racine@hotmail.com> a écrit dans le message
de news: OoUi2OJFHHA.3668@TK2MSFTNGP02.phx.gbl...

J'ai à effectuer une recherche dans une zone a1 à sdligne) sur un nom
puis par la suite à regarder la valeur qui se trouve 2 colonne à droite
(colonne C) de cette valeur. ce que je constate est que .find ne
déplace pas le curseur ni ne me permet d'interroger ou de manipuler ce
qui se trouve sur cette ligne. Comment devrais-je faire?

Ci-dessous un bout de code pour permettre de visualiser mon problème.

i2=1
snoyau=N97
strousse=Visio
With Worksheets(2).Range("a1:a" & sdligne)
Set c = .Find(snom, LookIn:=xlValues)

If Not c Is Nothing Then

c.Activate
If Cells(i2, 3) = snoyau Then
Cells(i2, 4) = strousse
Else

i2 = i2 + 1

End If

Je remarque également que offset ne permet qu'une lecture seule.

Je remarque également que offset ne permet qu'une lecture seule.

????
Non Offset permet toute sorte d'opérations.

With Worksheets(2).Range("a1:a" & sdligne)

Set c = .Find(snom, LookIn:=xlValues)

If Not c Is Nothing Then

c.Activate
coordonnee = c.Address
ActiveCell.Offset(rowOffset:=0, columnOffset:=2).Activate

vnoyau = ActiveCell.Offset(rowOffset:=0, columnOffset:=2)

Ici tu compares bnoyau à la cellule se trouvant deux colonnes à droite de la

With Worksheets(2).Range("a1:a" & sdligne)

Set c = .Find(snom, LookIn:=xlValues)

If Not c Is Nothing Then

c.Activate
coordonnee = c.Address
ActiveCell.Offset(rowOffset:=0, columnOffset:=2).Activate

Tu sélectionnes la cellule se trouvant deux colonnes à drooite de celle
trouvée par le Find.

vnoyau = ActiveCell.Offset(rowOffset:=0, columnOffset:=2)

Ici tu compares bnoyau à la cellule se trouvant deux colonnes à droite de

la cellule active, soit 4 colonnes à droite de la cellule trouvée par la
commande Find. A mon avis, il faut mettre :

vnoyau = ActiveCell

Ce que tu peux écrire plus simplement :

If Not c Is Nothing Then
vnoyau = c.Offset(0, 2)