Listbox - Recupération valeur - ligne suivante

[onobyone]

Bonjour tout le monde 🙂

Je viens vers vous car je n'arrive pas à m'en sortir.
Avant toute chose, j'ai rechercher sur le forum si je trouvais une solution mais je n'ai rien trouvé.
J'utilise une listbox à sélection multiple, je sais récupérer les valeurs sur une ligne ou une colone (après "pompage" du code à droite et à gauche...😀)
Si je rajoute une listbox avec la même fonctionnalité, les données se mettent systématiquement sur la 1ère ligne alors que je souhaiterais qu'elles s'inscrivent sur la 2ème ligne. Je n'y arrive pas, surtout, je ne sais pas comment faire 😱.
Pourriez-vous m'aider ?
Je vous remercie par avance.
Bonne journée.

Si après le code utilisé
Private Sub Val_AS400_Click()
Dim i As Integer, A As Integer
Dim Prem

Prem = "Premuni"

If Premuni.Value = True Then

Sheets("HB Demandees").Range("A1:A1").Value = Prem

Sheets("HB Demandees").Range("A1:E1").ClearContents
A = 0
For i = 0 To 3
If Chx_Environnement.Selected(i) Then
A = A + 1
Sheets("HB Demandees").Cells(A + 1).Value = Chx_Environnement.List(i)
End If
Next

End If

End Sub

Private Sub Val_Premuni_Click()
Dim j As Integer, B As Integer
Dim Piq

Piq = "Pique"

If Pique.Value = True Then

Sheets("HB Demandees").Range("A2:A2").Value = Piq

Sheets("HB Demandees").Range("A2:E2").ClearContents
B = 0
For j = 0 To 3
If Chx_Environnement.Selected(i) Then
B = B + 1
Sheets("HB Demandees").Cells(B + 1).Value = Chx_Environnement.List(i)
End If
Next

End If

End Sub

 

[Lii]

Re : Listbox - Recupération valeur - ligne suivante

Bonjour,
C’est normal !

Sheets("HB Demandees").Cells(A + 1).Value =

Est équivalent à

Sheets("HB Demandees").Cells(1,A + 1).Value =

la ligne est donc toujours la même : 1.

Pour la changer, ainsi que la colonne, il te faut un code du genre :

Sheets("HB Demandees").Cells(Li,Col).Value =

 

[onobyone]

Re : Listbox - Recupération valeur - ligne suivante

Super ! 🙂
Merci pour ces explications et la solution !!!