modifier le contenu d'une cellule

Version imprimable

14/06/2006, 09h19
STEPH69000

modifier le contenu d'une cellule
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:

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
14/06/2006, 09h35
linda15975

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

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:

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

14/06/2006, 09h47
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

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

Code:

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

14/06/2006, 10h09
linda15975

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

Code:

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.
14/06/2006, 11h25
STEPH69000

Citation:

Envoyé par linda15975

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

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

Code:

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

tu peux aussi faire une macro du genre :
Code:

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

14/06/2006, 17h12
STEPH69000

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