vba excel recuperer une chaine de caractere

Version imprimable

18/09/2010, 15h46
Marc31

vba excel recuperer une chaine de caractere
Bonjour,

Je récupère des chaine de caractères pour les envoyer d'une feuille à l'autre.
La colonne A est composé du nom de la commune.
Exemple AUROS (ES) avec le contrat derrière mais j'aimerais envoyer sur l'autre page que le nom de la commune sans le type de contrat.
Code:

1 2 3 4 5 6 Sub macro() Sheets("données").Range("A:A").Copy Sheets("table").Range("A1") Sheets("données").Range("B:B").Copy Sheets("table").Range("D1") End Sub
Merci et bon week end
18/09/2010, 16h03
mercatog

Pas claire
Décrire la forme générale des données de ta colonne A et préférentiellement avec des exemples concrets de différents cas de figure.
C'est quoi ceci AUROS (ES) ? et que veux tu en sortie.
Un seul exemple n'est pas suffisant et je ne sais pas ce que c'est AUROS ni ES
18/09/2010, 16h30
Marc31

En fait ma feuille excel se présente comme ça:

Communes Adresse 2

ANDERNOS LES BAINS (EC) Hôtel de Ville
ARES (EC) Hôtel de Ville
AUDENGE (EC) Hôtel de Ville
BEGADAN (ES - AS) Hôtel de Ville
BELIN BELIET (EC - AC) Hôtel de Ville

J'aimerais renvoyer sur une autre feuille, le nom des communes mais pas leurs type de contrat qui est la valeur entre parenthese.
Exemple de type de contrat (EC) ou (EC-AC) ou (AC).
En fait je voudrais retirer toutes les valeurs entre les parentheses et ne recuperer que le nom de la commune.
mERCI

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim LastLig As Long, NewLig As Long, i As Long
Dim m As Integer, n As Integer
Dim Comm As String
 
With Sheets("Feuil3")   'Adapte au nom de la feuille source Feuil3 et destination Feuil5
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastLig
        Comm = .Range("A" & i)
        If Len(Comm) > 1 Then
            m = InStr(Comm, "(")
            n = InStr(Comm, ")")
            If m * n > 1 Then Comm = Left(Comm, m - 1) & Mid(Comm, n + 2)
            NewLig = Sheets("Feuil5").Cells(Rows.Count, 1).End(xlUp).Row + 1
            Sheets("Feuil5").Range("A" & NewLig) = Comm
            Sheets("Feuil5").Range("D" & NewLig) = .Range("B" & i)
        End If
    Next i
End With

18/09/2010, 17h14
Marc31

Encore merci c'est exactement ça!! et petite question perso, j'aimerais savoir comment devenir bon en vba?
Bon week end et encore merci!
18/09/2010, 19h32
AlainTech

Citation:

Envoyé par peter11

j'aimerais savoir comment devenir bon en vba?

En travaillant beaucoup...
En regardant les codes des autres et en en retirant le meilleur.
En étudiant chaque instruction, fonction, méthode et propriété au fur et à mesure de leur utilisation.
La touche F1 est un excellent professeur quand on sait s'en servir.

Et puis... En se trompant beaucoup et en cherchant pourquoi "ça ne marche pas".

Ah oui, j'oubliais.
En utilisant à outrance le mode pas à pas et toutes les aides de l'éditeur VBA (Espions, Variables locales...).