Discussion :

[Yullll]

Bonjour,

Mon problème : dans une cellule j'ai par exemple la valeur S34. Je voudrais en fait extraire le 34.
Est il possible d'extraire cette valeur dans une autre cellule par exemple ?
J'adapterais ensuite a mon code.

J'ai pensé a quelque chose comme ca mais il faudrait plutot une fontion pour lui faire identifier la valeur.
Je n'ai pas trop d'idées. Pouvez vous m'aider ou m'indiquer un fonction qui fait le job car j'ai pas trouvé ...

Code :

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

1
2
3
4
5
6
 
Sub test()
Dim val As Integer
Range("D2").Value = "S" & val
Range("A1").Value = val
End Sub

[mercatog]

Tu as toujours S suivi d'un nombre ou bien une seule lettre suivie d'un nombre ou bien plusieurs lettres suivies d'un nombre

[Yullll]

Bonjour mercatog,

Effectivement j'ai toujours S suivi d'un nombre allant de 1 a 52. En fait ce sont des numéros de semaines.
Cependant pour mon traitement il est plus intéressant et plus facile de les traiter en données numérique uniquement.

Merci de ton aide

[Theze]

Bonjour,

Evites d'utiliser des noms réservés comme variable, Val() est une fonction VB. Et dailleurs, si tu avais eu le S non pas au début mais à la fin, tu aurais pus utiliser la fonction Val() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
 
    Dim MaValeur As Integer
    Dim Chaine As String
 
    Chaine = "34S"
 
    MaValeur = Val(Chaine)
 
    MsgBox MaValeur
 
End Sub

Comme le S est devant, tu peux utiliser la fonction Replace() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub test()
 
    'Dim val As Integer '<-- à éviter, Val() est une fonction VB !
    Dim MaValeur As Integer
    Dim Chaine As String
 
    Chaine = "S34"
 
    MaValeur = CInt(Replace(Chaine, "S", ""))
 
    MsgBox MaValeur
 
End Sub

Tu peux aussi utiliser la fonction Right() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
 
    Dim MaValeur As Integer
    Dim Chaine As String
 
    Chaine = "S34"
 
    MaValeur = Right(Chaine, Len(Chaine) - 1)
 
    MsgBox MaValeur
 
End Sub

Bon, j'arrête là ;-)

[Yullll]

Merci beaucoup Theze,

En fait il faut plutôt partir sur le traitement de la chaîne de caractère ! Je prenais le problème a l'envers.
Merci pour tes solutions elles fonctionnent très bien les deux !

Bonne soirée

Pb résolu !