Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide Recherche
1446 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2110268
ivan_isaak
Posté le 08-11-2011 à 06:24:48  profilanswer
 

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

mood
Publicité
Posté le 08-11-2011 à 06:24:48  profilanswer
 

n°2110292
ivan_isaak
Posté le 08-11-2011 à 10:21:07  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
[CSS]Mise à jour d'une partie du siterequete sur type de données
essaiRequête SQL sans résultat en VBA (ADO)
Gestion de document Word via macro VBA excelCalculer la différence entre deux dates (VBA)
[Powershell] Trier sur une sous-partie d'attribut[deb][python]choix type données pour un tri
Toute petite macro VBA pour enregistrementHelp Me !! VBA 2007 impression et ouverture automatique de PDF
Plus de sujets relatifs à : VBA couper une partie des données dans une autre colonne


Hit-Parade
Copyright © 1997-2012 Hardware.fr SARL / Groupe LDLC / LesNumeriques.com / Version anglaise du site: BeHardware