Discussion :

[nounours1952]

Bonjour à tous,

je connais les fonctions left, mid, right.

Mon problème est le suivant :

après importation des données d'un fichier texte, j'ai, par exemple, l'information suivante.

"Maison 6 pièces dans le Lubéron ( charmant mas provençal )"

J'aimerais supprimer la chaîne de caractères "( charmant mas provençal )". Toutes les chaînes commencent par " ( " et finissent par " ) ".

Je suis complètement bloqué dans ma réflexion pour trouver le code VBA qui ferait ça.

J'ai vraiment besoin qu'on me mette le pied à l'étrier.

Merci d'avance de vos conseils.

Cordialement
Pascal

[ARTURO83]

Bonjour,

Ceci

Code :

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

1
2
3
4
5
6
7
8
    Dim Chaine As String, Parenthese_Ouv As String, Parenthese_Fer As String
    Dim NewChaine As String, Chaine_Ret As String
    Application.ScreenUpdating = False
    Chaine = Range("A1").Value 'Chaîne de caractères à traiter
    Parenthese_Ouv = InStr(1, Chaine, "(", 1) 'position parenthèse ouvrante
    Parenthese_Fer = InStr(1, Chaine, ")", 1) 'position parenthèse fermante
    Chaine_Ret = Mid(Chaine, Parenthese_Ouv, Parenthese_Ouv) 'Chaîne à retirer
    NewChaine = Replace(Chaine, Chaine_Ret, "") 'Nouvelle chaîne

Cdlt

[Invité]

Bonjour,

Une autre solution possible :

Code :

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

1
2
3
4
5
6
 
Function ChaineSansParentheses(ByVal ChaineATraiter As String) As String
 
         ChaineSansParentheses = Trim(Split(ChaineATraiter, "(")(0)) & Trim(Split(ChaineATraiter, ")")(1))
 
End Function

[nounours1952]

Bonjour à tous,

merci à Kergresse et Arturo. Je vais tester ça.

Cordialement
Pascal

[nounours1952]

Bonjour à tous,

désolé pour le délai de ma réponse. Quelques soucis de hardware.

La proposition de Arturo83, n'enlève que la première parenthèse. Le reste n'est pas éliminé.

Celle d'Eric me pose un problème d'appel. Si je la mets dans le sub, le programme me demande un end sub. Si je mets la procédure dans un module et que je l'appelle par "Call ChaineSansParentheses", j'obtiens un message d'erreur de compilation "Argument non facultatif". Si je mets l'intégralité du nom de la procédure, le message d'erreur de compilation est "Attendu : séparateur de liste ou )". Pareil si j'enlève le "As String" après la parenthèse.

Que fais-je de travers ?

Amicalement
Pascal

[halaster08]

Bonjour,

Eric t'as proposé une fonction et non un sub
Deux option:
- soit tu la met dans un module et l'appelle comme tu n'importe quel autre fonction native:


- soit tu la met dans thisworkbook et tu l'utilise directement dans excel

[nounours1952]

Bonjour Halaster,

Toi : "- soit tu la met dans un module et l'appelle comme tu n'importe quel autre fonction native:"

Moi : "Si je mets la procédure dans un module"

Jusque là, j'ai tout bon (ouf !). J'ai fait quoi de travers, là ?
C'est l'appel de la procédure qui me pose problème, comme exposé (clairement, j'espère).

Amicalement
Pascal

[halaster08]

C'est l'appel de la procédure qui me pose problème

je connais les fonctions left, mid, right.

Comme je l'ai dit et montré sur la capture d'écran, tu appelle cette nouvelle fonction de la meme manière que tu appelle n'importe quelle autre fonction
Tu n'écris jamais call left(...), bah la c'est pareil.

[Invité]

Bonjour,

Voir l'exemple dans le fichier joint.

[nounours1952]

Re,

merci. Je l'ai adapté à mes besoins.

Amicalement
Pascal

[nounours1952]

Bonjour à tous,

suite au crash de mon DD, et donc la perte de mon programme VBA (ah bon, tu n'avais pas fait de sauvegarde ? Ben non, comme un c...!), il ne me restait plus qu'à tout refaire. Arrivé au point qui a motivé ma demande d'aide, je ne me rappelais plus les adaptations que j'avais appliquées. Après plusieurs tâtonnements, je vous soumets le produit opérationnel de mes réflexions. Pour rappel, je recherchais une méthode pour éliminer une chaîne de caractères à partir d'une parenthèse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Dim DerLig As Long
  Dim i As Integer
  Dim ChaineOri As String
  Dim ChaineModif As Variant
 
  DerLig = range("A" & Rows.count).End(xlUp).Row
    For i = 1 To DerLig
        ChaineOri = range("B" & i).value           'Chaîne à modifier
        ChaineModif = Split(ChaineOri, "(")        'Couper à partir de la première parenthèse
        range("C" & i) = ChaineModif               'Récupérer la chaîne modifiée
    Next

Encore merci pour votre aide précieuse et votre patience.

Cordialement
Pascal