Excel vba recupere une chaine de caractere

Version imprimable

13/09/2010, 10h37
Marc31

Excel vba recupere une chaine de caractere

Bonjour,
J'aimerais savoir comment je peux faire en vba pour récupérer automatiquement les valeurs entre parenthèses par exemple voir ci dessous (EC) ou (EC AC) qui correspond à contrat eau et contrat assainissemnt car après selon la valeur je veux remplir deux autres colonnes que j'appellerais eau et assainissement par oui ou non.
Merci pour votre aide et bonne journée

Communes
ANDERNOS LES BAINS (EC)
ARES (EC)
AUDENGE (EC AC)

Bonjour,

tu peux essayer

Code:

1
2
3
4
5
6
7
8
9
10
Dim Cible As String
 
Cible = "ANDERNOS LES BAINS (EC)"
MsgBox Mid(Cible, InStr(1, Cible, "("))
 
Cible = "ARES (EC)"
MsgBox Mid(Cible, InStr(1, Cible, "("))
 
Cible = "AUDENGE (EC AC) "
MsgBox Mid(Cible, InStr(1, Cible, "("))

et une deuxième possibilité :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Dim Tableau() As String
    Dim i As Integer
 
    Tableau = Split("ANDERNOS LES BAINS (EC)", "(")
    MsgBox "(" & Tableau(UBound(Tableau))
 
    Tableau = Split("ARES (EC)", "(")
    MsgBox "(" & Tableau(UBound(Tableau))
 
    Tableau = Split("AUDENGE (EC AC) ", "(")
    MsgBox "(" & Tableau(UBound(Tableau))

bonne journée
michel

13/09/2010, 13h51
Marc31

Merci Michel,
mais j'ai 380 lignes et ça me paraît difficile de faire ligne par ligne...enfin j'aurais pensé avec une boucle do while pouvoir faire quelque chose mais je vois pas!!

Je suppose que les données sont dans la colonne A

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub sc5()
Derligne = [A65536].End(xlUp).Row
On Error Resume Next
    For i = 1 To Derligne
        Cells(i, 2) = Split(Cells(i, 1), "(")
        a = Split(Cells(i, 1), "(")(1)
        b = Mid(a, 1, Len(a) - 1)
        Cells(i, 3) = Split(b, " ")
        Cells(i, 4) = Split(b, " ")(1)
        a = ""
        b = ""
    Next i
End Sub

A peaufiner

JP

en colonne A, données, en colonne B: Eau, en colonne C: assainissement
à adapter

Code:

1
2
3
4
5
6
7
8
Dim LastLig As Long, i As Long
With Sheets("Feuil3")           'à adapter
    LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastLig
        If InStrRev(.Range("A" & i), "EC") > 0 Then .Range("B" & i) = "OUI"
        If InStrRev(.Range("A" & i), "AC") > 0 Then .Range("C" & i) = "OUI"
    Next i
End With

13/09/2010, 16h07
SilkyRoad

Citation:

mais j'ai 380 lignes et ça me paraît difficile de faire ligne par ligne...enfin j'aurais pensé avec une boucle do while pouvoir faire quelque chose mais je vois pas!!

Ta question initiale parle d'extractions de données, pas de boucles....

La gestion des boucles dans Excel :
http://silkyroad.developpez.com/vba/boucles/
14/09/2010, 10h31
Marc31

Merci pour les réponses!!
14/09/2010, 11h28
AlainTech

Bonjour,

Ton problème est-il résolu?