Bonjour à tous,
Il existe de nombreuses solutions mais aucune ne me va bien.
Comment affecter à x la valeur de toutes les lettres de l’alphabet et les caractère "-" et "_"
Je recherche les chiffres de droite dans une cellule et à les extraire dans la cellule suivante
Ci-dessous des valeurs d'exemple
s1 => extraire 1
trz12 => extraire 12
da-35 => extraire 35
trv- 54 => extraire 54
vtr2_10 => extraire 10
bv2a-5 => extraire 5
b2-4a => extraire 4a (pour ici pas grave si ça ne marche pas).
Mon problème est que je n'ai pas toujours un espace ou un tiret ou autre chose comme repère, cela peut-être un caractère ou n'importe quelle lettre qui précède les chiffres, et je n'ai pas trouvé malqué de nombreuse recherche.
Voici ma macro actuelle.
Merci pour votre aide.
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 ordre() Dim Cellule As Range Dim txt As String Dim x As Variant For Each Cellule In Selection txt = Cellule.Text x = Split(txt, "a") 'la macro ne cherche que la valeur a, je veux tout chercher sauf de 1 à 9 Cellule.Offset(0, 1) = x(UBound(x)) Next Cellule End Sub
Partager