Discussion :

[bertin19]

Bonjour,

je cherche une ou deux fonctions VBA me permettant d'afficher des chiffres ou des lettres.

J'ai des numéros de parcelle (A120, A01, B200, B03, AZ01 par exemple). Les lettres représentent la section de la parcelle et les chiffres, le numéro de parcelle. Je souhaite obtenir une (ou deux fonctions) qui me retourne, au besoin, la section (lettres) ou le numéro de parcelle (les chiffres).

Quelqu'un peut m'aider ?

Merci

[philben]

bonjour,
essayer ceci :

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
 
Public Function GetSectionNumeroParcelle(ByVal Parcelle As String, ByVal JeVeuxLaSection As Boolean) As String
   Dim iCut As Integer
   'On recherche la position du premier caractère qui est un chiffre.
   'On part du deuxième caractère de la parcelle car le premier est toujours une lettre...
   iCut = 2
   While Not IsNumeric(Mid$(Parcelle, iCut, 1))
      iCut = iCut + 1
   Wend
   If JeVeuxLaSection Then
      GetSectionNumeroParcelle = Left$(Parcelle, iCut - 1)
   Else
      GetSectionNumeroParcelle = Mid$(Parcelle, iCut)
   End If
End Function

Philippe

[bertin19]

Merci sir Philippe,
c'est exactement ce qu'il me fallait !