code rebelle

[flaneur]

Bonsoir,

Bon OK, le VBA c'est pas pour moi...mais j' insiste !!
Je voudrais que mon code envoi ma Liste et ma sous liste toute les trois lignes (ca marche!!)
Mais commence sous mon titre en B3 (et C3).
Si vous pouviez m'aider..
Voila mon Truc grace à vous)
' j'ai laissé mes commentaires d'essais '

merci

Private Sub Valider_Click()
ListeDeroulante.Hide
Index = Marque.ListIndex
ChoixMarque = Marque.Text
'Changement en B2
Sheets("Validation").Range("B2").Value = ChoixMarque
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) = True Then
With Sheets("Validation")
'si offset (2,0)incrémentera toutes les deux lignes.
'si offset (1,2)incrémentera code en colonne E (1.1)en D
'si offset (1,1)incrémentera en D2
'si Listbox (1,1)incrémentera sous liste en B et en C
'Si List Box1.List(I - 1, 0) sous produit x2 affichée (sans N°)
.Range("B65536").End(xlUp).Offset(3, 0) = ListBox1.List(i - 1, 0)
.Range("C" & .Range("B65536").End(xlUp).Row) = ListBox1.List(i - 1, 1)
End With
ListBox1.Selected(i - 1) = False
'Message de confirmation de la saisie
Userform1.Show
'retour à la liste
ListeDeroulante.Show
End If
Next i
End Sub

 

[BERRACHED said]

Re : code rebelle

Salut,flaneur
je crois avec un fichier exemple ça sera super ! comme ça on pourra mieux cerner le problème

Cordialement

 

[flaneur]

Re : code rebelle

Merci said.

 

[flaneur]

Re : code rebelle

En fait je voudrais que ma liste dans la feuille Validation Commence en B3
et s'incrémente toutes les trois lignes (B3, B6, B9...)

 

[flaneur]

Re : code rebelle

J'ai trouvé !!!! (remarque il est 03 h00 du Mat !!)
Merci à toi Said.