Recuperation d'une valeur numerique d'une cellule avec la fonction offset

[nicorep7]

Bonjour,
Je suis débutant sur VBA et comme indiqué dans le titre je souhaite Récupérer la valeur numérique d'une cellule avec la fonction offset et la stocker dans une variable.
Ci-dessous, la ligne de code en question qui ne fonctionne pas :/

m = Worksheets("tolerences").Range("B2").Offset(2, 1).Value

merci !

 

[Dranreb]

Re : Recuperation d'une valeur numerique d'une cellule avec la fonction offset

Bonjour.
Êtes vous sûr que le nom de la feuille est exactement aussi mal orthographié que cela ?
Que le classeur actif est bien celui qui contient cette feuille ?
Que sa cellule C4 contient une donnée compatible avec le type de donnée de la variable m ?

 

[david84]

Re : Recuperation d'une valeur numerique d'une cellule avec la fonction offset

Bonjour,
à tout hasard :

Sub toto()
Dim m As Range
Set m = Range("B2")
m.Offset(2, 1) = m.Value
End Sub

A+
Edit : bonjour Dranreb !

 

[nicorep7]

Re : Recuperation d'une valeur numerique d'une cellule avec la fonction offset

Merci d'avoir répondu si vite,

En ce qui concerne l'orthographe, la faute d'orthographe est présente sur le code et le nom de la feuille donc le problème ne vient pas de la, ensuite la cellule C4 contient effectivement une valeur (-0.02) que peut normalement stocker m (dim m as double)
Par contre je ne pense pas que la procédure de David84 correspond a ma demande car je veux stocker la valeur numérique de la cellule C4 dans la variable m, pour ensuite généraliser la procédure afin de la faire fonctionner quel que soit le décalage avec le offset.

Cordialement

 

[Dranreb]

Re : Recuperation d'une valeur numerique d'une cellule avec la fonction offset

Possible que ce soit une valeur String.
Essayez MsgBox TypeName(Worksheets("tolerences").Range("B2").Offset(2, 1).Value)
Dans ce cas si elle comporte un point qui n'est pas le séparateur décimal normal de votre classeur vous devez la récupérer par :

M = Val(Worksheets("tolerences").Range("B2").Offset(2, 1).Value)

 

[nicorep7]

Re : Recuperation d'une valeur numerique d'une cellule avec la fonction offset

Alors je viens de me rendre compte que j'avais inverser les chiffre du offset(2,1) a la place de (1,2) , je prenais donc une cellule vide (D3), en modifiant mon code le résultat est enfin celui souhaité.
Désolé pour vous avoir sollicité pour une erreur d’inattention, merci encore.
Cordialement