encore quelques petites questions

**stephlinternaute** · 22/07/2007, 21h11

merci a silkyroad pour son aide

j'ai encore bcp de questions

j'ai une liste dans mon userform

1- quand je choisi un nom je veux que les données aillent dans une feuille specifique
2- comment fait on pour que ce qu'on choisit dans l'userform aillent dans une feuille

ok ok je vais essayer d'etre plus clair

j'ai plusieurs items principaux ex : tennis, ping pong, squash etc....
donc des feuilles nommées tennis, pingpong, squash ect..

si je choisi le tennis je veux que toutes les données que je saisi dans userform aillent dans la feuille tennis

si je choisi ping pong je veux que toutes les données que je saisi dans l'userform aillent dans la feuille ping pong

Maintenant si ca ok !! comment faire pour que les données de l'userform s'inscrivent dans les cases prévues dans chaques feuilles

si vous avez compris vous avez le droit a la medaille

d'avance

**Jean-Philippe André** · 22/07/2007, 21h20

bonsoir,
je suppose que les éléments que tu veux bouger dans la feuille sont dans une liste, et le nom de la feuille dans une autre, et que ton transfert se fait apres click sur bouton.

Je propose une idée comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
cpteur = 1
for i = 0 to listeelement.listcount -1
 if listeelement.selected(i) then
         worksheets(listefeuille.value).range("a" & cpteur) = listeelement.list(i).value 
        cpteur = cpteur +1
end if
next i

**jfontaine** · 22/07/2007, 21h23

Si tu veux sélectionner la feuille choisie dans la listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(ListBox1.Text).Select

Ensuite tu mets ton code de copie des données a ajouter

**stephlinternaute** · 22/07/2007, 21h31

j'ai pas trop compris ce que vous me dites

j'ai dans un listbox trois item principaux tennis, ping pong squash
ensuite j'ai d'autres items ex raquette, balle, chaussure

une fois que j'ai tout rempli

en fonction de ce que j'ai mis dans l'item principal il va remplir la feuille correspondante (tennis , ping, squash)

dans les trois feuilles j'ai les champs de colonne raquette, ping, squash

je sais pas si c'est ce que vous avez compris ??

si vous pouviez me donner un peu plus de details (je debute

)

**jfontaine** · 22/07/2007, 21h35

Inspire toi de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
With Sheets(ListBox1.Text)
    .range("A2").value=Listbox2.text
    .range("B2").value=ListBox3.Text
    .range("C2").value=ListBox1.Text
 
End With

Si ca ne convient pas, envoi nous une bout de ton fichier

**Jean-Philippe André** · 22/07/2007, 21h35

mon code sert a tester si tu as sélectionner un ou plusieurs éléments dans ta listbox [tennis/ping/squash] et si c'est le cas, va mettre dans la colonne A de la feuille en question l'element choisi [raquette/balle].

pour ton histoire de champs, j'ai pas pigé...