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

[AlainTech]

Lexot2, plusieurs commentaires:
Tu ne déclares aucune variable.
Inutile de parcourir des cellules vides.
Que se passe-t-il si tu n'as pas sélectionné la première cellule de ta colonne avant de lancer ta macro?

Voici une amélioration de ton code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Extraire()
  Dim rCol As Range
  Dim rCell As Range
  Dim wks As Worksheet
  Set wks = Sheets("LaFeuille")
  Set rCol = Range(wks.Cells(1, 1), _
            wks.Cells(wks.Cells.SpecialCells(xlLastCell).Row, 1))
  ' ou Set rCol = Range(wks.Cells(1, 1), wks.Cells(65535, 1).End(xlUp))
  For Each rCell In rCol
    rCell.Offset(0, 1) = Right(rCell, 2)
  Next rCell
End Sub

Essaye d'en comprendre les améliorations.
Il peut être mis dans un module plutôt que dans le code de la feuille concernée.

[Lexot2]

Bonsoir

Merci AlainTech pour l'amélioration de mon code.
Précisons toutefois, que la programmation en vba excel n'est qu'un hobby, et que je suis toujours satisfait quand je progresse.

En tant qu'électronicien, j'ai une assez bonne connaissance de certains langages assembleur, et dans l'algorithmique en général. J'aurai toujours beaucoup à apprendre dans ce langage, étant donné que je suis débutant.

Néanmoins, j'ai écrit :

Dim inc As Integer, co As Integer

ce qui veut dire que mes variables sont déclarées. Avec plus d'expérience, j'aurai davantage de maîtrise dans vba excel.

J'ai réalisé le jeu Nimb25. Si tu pouvais l'essayer et me dire ce que tu en penses, j'en serais ravi. Ce jeu m'a servi de tremplin en vba. Pour mon travail, je n'utilise pas le vba.

[AlainTech]

Sorry, autant pour moi.

Vu que les déclarations étaient en dehors de la Sub, je ne les avais pas remarquées.

Ceci dit, voici bien un cas où on a intérêt à déclarer les variables en local.