valeur séparer par un underscore

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

Bonjour,

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

Code:

---

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

---

Bonjour

Regardes aussi du coté de la fonction Split.

Starec

Merci, je vais essayer de tester avec ça.

Je dirais même plus :mouarf:

Code:

---

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

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

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