XL 2016 Formulaire avec listbox list array

[ced91300]

bonjour à tous,

Je n'arrive pas à enregistrer dans la feuille la totalité du formulaire et plus précisément les éléments de la listbox

je joins en PJ mon fichier d'essai

merci pour votre aide

Cordialement

Cédric

 

[mapomme]

Bonjour @ced91300 ,

Il faudrait nous dire sous quelle forme vous voulez l'enregistrer :

• une liste déroulante des valeurs cochées dans la cellule de la colonne H
• un texte des valeurs cochées séparées par un séparateur (par exemple le point-virgule)
• une valeur cochée dans chaque colonne à partir de la colonne H
• ou bien alors encore autre chose...

à plus ,

 

[mapomme]

Re,

Le plus facile => les valeurs cochées sont placées dans la colonne H séparées par points-virgules :

      Dim i As Long, s As String
      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0)
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

 

[ced91300]

Bonjour @ced91300 ,

Il faudrait nous dire sous quelle forme vous voulez l'enregistrer :

• une liste déroulante des valeurs cochées dans la cellule de la colonne H
• un texte des valeurs cochées séparées par un séparateur (par exemple le point-virgule)
• une valeur cochée dans chaque colonne à partir de la colonne H
• ou bien alors encore autre chose...

à plus ,

Bonjour mapomme,

je souhaite l'enregistrer dans une seule colonne séparée d'un point virgule.

Merci de ton aide

 

[mapomme]

je souhaite l'enregistrer dans une seule colonne séparée d'un point virgule.

C'est donc la version de mon 2° message :

      Dim i As Long, s As String
      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0)
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

 

[ced91300]

C'est donc la version de mon 2° message :

      Dim i As Long, s As String
      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0)
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

Merci, c'est exactement ça dont j'ai besoin, en revanche la lisbox ne s'initialise pas apes l'enregistrement (j'ai rentrer essai.Value = ""

Merci

 

[mapomme]

en revanche la lisbox ne s'initialise pas apes l'enregistrement (j'ai rentrer essai.Value = ""

On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.

      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

 

[ced91300]

On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.

      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

Nickel, merci beaucoup pour ton aide.

Cédric

 

[ced91300]

On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.

      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

Excuse moi,

Et si je souhaite réaliser une listbox supplémentaire du même type et à la suite ?

merci

 

[mapomme]

Et si je souhaite réaliser une listbox supplémentaire du même type et à la suite ?

Je ne comprends pas très bien ta demande .

 

[ced91300]

Je ne comprends pas très bien ta demande .

En fait exactement la même chose, mais avec 2 listbox au lieu d'une seule.

 

[ced91300]

Je ne comprends pas très bien ta demande .

c'est bon, j'ai trouvé

Merci encore

 

[ced91300]

On va faire d'une pierre deux coups. Dans la boucle, après avoir traité une ligne (i) cochée dans la boucle, on décoche la ligne.

      For i = 0 To essai.ListCount - 1
         If essai.Selected(i) Then s = s & ";" & essai.List(i, 0): essai.Selected(i) = False
      Next i
      Sheets("toto").Cells(Der_Ligne, 8) = Mid(s, 2)

Bonjour Mapomme,

Désolé de te déranger une nouvelle fois

Nouveau petit souci dans mon fichier, j'ai juste oublié la modification via le formulaire

J'ai continué à bosser dessus, avec en + un formulaire de modification, mais je n'arrive pas coder au niveau de la Listobox

en PJ le fichier

Merci