Discussion :

[SybVicious]

Bonjour,

j'ai plusieurs cellules de la forme "ANI1_n_HI" et "ANI1_n_LO"
n etant un chiffre allant de 1 a 20
J'aimerais recuperer les deux dernieres lettres de ces cellules (Hi ou Lo) mais je n'y arrive pas.
J'ai essyer avec la fct trim(split) mais vu qu'il y a deux underscores je ne peux pas isoler le Hi ou le Lo
Auriez vous une idée ?

Merci d'avance?

[SfJ5Rpw8]

il y as d'autre fonction de chaine que trim ... style Right

voir :
I-C. Extraire une portion de caractères en partant de la droite

[cafeine]

c'est pas DROITE() dans Excel ?

[SfJ5Rpw8]

c'est pas DROITE() dans Excel ?

oui pour une formule dans une cellule... mais en code VBA c'est Right

[Lexot2]

Bonjour

Sous Excel, on peut écrire :
=DROITE(C5;2)

et faire du copier/coller dans toutes les cellules ou on veut récupérer les 2 lettres.

C5 est la référence de la cellule de type "ANI1_n_HI" et "ANI1_n_LO"

Sous vba voici un ex de code

Code :

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

Range("D6").Value = Right(Range("C6").Value, 2)

[Lexot2]

Bonjour

Voici une macro qui extrait les 2 derniers caractères d'une colonne de données, et elle recopie ces 2 caractères sur la colonne de droite. La variable compteur "co" est paramétrable, et vaut 50 dans l'exemple. La macro teste le contenu de la cellule et s'arrête après 50 cellules vides.

Code :

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

Dim inc As Integer, co As Integer

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Extraire()
 
inc = 0: co = 0
Do Until co = 50
If ActiveCell.Offset(inc, -1) = "" Then co = co + 1
ActiveCell.Offset(inc, 0) = Right(ActiveCell.Offset(inc, -1), 2)
inc = inc + 1
Loop
 
End Sub