manipulation et modification de texte

Bonjour à tou(te)s,

J'essaye de me lancer dans les macros VBA pour excel, mais c'est pas gagné.

j'ai un fichier excel composé d'une colonne qui correspond à différentes lignes d'un texte.

Ex :
Ce matin (1)
un lapin a été (2)
tué par un écolo (3)

Comme vous pouvez le voir, le numéro de la ligne est écrit entre parenthèses à la fin à chaque fois.
Ce que j'aimerai faire, c'est créer une macro qui va supprimer ce numéro de ligne. (j'ai 10 feuilles de 7000 lignes chacune comme ça).

Sur le principe de l'algorithme, je crois avoir une solution satisfaisante.

Je vais :

Citation:

---

1) copier la colonne 1 dans la colonne 2 et faire les modifications sur la colonne 2 (par sécurité)

Pour chaque cellule de la colonne 2:

2) je vais utiliser StrReverse pour inverser le texte
ex: "Ce matin (1)" -> ")1( nitam eC"

3) je vais rechercher la première occurence de "(" avec Instr

4) extraire de cette cellule la sous-chaine qui commence 2 caractères plus loin avec la fonction Left, remplacer le contenu de la cellule par cette sous-chaine.
ex : ")1( nitam eC" -> "nitam eC"

5) inverser le résultat
ex : "nitam eC" -> "Ce matin"

Fin pour chaque cellule

---

Alors j'arrive à faire le point 1 :mouarf: :

Code:

---

1 2	ActiveSheet.Columns(1).Copy ActiveSheet.Columns(2)

---

mais pour le point 2 j'ai tenté ceci :

Code:

---

1 2 3 4

For Each cell In ActiveSheet.Columns(2) cell.Value = StrReverse(cell.Value) Next

---

mais VBA ne veut pas (Erreur 13, incompatibilité de type).

A noter que les cellules sont au format Texte (je ne sais pas si ça a une importance).

Auriez-vous un peu d'aide à m'apporter svp ? Ou une autre solution plus simple (même si je ne trouve pas ça très compliqué apparemment).

Je suis assez perdu en VBA, je n'ai pas de vue d'ensemble du fonctionnement de la bête, mais j'ai de bonnes bases de programmation.

Bonjour

Pour le point 1 je te conseillerais même de faire une sauvegarde du classeur original et de travailler sur une copie.

pour les points suivants il existe la fonction Instrrev qui recherche une occurrence dans une autre à partir de la fin (F1 pour plus de renseignements).

en utilisant cette ligne tu peux avoir directement le résultat.

si cell.value = "Ce matin un lapin (1) ça te donnera "Ce matin un lapin "

Code:

---

cell.Value = Left(cell.Value, InStrRev(cell.Value, "(") - 1)

---

bon courage

merci zyhack pour ta précieuse aide!

pour la copie de classeur : effectivement, je n'ai pas manqué de le faire.
pour l'instruction instrrev : parfait, c'est exactement ce qu'il faut en effet.

ma macro est donc ceci pour l'instant :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Dim cell As Variant   ActiveSheet.Columns(1).Copy ActiveSheet.Columns(2)   For Each cell In ActiveSheet.Columns(2) cell.Value = Left(cell.Value, InStrRev(cell.Value, "(") - 1) Next End Sub

---

mais j'ai toujours l'erreur incompatibilité de type sur la ligne dans la boucle :(

salut

essaye ceci :

Code:

---

1 2 3 4 5 6 7

Dim c As Range, pos As Integer For Each c In ActiveSheet.Range("B:B") pos = InStrRev(c.Value, "(") If pos Then c.Value = Left(c.Value, pos - 1) End If Next

---

super babaothe, ça marche nickel maintenant.

Si tu peux m'expliquer rapidement pourquoi à l'occasion, je suis curieux :)

encore merci

Citation:

---

Envoyé par Pacorabanix

Si tu peux m'expliquer rapidement pourquoi à l'occasion, je suis curieux :)

---

salut

un petit essai vaut mieux que mille explications :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Dim plage As Range, c As Range Set plage = Columns(2) a = 0 For Each c In plage MsgBox c.Address a = a + 1 If a = 4 Then Exit For Next   MsgBox "et voyons mùaintenant" a = 0 For Each c In Range(plage.Address) MsgBox c.Address a = a + 1 If a = 4 Then Exit For Next   Set plage = Nothing   MsgBox "et voyons mùaintenant" a = 0 For Each c In Range(Columns(2).Address) MsgBox c.Address a = a + 1 If a = 4 Then Exit For Next

---