Discussion :

[STEPH69000]

Bonjour,

Est ce possible en vba de modifier le contenu de mes cellules et si oui de quelle façon?
Sachant que j'ai entre 1000 et 1200 cellules a modifier.
J'ai besoin de supprimer les parenthères et ce qu'elles contiennent.
exemple :
Bonjour (25)

ici je dois supprimer : (25)

voici ce que j'ai deja fais:

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
 
Sub efface()
 
Dim Cel As Range
Set Cel = Range("b2")
 
While Cel <> ""
 
'theoriquement la modification se fait ici
 
Set Cel = Cel.Offset(1, 0)
wend    
 
 
End Sub

Merci

[linda15975]

est-ce que la parenthèse est toujours de la même longueur?

[Ania]

voici un ti bout de code
qui te permettre de parcourir les cellules de la colonne "B" et de couper tout ce qu'il y a apres la première parenthèse.

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
19
Sub efface()
 
Dim i As Integer, j As Integer
Dim MyString As String, MyStringSSparenthese As String
 
  Do While Cells(i, 2).Text <> ""
    MyString = Cells(i, 2).Text
 
    For j = 1 To Len(MyString)
      If Mid(MyString, j, 1) = "(" Then
        MyStringSSparenthese = Left(MyString, j - 1)
        Exit For
      End If
    Next j
    Cells(i, 2) = MyStringSSparenthese
    i = i + 1
  Loop
 
End Sub

tiens nous au courant et bonne continuation

[STEPH69000]

linda15975 : les longeurs varient, il peut y avoir des nombres ou des lettres.

Ania : je viens de faire un copie/coller, j'ai l'erreur 1004 : erreur définie par l'application ou par l'objet.
Y a t'il des variables a adapter a mon fichier excel?

Merci

[linda15975]

Voici une autre méthode qui écrit la chaine sans parenthèse dans la colonne d'à coté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Cel As Range, Position As Integer, ChaineSSParenthese As String
Dim Cel2 As Range
 
Set Cel = Range("A1")
 
While Cel <> ""
Position = InStr(Cel, "(")
ChaineSSParenthese = Left(Cel, Position - 1)
Set Cel2 = Cel.Offset(0, 1)
Cel2 = ChaineSSParenthese
Set Cel = Cel.Offset(1, 0)
Wend

[linda15975]

si tu veux utiliser le code d'Ania, tu as juste à rajouter

Code :

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

i=1

au début du code car si il n'est pas initialisé, i vaut 0 et la cellule (0,1) n'existe pas.

[STEPH69000]

Voici une autre méthode qui écrit la chaine sans parenthèse dans la colonne d'à coté:

ce n'est pas tout a fait ce que je souhaite, il faut que les parenthèses et ce qu'il s'y trouve a l'intérieur soient effacés

[linda15975]

Il suffit alors d'écrire dans la même cellule:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Cel As Range, Position As Integer
 
Set Cel = Range("A1")
 
While Cel <> ""
Position = InStr(Cel, "(")
Cel = Left(Cel, Position - 1)
 
Set Cel = Cel.Offset(1, 0)
Wend

[illight]

tu peux aussi faire une macro du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub efface()
Dim i As Integer
Dim str As String
Dim strTemp
 
str = Cells(1, 1).Value
i = 1
While Mid(str, i, 1) <> "("
    i = i + 1
    strTemp = Mid(str, 1, i - 1)
Wend
MsgBox (strTemp)
End Sub

Après il faut que tu mette une boucle sur la ligne de la cellule

[STEPH69000]

Finalement je l'ai fait en Perl (plus simple pour moi)
Merci pour votre participation