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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 !
 
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 ?
 
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 !
 
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:
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)
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
439
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…