VBA couper une partie des données dans une autre colonne - VB/VBA/VBS - Programmation
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
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
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