Listbox multiselection, choix et insertion dans différentes cellule d'une colonne

B

Bebere

XLDnaute Barbatruc

• 3 Décembre 2008

• #2

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

bonsoir Jipé
une proposition sur la colonne B,1er bouton
j'ai pas fait les 2 autres
à bientôt

 

Pièces jointes

• Planning%20VSD(1).xls

  40 KB · Affichages: 127

Vote positif 0 Vote négatif

J

jipé77

XLDnaute Nouveau

• 3 Décembre 2008

• #3

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

Bonsoir Bebere
lorsque j'utilise la listbox la 1ère sélection de met dans les cellules B4,7,8
la 2ème selection en B 11,12,,15,16 et la 3ème en B19,20 la sélection peut être égale ou différente de la cellule précédemment remplie, j'ai peut être raté qqs chose car visiblement dans l'exemple que tu m'as retourné ce pb n'existe pas
A+
Cordialement
JIP2

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Décembre 2008

• #4

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

bonjour Jipé
Ma question est ce bon?
si non,met quelques exemples
à bientôt

 

Vote positif 0 Vote négatif

J

jipé77

XLDnaute Nouveau

• 5 Décembre 2008

• #5

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

Bonjour Bebere
Petit souci de remplissage des séléctions les commentaires sont dans la pièce jointe. Il faudrait qu'une select = 1 cell de destination.
A+ de te lire
Cordialement
Jipé

 

Pièces jointes

• Pb remplissage plan VSD(1).xls

  48.5 KB · Affichages: 136

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 5 Décembre 2008

• #6

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

Bonjour Jipé, Bebere,

Avec ce que je comprends test ceci:

Code:

Private Sub CommandButton1_Click()
Dim I As Integer, y As Integer, Chaine As String, k As Integer

With Me.ListBox1
  For I = 0 To .ListCount - 1
    If .Selected(I) = True Then
       Chaine = Chaine & "-" & .List(I): y = y + 1
    End If
  Next I
End With
'-4142=pas de couleur
With Sheets("Planning W-E")
  For k = 4 To .Range("B21").Row
     If y > 0 Then
       If .Cells(k, 2).Interior.ColorIndex = -4142 And .Cells(k, 2) = "" Then
          .Cells(k, 2) = Chaine
          Exit For
       End If
     End If
  Next
End With
End Sub

C'est le code du bouton V-S

A+

 

Vote positif 0 Vote négatif

J

jipé77

XLDnaute Nouveau

• 5 Décembre 2008

• #7

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

Bonsoir bqtr merci pour ta réponse malheureusement je suis sur le toit décoration de noël oblige je vais teter ta solution et bje te réponds
A+ Merci encore bqtr

 

Vote positif 0 Vote négatif

J

jipé77

XLDnaute Nouveau

• 5 Décembre 2008

• #8

Re : Listbox multiselection, choix et insertion dans différentes cellule d'une colonn

Merci bqtr
je viens de tester tasolution sur la colonne B C OK merci à toi j'adapte aux autres colonnes et te tiens au courant
A+ et merci pour ton aide
Jipé

 

Vote positif 0 Vote négatif