Pb variable

[renaud]

Bonjour a tous,

Pouvez vous me dire comment reoudre ce probleme,


Dim stock As String
ch = DDEInitiate("winblp", "bbk")
stock = ActiveCell.Target.Offset(0, 8).Value

Je cherche a donner a la variable stcok le contenu de la cellule qui se situe 8 cellules a droite de la cellule active. Cette cellule a pour valeur FTE FP, ce n est pas un nombre, je ne sais pas si cela pose probleme.

merci

 

[Ronan]

Bonsoir à tous,

Remplace ceci :

stock = ActiveCell.Target.Offset(0, 8).Value

par cela :

stock = ActiveCell.Offset(0, 8).Value

Le terme TARGET ne peut pas être employée avec la fonction ACTIVECELL car il représente une variable qui doit être définie

Sub Essai()

Dim stock As String

Dim Target As Range

Set Target = ActiveCell

ch = DDEInitiate("winblp", "bbk")
'C'est l'un
stock = ActiveCell.Offset(0, 8).Value
'Ou l'autre
stock2 = Target.Offset(0, 8).Value

End Sub

@+

Ronan

 

[renaud]

super, merci ronan