Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2787 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
requete sur type de donnéesessai
Requête SQL sans résultat en VBA (ADO)Gestion de document Word via macro VBA excel
Calculer la différence entre deux dates (VBA)[Powershell] Trier sur une sous-partie d'attribut
[deb][python]choix type données pour un triToute petite macro VBA pour enregistrement
Help Me !! VBA 2007 impression et ouverture automatique de PDF 
Plus de sujets relatifs à : VBA couper une partie des données dans une autre colonne


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR