VBA ajouter ou enlever contenu cellule Résolu/Fermé

Question

Bonjour,

J'ai un petit souci en VBA :

J'ai deux collonnes, et j'aimerai pouvoir ajouter ou enlever à ma guise au contenu de ma colonne A le contenu de ma colonne B entre parentheses.

Exemple :

A             B
Toto        Dort
Tata        Mange

je voudrais une macro qui me donne :

A                              B
(Dort) Toto               Dort
(Mange) Tata           Mange

puis si je la relance :

Exemple :

A             B
Toto        Dort
Tata        Mange

Je n'y arrive pas, pouvez vous m'aider ?

Merci

Configuration: Windows 2000 / Internet Explorer 6.0

pijaku · Answer

Salut,  
1ère macro pour "ajouter" :  
Sub ajoutBaA()  
Dim i, derlig As Integer  
derlig = Range("A65536").End(xlUp).Row  
For i = 2 To derlig  
Cells(i, 1) = "(" & Cells(i, 2) & ") " & Cells(i, 1)  
Next  
End Sub
2ème macro pour "enlever" :  
La partie la plus délicate étant de déterminer l'endroit ou l'on "coupe" la chaîne de caractère contenue dans la cellule. Ici j'ai choisit de couper à la 1ère parenthèse fermante :InStr(Cells(i, 1), ")") 
Sub enleveBaA()  
Dim i, derlig As Integer  
derlig = Range("A65536").End(xlUp).Row  
For i = 2 To derlig  
Cells(i, 1) = Right(Cells(i, 1), Len(Cells(i, 1)) - InStr(Cells(i, 1), ")") - 1)  
Next  
End Sub
Cordialement,  
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --

actaris51 · Answer

C'est parfait merci beaucoup !!!

VBA ajouter ou enlever contenu cellule

2 réponses

Discussions similaires