Récup de caractère dans une cellule

sabyann · 25 Mai 2010

Bonjour

j'ai plusieurs cellules qui comportent toutes 5 caractères. Pour chaque cellule, je souhaiterais ne conserver que le second caractère en partant de la gauche.

le tout dans en VB...

par avance, merci pour votre aide.

Efgé · 25 Mai 2010

Re : Récup de caractère dans une cellule

Bonjour sabyann,
Il est toujours plus sympa pour tous le monde de disposer d'un exemple au lieu de devoir le faire...
Une proposition, à adapter, evidemment.

Code:

Private Sub CommandButton1_Click()
For Each c In Sheets("Feuil1").Range("A1:A" & Range("A" & Application.Rows.Count).End(xlUp).Row)
    Cells(c.Row, 2).Value = Mid(c, 2, 1)
Next c
End Sub

Cordialement

JHA · 25 Mai 2010

Re : Récup de caractère dans une cellule

Bonjour à tous,

Je ne suis pas très doué en macro mais ci-joint 2 fonctions à mettre dans un module:
Celle ci te donne la 2ème lettre de la cellule A1:
=lettre2(A1)
Function lettre2(champ)
temp = ""
For Each C In champ
If Len(C.Value) >= 1 Then temp = Mid(C, 2, 1)
Next C
lettre2 = temp
End Function
Celle ci te donne toutes les 2ème lettre de la plage des cellules:
=lettre(A1:A3)
Function lettre(champ)
temp = ""
For Each C In champ
If Len(C.Value) >= 1 Then temp = temp & Mid(C, 2, 1)
Next C
lettre = temp
End Function

JHA

Récup de caractère dans une cellule

sabyann

Guest

Efgé

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Discussions similaires

Récup de caractère dans une cellule

sabyann

Guest

Efgé

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency