D
DIDOU
Guest
Bonsoir toutes et tous,
Mon problème est le suivant:
Depuis un ComboBox je sélectionne une ligne de A à G. Jusque là j'y suis arrivé, puis je voudrais placer la valeur " P "sur cette ligne en colonne G.
Mon code actuel:
Private Sub Boutonpointe_Click()
Rows(BoxListe.ListIndex).EntireRow.Select
'Là je voudrais donc placer la valeur P
'Puis la mise en forme pour P
cell("G").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
voilà, Si quelqu'un a une idée : moi je suis calé
A+
Didou
Mon problème est le suivant:
Depuis un ComboBox je sélectionne une ligne de A à G. Jusque là j'y suis arrivé, puis je voudrais placer la valeur " P "sur cette ligne en colonne G.
Mon code actuel:
Private Sub Boutonpointe_Click()
Rows(BoxListe.ListIndex).EntireRow.Select
'Là je voudrais donc placer la valeur P
'Puis la mise en forme pour P
cell("G").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
voilà, Si quelqu'un a une idée : moi je suis calé
A+
Didou