Discussion :

[Marc31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!

[AlainTech]

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...).