Discussion :

[PC81]

Bonjour,

Dans un script en VBA je récupère une variable de la forme : "3213_21312"
et en fait mon problème est que je voudrais récupérer les deux valeurs qui sont de part et d'autre de l'underscore.

var1 <- 3213
var2 <- 21312

Quelqu'un pourrait-il m'aider svp ?? Merci d'avance

[fring]

Bonjour,

Il y a différentes méthodes possibles dont celle-ci

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim x As Byte, Chaine As String, Val1 as string, Val2 as string
 
Chaine = Range("A1") '<-- chaîne de caractères à scinder
 
x = Application.WorksheetFunction.Search("_", Chaine) '<-- défini la position de l'underscore
Val1 = Left(Chaine, x - 1) '<-- partie à gauche de l'underscore
Val2 = Mid(Chaine, x + 1) '<-- partie à droite de l'underscore
End Sub

[Invité]

Bonjour

Regardes aussi du coté de la fonction Split.

Starec

[PC81]

Merci, je vais essayer de tester avec ça.

[ouskel'n'or]

Je dirais même plus

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    If Range("A1") Like "*_*" Then
          Cells(1, 2) = Split(Range("A1"), "_")(1)
          Cells(1, 1) = Split(Range("A1"), "_")(0)
        Else
          Cells(1, 1) = Range("A1") 'S'il n'y a pas de "_"
    End If
End Sub

Bonne journée à tous

[PC81]

Je vais essayer avec la commande Split car l'autre marche mais ne semble pas prendre en compte lorsque il n'y a pas de underscore. Merci

[PC81]

Je l'ai adapté à mon code et ça marche parfaitement,
merci de votre aide et bonne journée