Discussion :

[sandra75]

Bonjour,

Sous Excel en VBA
je desire effectuer un copier coller d'une colonne A comprenant dans les cellules de l'alphanumerique vers une colonne B , en ayant effacé les chiffres pour ne garder que les lettres.

Est ce que quelqu'un aurait la solution ?

Merci

[Michel_M]

Salut Sandra:

cette fonction enlève les nombres d'une cellule alphanumérique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Function enleve_nbre(ByRef texto As String) As String
 
      Dim reg As Object
      Dim extraction As Object
      Dim lettre As Object
 
     'instancie
     Set reg = CreateObject("vbscript.regexp")
 
    '  travaille sur toute la cellule
    reg.Global = True
    '  définit le modèle (complémentaire au chiffres )
   reg.Pattern = "(\D)"
 
    ' éxécute l'extraction svt modèle (collection des lettres)
    Set extraction = reg.Execute(texto)
    ' concaténète les membres de la collection "extraction"
    For Each lettre In extraction
        enleve_nbre = enleve_nbre & (lettre.Value)
    Next lettre
 
    Set extraction = Nothing
    Set reg = Nothing
End Function

ci joint tite démo

[sandra75]

Merci de votre reponse, en effet sous votre feuille ca fonctionne
Comment est ce qu'on insere un module ?
suis débutante en VBA..

LOL

Merci

excel 2002

[Tdeny]

Bonjour,

Ça peut se faire aussi en formule.
Avec SI, CODE > 57, STXT et CONCATENER
Mais il faut répéter autant de fois qu'il y a de caractères.

[kiki29]

passer sous VBE [Alt+F11] puis Menu Insertion | Module

Sinon moins élégante qu'une expression régulière

Code :

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

1
2
3
4
5
6
7
8
9
 
Function RemoveNum(ByVal s As String) As String
Dim i As Long
    For i = 1 To Len(s)
        If IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = " "
    Next i
    s = Replace(s, " ", "")
    RemoveNum = s
End Function

[sandra75]

ah oui, j'ai aussi des caracteres a retirer tel que ///, comment est ce que je peux l'integrer dans la formule.

MErci

[kiki29]

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function RemoveNum(ByVal s As String) As String
Dim i As Long
    For i = 1 To Len(s)
        If IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = " "
    Next i
    s = Replace(s, " ", "")
    s = Replace(s, "/", "")
    RemoveNum = s
End Function

[Michel_M]

re à tous

a la place de
reg.pattern="(/D)"

écris;
reg.Pattern = "([a-zA-Zçàâäéèêëïîôöùû])"

[kiki29]

Création Fonction Personnalisée

Le code est à placer dans un Module standard
[Alt+F11] Menu Insertion | Module

Ensuite sous Excel
Sélectionner la cellule de destination
Menu Insertion | Fonction | Catégorie : Personnalisées
Sélectionner la Fonction_Désirée
l'assistant apparait etc

Sinon par Exemple A1 =Fonction_Désirée(...)

[sandra75]

C'est trooooop Cool

MERCI MERCI MERCI

[Cedric53]

J ai le meme souci mais je doit enlever un gilmet

du type ' 00900 et je veut enlever le gilmet et les 2 espaces avant mon nombre

Pouvez vous m aider ?

Cordialement

[Cedric53]

J ai trouver comment faire pour enlever le gilmet et les espaces

J ai une nouvelle demande :

Aujourd hui j ai de cases du type 00020012802 et je voudrait enlever les 6 premier chiffre pour avoir a la fin juste 12802

Pouvez vous m aider ?

Cordialement