Discussion :

[cedricfilien]

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

[Mr.Mof]

Bonjour,

Essaye avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[gFZT82]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[Mr.Mof]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[cedricfilien]

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

[cedricfilien]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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