ComboBox

[DIDOU]

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

 

[LaurentTBT]

Bonsoir à tous.

Didou, je ne suis pas sûr d'avoir tout compris, mais c'est peut-être ceci que tu cherches:

Private Sub Boutonpointe_Click()

With Cells(BoxListe.ListIndex,7)
.value="P"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

End Sub

Bonne soirée.
Laurent.

 

[DIDOU]

Bonsoir laurent,

Et merci, Si dans : With Cells(BoxListe.ListIndex,7) le 7 représente la colonne G, c'est exactement ce que je voulais faire.


Didou

 

[LaurentTBT]

Oui, c'est cela.

En fait, dans tous les moyens de faire référence à une ou plusieurs cellules, seul RANGE utililise les lettres, et dans l'ordre colonne puis ligne (par exemple Range("A1")).
Tous les autres moyens (cells, offset, resize...) utilisent des chiffres, et dans l'ordre ligne puis colonne.
Par exemple, Range("B4).cells(2,3) donne la cellule 2 lignes à partir de la ligne 4, et 3 colonnes à partir de la colonne B, donc la cellule D5.

C'est une habitude à prendre.

Bonne soirée.
Laurent.