Bonjour,
j'utilise un code vba pour le remplacement de mes codes par des prix
le remplacement se fait bien mais je voudrai juste que au lieu
que l'article remplacé se place a droite et non a gauche
ex : SA000010 se remplace par 31,90 sur la planche d'etiquette
il se serre a gauche et je voudrai qu'il se serre a droite
merci de votre aide
Private Sub CommandButton1_Click()
Test
End Sub
Sub Test()
Dim xlApp As Object
Chemin = Me.Path
Fichier = "TARIF CODE.xls"
Set xlApp = CreateObject("excel.application")
xlApp.Visible = False
Set MonFichier = xlApp.Workbooks.Open(FileName:=Chemin & "\" & Fichier)
Set MaZone = MonFichier.sheets("Feuil1").Range("A2", MonFichier.sheets("Feuil1").Range("A65536").End(-4162))
For Each X In MaZone
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = X
.MatchWholeWord = True
.Replacement.Text = X.Offset(0, 1)
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
xlApp.Quit
Set xlApp = Nothing
End Sub
cordialement
j'utilise un code vba pour le remplacement de mes codes par des prix
le remplacement se fait bien mais je voudrai juste que au lieu
que l'article remplacé se place a droite et non a gauche
ex : SA000010 se remplace par 31,90 sur la planche d'etiquette
il se serre a gauche et je voudrai qu'il se serre a droite
merci de votre aide
Private Sub CommandButton1_Click()
Test
End Sub
Sub Test()
Dim xlApp As Object
Chemin = Me.Path
Fichier = "TARIF CODE.xls"
Set xlApp = CreateObject("excel.application")
xlApp.Visible = False
Set MonFichier = xlApp.Workbooks.Open(FileName:=Chemin & "\" & Fichier)
Set MaZone = MonFichier.sheets("Feuil1").Range("A2", MonFichier.sheets("Feuil1").Range("A65536").End(-4162))
For Each X In MaZone
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = X
.MatchWholeWord = True
.Replacement.Text = X.Offset(0, 1)
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
xlApp.Quit
Set xlApp = Nothing
End Sub
cordialement