Ajouter auto un caractere devant et derriere un mot

Version imprimable

23/05/2012, 13h06
cedricfilien

Ajouter auto un caractere devant et derriere un mot

Bonjour
Je me permets de poster ici car j'ai un souci avec un document Excel
J'ai un fichier qui représente une fiche de réception d'appareil dans laquelle j'ai 4 colonnes :

Dans la première colonne, je remplirai une cellule sur 2 en flashant un code barre et dans cette cellule il faudrait par une macro que j'ajoute une "*" devant et derrière le texte inscrit.

De ce fait ce sera la même chose pour les autres colonnes

donc serait il possible par la macro demandée au dessus de rajouter les caractères sur la ligne complète

Mes lignes concernées : 10.12.14.16.18.20.22.24.26.28.30.32.34.36 et 38

J'ai trouvé des macros qui le faisait sur une colonne complète mais je n'arrive pas à l'adapter à mon projet

Merci d'avance

cordialement

Bonjour,

Essaye avec ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim I As Integer
Dim str As String
 
For I = 10 To 38 Step 2
 
str = Cells(I, 1).Value
str = "*" + str
 
Cells(I, 1).Value = str
 
Next

Cordialement.

Bonjour,

Une autre solution serait de changer le format de tes cellules.
Code:

1 2 3 4 5 6 Sub Test() Dim I As Long For I = 10 To 38 Step 2 Cells(I, "A").EntireRow.NumberFormat = """*""@""*""" Next End Sub
Cordialement.

23/05/2012, 13h47
cedricfilien

Merci cela fonctionne pour ma colonne 1
serait il possible que la macro s'applique sur la ligne complète?
par contre j'ai une "*" devant mais pas à la fin
j'ai essayé de modifié la macro que vous m'avez donnée en vain lol
merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim I, A As Integer
Dim str As String
Dim NbColonnes as integer 
 
NbColonnes=4 'Pour 4 colonnes 
 
For A=1 to NbColonnes step1
For I = 10 To 38 Step 2
 
str = Cells(I, A).Value
str = "*" + str + "*"
 
Cells(I, A).Value = str
 
Next
Next

Ca devrait fonctionner mais essayer la méthode de gFZT82 qui doit être plus simple.

23/05/2012, 13h54
cedricfilien

Merci beaucoup de la réponse ultra rapide
avec la 2eme macro cela fonctionne parfaitement
merci beaucoup
vous etes geniaux

Citation:
Envoyé par Mr.Mof
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim I, A As Integer Dim str As String Dim NbColonnes as integer NbColonnes=4 'Pour 4 colonnes For A=1 to NbColonnes step1 For I = 10 To 38 Step 2 str = Cells(I, A).Value str = "*" + str + "*" Cells(I, A).Value = str Next Next
Ca devrait fonctionner mais essayer la méthode de gFZT82 qui doit être plus simple.
celle ci fonctionne tres bien aussi
un grand merci a vous pour votre devouement