VBA couper une partie des données dans une autre colonne

VBA couper une partie des données dans une autre colonne - VB/VBA/VBS - Programmation

Marsh Posté le 08-11-2011 à 06:24:48    

Bonjour à tous,
 
Je suis nouveau et totalement débutant en programmation de macro... A vrai dire, au lieu de les programmer, je les enregistre habituellement....
 
Enfin, cette fois, l'exercice est impossible a effectuer en enregistrement simple...
 
Voici un extrait de mon tableau sur excel 2007  
 
http://nsa27.casimages.com/img/2011/11/08/mini_111108062945425307.png
 
J'aimerais pouvoir créer une macro qui détecte automatiquement la parenthèse de la colonne E pour la couper/coller dans la colonne F. De cette manière, il ne resterait que le nom de la ville dans la colonne E.
 
Si quelqu'un peut m'aider ca serait vraiment sympa...
 
Merci

Reply

Marsh Posté le 08-11-2011 à 06:24:48   

Reply

Marsh Posté le 08-11-2011 à 10:21:07    

Problème réglé. Merci à Pijaku d'un autre forum.  
 
Dim Lign As Long
Dim Chaine As String
 
With Sheets("Feuil1" ) ' à adapter ==> le nom de ta feuille
'de la lign 6 à 14 A ADAPTER
For Lign = 6 To 14
    'vérifie la présence d'une parenthèse ouvrante dans la cellule
    If InStr(.Cells(Lign, 5), "(" ) <> 0 Then
        'on stocke, dans la variable Chaine le contenu de la cellule Col E
        Chaine = .Cells(Lign, 5)
        'on extrait la partie à gauche de (
        .Cells(Lign, 5) = Left(Chaine, InStr(Chaine, "(" ) - 2)
        'on extrait la partie à droite de (
        .Cells(Lign, 6) = Right(Chaine, Len(Chaine) - InStr(Chaine, "(" ) + 1)
    End If
'ligne suivante
Next
End With

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed