HELP!!! VB Excel liste multicolonnes Résolu/Fermé

Question

Bonjour à tous,

Vous allez probablement vous dire "encore les TextBox multi-colonnes!!!!". Hélas oui, il y a beau avoir de la documentation à ce sujet, je n'arrive pas à adapter les codes présentés à mon cas. J'ai beau me tirer les cheveux, je m'emmèle encore plus les pinceaux! Alors dernière solution avant de devenir folle je vous demande votre aide précieuse!

Voici mon projet:
j'ai fait un formulaire de saisie d'heures sous Excel:
Un premier Userform  appelé SAISIE1 s'affiche pour que l'agent saisisse l'année et le mois sur lequel il va faire les enregistrements. En cliquant sur le bouton de commande VALIDATION_PARAM_PERIODE, cela ferme SAISIE1 et ouvre SAISIE2.
Un second Userform appelé SAISIE2 s'affiche pour que l'agent saisise l'affaire dans une liste déroulante, le véhicule également dans une liste déroulante, puis le nombre d'heures. En cliquant sur le bouton de commande VALIDATION2, les données saisies dans les deux formulaires sont stockées dans une feuille excel, puis SAISIE2 est rouvert avec réinititialisation des champs. On peut alors continuer la saisie sans retourner à chaque fois sur SAISIE1.
Les listes déroulantes sont des plages de données Excel.
Tout cela fonctionne parfaitement bien. 

Après je me suis dit, ça c'est déjà bien, maintenant on va évoluer un peu. Actuellement, quand on sélectionne dans la liste déroulante, on sélectionne un contenu "code affaire + libellé affaire" donc c'est aussi ce qui est stocké dans ma feuille Excel. Mais je voudrais que l'agent puisse effectuer sélectionner dans la liste déroulante "code affaire + libellé affaire" mais stocker seulement le code affaire. Il faut donc que j'utilise des listes multi colonnes: afficher "code affaire & libellé affaire" dans la liste déroulante de sélection et stocker seulement le premier champs.

Mais alors là, c'est le trou noir, je suis perdue. A force de chercher de l'aide, je me plante encore plus (heureusement, j'ai fait une sauvegarde de mon fichier quand il fonctionnait encore...)
Alors, c'est avec un espoir énorme que je vous demande votre aide!!!!
En espérant que je me suis exprimée de manière compréhensible!
Merci
Ludivine

mikebzh · Answer

Coucou
Ai-je compris ton soucis ??

A l'heure actuelle, tu sélectionnes un "code affaire + libellé affaire" et tu voudrais simplement stocker "code affaire".
Où est ton problème exactement ?

mikebzh · Answer

Comment affectes-tu ta liste déroulante à ta colonne C ?

Sinon, je te propose un petit truc du style : 

Quand le choix est effectué dans ta liste, on connait sa position par la propriété listindex
ici j'ai mis une combobox mais on peut gérer une listbox ou autre
L'idée est donc de ressortir la position du choix et de lire simplement ta colonne A pour récupérer ton affaire

[code]

Private Sub ComboBox1_Change()
    dim ligne as integer
    ligne = ComboBox1.ListIndex
    MsgBox ("vous désirez l'affaire : " & Cells(ligne + 1, 1).Value)
End Sub

[\code]

A plus

mikebzh · Answer

Dans mon code la liste des chantiers est indiquée en colonne A dans la cells(ligne + 1,1) que je récupère
dans la msgbox, mais à toi de la récupérer où tu veux.

Si je suis à l'ouest dans mes réponses, tu peux peut-être m'envoyer une trame épurée de ton fichier
via le site www.cijoint.fr ? , après tu n'as plus qu'à me poster le lien.

mikebzh · Answer

Voila ma proposition dans la sub VALIDATION2_Click()

'ActiveCell.Value = SAISIE2.CHANTIERS.Value (ton retour de formulaire)
ActiveCell.Offset(0, 1).Select
'ActiveCell.Value = SAISIE2.VEHICULES.Value


'Le mien
dim ligne as integer

ligne = SAISIE2.CHANTIERS.ListIndex
ActiveCell.Value = Sheets("listes").Cells(8 + ligne, 7).Value

ActiveCell.Offset(0, 1).Select

ligne = SAISIE2.VEHICULES.ListIndex
ActiveCell.Value = Sheets("listes").Cells(8 + ligne, 3).Value

C'est ce que tu voulais, ou alors j'ai rien compris (ce qui est humainement possible) ?

HELP!!! VB Excel liste multicolonnes

4 réponses

Discussions similaires