XL 2016 PROBLEME LISTBOX

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Drinatana253

XLDnaute Nouveau
Bonjour le Forum,

Je travaille actuellement sur un fichier Excel et j'ai besoin de vos conseils avisés.
Voilà plusieurs jours que je bloque sur ma base et plus précisément sur ma listbox1. J'ai recherché sur le net mais les données ne fonctionne pas sur mon fichier.
Je souhaite à chaque nouvel enregistrement que les éléments sélectionnés de la listbox1 s'insère dans ma feuille "suivi des demandes" dans la colonne V.
J'espère avoir été la plus claire possible dans mes explications et je vous joins mon fichier.
Merci par avance pour votre aide !
 

Pièces jointes

Solution
C
Bonsoir,

C'est mieux quand on sait ou se trouve ton contrôle parmi tous ceux existant 😛

Voici le code qui devrait faire l'affaire
VB:
      ' Parcourir la Listbox
      For Ind = 0 To Me.ListBox1.ListCount
        ' Si la liggne est sélectionnée
        If Me.ListBox1.Selected = True Then
          ' Ajouter le texte à celui temporaire avec un retour à la ligne
          sTmp = sTmp & Me.ListBox1.List(Ind) & Chr(10)
        End If
      Next Ind
      ' Supprimer le dernier retour à la ligne
      sTmp = Left(sTmp, Len(sTmp) - 1)
      ' Inscrire le tout
      Cells(i, 22) = sTmp ' ici colonne V

@+
Bonsoir,

C'est mieux quand on sait ou se trouve ton contrôle parmi tous ceux existant 😛

Voici le code qui devrait faire l'affaire
VB:
      ' Parcourir la Listbox
      For Ind = 0 To Me.ListBox1.ListCount
        ' Si la liggne est sélectionnée
        If Me.ListBox1.Selected = True Then
          ' Ajouter le texte à celui temporaire avec un retour à la ligne
          sTmp = sTmp & Me.ListBox1.List(Ind) & Chr(10)
        End If
      Next Ind
      ' Supprimer le dernier retour à la ligne
      sTmp = Left(sTmp, Len(sTmp) - 1)
      ' Inscrire le tout
      Cells(i, 22) = sTmp ' ici colonne V

@+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
726
Retour