Discussion :

[cathe]

Bonjour,

J’ai besoin d’aide pour un problème qui me fait perdre les cheveux.

Tout d'abord, je ne suis pas une pro de la programmation, je débute VBA

Je dois créer un controlling pour la planification du personnel. Ce fichier sert à comptabiliser le nombre de collaborateurs par numéros de service.

Les données sont importées dans Excel par un programme de planification (voir en annexe). Comme on peut le constater, des numéros de service ont une lettre devant le numéro, d’autres après et certains entre parenthèses. Ces caractères alphabétiques posent problèmes pour la comptabilisation des services. J’ai essayé avec les formules SUBSTITUE, GAUCHE, DROITE, CHERCHE, STXT, etc mais rien n’y fait car les caractères alpha sont mis de manière aléatoire.

Existe-t-il un moyen de dire à Excel d’enlever tous les caractères alphabétiques sans toucher aux caractères numériques ?

Un grand merci pour votre aide.
Catherine

[Patrice740]

Bonjour,

Essaies ce code :

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
Sub t()
Dim cel As Range
Dim frm As String
Dim val As String
Dim i As Integer
 
  For Each cel In Range("B12:V200").Cells
    frm = cel.Formula
    If Left(frm, 1) <> "=" Then  'ignore les formules
      val = ""
      For i = 1 To Len(frm)
        If Mid(frm, i, 1) Like "[0-9]" Then
          val = val & Mid(frm, i, 1)
        End If
      Next i
      cel.Formula = val
    End If
  Next cel
End Sub

Cordialement
Patrice

[cathe]

Bonjour,

Super, c'est parfait.
Un grand merci à vous.
Cordialement
Catherine

[Patrice740]

De rien, au plaisir de te relire sur le Forum
Patrice