Discussion :

[gregounnet]

Bonjour,

Je souhaite recuperer un interger d'une string situe dans une cellule
example : dans la cellule A1, il y a la chaine 65aaa; je voudrais mettre 65 dans l'entier test

Code :

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

1
2
3
Dim test As Interger
WorkSheet.select
test = Range("A1").value

Ca ne fonctionne pas
Merci

[Plateforme3]

Bonjour
Si ton formatage de cellule reste identique à quelque chose prêt à ce que tu nous montre (le numérique au début

Code :

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

test=val(range("A1").value)

Slts

[ouskel'n'or]

Utilise Val
Fonctionne quand la valeur est en début de string. Ex :

Code :

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

1
2
msg = Val("65aaaa")
MsgBox msg '= 65

par contre si tu as "aaaa65" le résultat est "0"

[Azounet1529]

Connais-tu la place de cet entier?
Est-il toujours à la même place ?
Si c'est le cas tu peux utiliser les opérateurs left et right
et tester que tu as bien un entier (à voir dans le tuto sur les chaines de caractères )

Az

[gregounnet]

ok

Merci beaucoup

C'est ce que je cherchais

Ca fonctionne

@+