VBA ajouter ou enlever contenu cellule

Résolu/Fermé

actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 - 6 avril 2010 à 09:50
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 - 6 avril 2010 à 10:57

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

A voir également:

VBA ajouter ou enlever contenu cellule
Ajouter un compte gmail - Guide
Excel compter cellule couleur sans vba - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Ajouter un compte whatsapp - Guide

2 réponses

Réponse 1 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié par pijaku le 6/04/2010 à 10:44

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? --

Réponse 2 / 2

actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 2
6 avril 2010 à 10:57

C'est parfait merci beaucoup !!!

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Comment désactiver le mode sécurisé de la Freebox POP.

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters