Pointer mutliselection listbox

Bonjour le foum

ma listbox1 contient 4 colonnes, alimenté à partir de ma feuille excel ''base" (A1:D100).

j'ai crée un bouton "pointer"

je souhaite que par simple clic sur mon bouton "pointer" le mot "pointé" s'écrit en colonne C juste devant le ou les item(s) sélectionné(s) ,

Quelqu'un a le début d'un code qui peut m'aider s'il vous plais?

Bonjour,

Je ne suis pas totalement sûr mais je dirais:

for i = 0 to listbox1.listcount - 1
    if listbox1.selected(i) then
        range("c" & i + 1) = "pointé"
    end if
next i

EDIT:

Bonjour ThauThème, en effet ils se sont croisés

Bonjour Saber, bonjour le forum

Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim I As Integer
For I = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(I) = True Then Sheets("Base").Cells(I + 1, "C").Value = "Pointé"
Next I
End Sub

[Édition]

Bonjour Ausecour, nos posts se sont croisés.

SUPER

De rien

merci d'avoir passé le sujet en résolu