Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

nicorep7

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

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

Bonjour,
à tout hasard :
Code:
Sub toto()
Dim m As Range
Set m = Range("B2")
m.Offset(2, 1) = m.Value
End Sub
A+
Edit : bonjour Dranreb !
 

nicorep7

XLDnaute Nouveau
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
 
Dernière édition:

Dranreb

XLDnaute Barbatruc
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 :
VB:
M = Val(Worksheets("tolerences").Range("B2").Offset(2, 1).Value)
 

nicorep7

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…