Sélection partielle du contenu d'une cellule

[adebrux]

Salut à tous,
je cherche à sélectionner uniquement une partie d'une cellule. En effet, j'ai récupéré une base de donnée d'établissements, el les numéros de tel et de fax sont dans la même cellule. J'aimerai donc grâce à une macro sélectionner uniquement les caractère 6 à 20 et les copier, puis les derniers caractères si ce sont des chiffres.
Mercide votre aide
Arnaud

 

[Sylvain]

bonsoir,

avant de regarder les fonctions texte (gauche droite nbcar et surtout dans ton cas stxt), je te conseille de regarder le menu données / convertir. A mon avis si tu fais un tri avant, tu pourras éclater ta colonne en quelques manoeuvres car les données ne contenant que des chiffres vont se trouver en premier et en lançant cet outil sur cette sélection ça va se faire d'un coup.

 

[Robert]

Bonjour Adebrux, bonjour Sylvain,

Le code à suivre fonctionne sur la cellule active, à toi de l'adapter pour un plage.
Pour les caractères de 6 à 20 : Mid(ActiveCell, 6, 15)

pour le reste la macro suivante :

Sub Macro1()
Dim Tc() As String
Dim Nc As Byte
Dim Cn As String
Dim x as byte
Nc = Len(ActiveCell.Value)
For x = 21 To Nc
If IsNumeric(Mid(ActiveCell.Value, x, 1)) = True Then
ReDim Preserve Tc(x - 21)
Tc(x - 21) = Mid(ActiveCell.Value, x, 1)
End If
Next x
For x = LBound(Tc) To UBound(Tc)
Cn = Cn & Tc(x)
Next x
MsgBox Cn
End Sub

Message édité par: Robert, à: 07/07/2005 17:30