Cellule a droite de la cellule active

[cloclo57]

Bonjour a tous :
Je suis bloqué par un petit probleme que je n'arrive pas a resoudre.
Dans la boucle ci dessous apres le (Range("D50").Value = c.Value)
je voudrais faire un (Range("E50").Value = Tarif) sachant que le tarif est dans
la cellule juste a droite de medecin.
J'ai essayé les lignes ci dessous , cela ne fonctionne pas.

Merci d'avance de votre aide


With Worksheets(1).Range("E5:dc36")
Set c = .Find(medecin, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do

Range("D50").Value = c.Value

'ici je voudrais copier la valeur de la cellule qui se trouve
'a droite de la cellule medecin

'ActiveCell.Offset(0, 1).Activate
'tarif = ActiveCell
'Range("f50").Value = tarif

Rows("50:50").insert Shift:=xlDown

Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

 

[Robert]

Re : Cellule a droite de la cellule active

Bonjour Cloclo, bonjour le forum,

Range("E50").Value = c.Offset(0,1).Value

Si j'ai bien tout compris....

 

[porcinet82]

Re : Cellule a droite de la cellule active

Salut,

Si j'ai bien compris mais rien n'est moins sur (dixit bhbh ), essais ceci :
Range("D50").Value = c.Offset(0,1).Value

@+

Edition : Haaaaa !!!! Mais comment est-ce possible, je me suis fais devancé par Robert !!!!

 

[cloclo57]

Re : Cellule a droite de la cellule active

Merci cela fonction tres bien

 

[cloclo57]

Re : Cellule a droite de la cellule active

Merci du renseignement , cela fonctionne tres bien

A+