Discussion :

[domy59]

bonjour

je travail sur un Userform, et je voudrais savoir comment récupérer les données qui ce trouve dans la cellule.
quand je pointe sur la Cellule choisis (celle ci comporte déjà une concaténation) avec la Fonction " Tmp=Val(ActiveCell.FormulaR1C1 " j'obtiens 0 ?? alors que dans la cellule il y a une valeur "exp: 90"
comment faire pour obtenir cette valeur

merci d'avance

[DidierLoche]

Bonsoir,

Je n'ai personellement pas compris grand chose à ton problème !
Est-ce que tu veux récupérer la valeur 90 de l'expression "exp: 90" ?
Tu peux faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Valeur As Double, texte As String
texte = ActiveCell
Valeur = CDbl(Mid(texte, 6, Len(texte)))

Cela suppose que le format est toujours le même, à savoir que le nombre à récupérer commence à la 6ème position.
A toi de voir ensuite en fonction du format de tes chaines de caractères.

Didier

[domy59]

Bonsoir

merci pour ta reponse mais c'etais ça que j'attendais!

il fallait tous simplement que je remplace le "ActiveCell.FormulaR1C1 " par
ActiveCell.value et ca me domme la valeur de la cellule et non pas la fomule qui allait chercher le resultat d'une autre cellule

encor merci