Sélection partielle du contenu d'une cellule

adebrux · 7 Juillet 2005

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 · 7 Juillet 2005

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 · 7 Juillet 2005

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

Sélection partielle du contenu d'une cellule

adebrux

XLDnaute Occasionnel

Sylvain

XLDnaute Occasionnel

Robert

XLDnaute Barbatruc

Discussions similaires