Liste combinée

[Arnaud]

Re salut

J'ai (encore) un USF avec une liste combinée (issue de 2 colonnes) quand je valide, le résultat s'affiche dans 2 cellules qui se suivent. Comment faire pour que le résultat s'affiche dans des cellules qui ne se suivent pas.

Merci

 

[@Christophe@]

Bonjour Arnaud

Si possible joint un fichier, c'est plus simple

Merci

@Christophe@

 

[Arnaud]

Salut, c'est encore moi

Trouve ci-joint un fichier , j'espére que cela sera assez clair
A+

 

[@Christophe@]

Re Arnaud

Voila ta solution

Tous ce que tu dois modifie est dans la ligne suivante de ta macro

Cells(j, 4) = .List(i, 0): Cells(j, 5) = .List(i, 1) 'a modifier

Tu modifie le 4 et le 5, c'est l'emplacement, 4, correcpond a colonne 4 donc D et le 5 a colonne E, si tu veux un espace entre tu modifie 5 par 6 et le tour est joué

Bonne soiré

@Christophe@

 

[Arnaud]

Ok, j'ai compris j'aurais pu chercher un peu plus !!
Et pour choisir la ligne, car pour l'instant c'est sur la 1° ligne

A+

 

[@Christophe@]

Re Arnaud

Comme dirais Thierry, en VBA, il faut cherchez, essayé, testé

Dans la partie suivante tu dois changer D1:E1 ce sont les cellule a effacer quand tu ouvre le userform

Private Sub UserForm_Activate()
Range("D1:E1", Cells(ListeClients.ListCount, 4)).Clear
ListeClients.MultiSelect = fmMultiSelectExtended
End Sub


Pour mettre sur une autre ligne, dans la meme partie que le post précédent, tu remplace la ligne suivante:

Private Sub CmdOK_Click()
j = 2 au lieu de j = 1



ET voila

@Christophe@

 

[Arnaud]

OK Un grand merci à toi pour toute l'aide que tu m'as apporté aujourd'hui

Bonne soirée

 

[@Christophe@]

Re Arnaud

Aucun problème, c'est bon que tu es nouveau, mais le prochaine fois je te laisse chercher un peu tous seul, sache que VBA et Excel, faut osé, testé, essayé, de toutes facon tu n'as rien a perdre, ca déconne tu fais undo ou tu ferme et tu réouvre ton fichier.

Parce que la plupart des solution que je t'ai donner je suis sur que tu aurais ete capable de les trouver toi même.

Sur ce, bonne continuation et bonne chance

@Christophe@