Discussion :

[Marc31]

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)

[SilkyRoad]

Bonjour,

tu peux essayer

Code :

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

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 :

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

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

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

[JPierreM]

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

Code :

Code :

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

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

[mercatog]

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

Code :

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

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

[SilkyRoad]

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/

[Marc31]

Merci pour les réponses!!