Aide sur macro userform

[sadia]

Bonjour,

J'ai à nouveau besoin de votre aide !!!
je voudrais inclure une donnée dans mon fichier, avec cette macro ca fonctionne mais le soucis c'est que je voudrais mettre d'autres infos en dessous en "A22" tjs avec l'userform
en fait la mes info vont tjs sur la cellule A21

merci pour votre aide !

Private Sub ListBox1_Change()
I = ListBox1.ListIndex
D = Application.Index(Sheets("DONNEES").Range("A1:A100"), I + 1, 1)
Sheets("DONNEES").Range("C1").Value = D
Sheets("Fiche type").Range("A21").Value = D
ListBox2.RowSource = "Modèles"
ListBox3.RowSource = ""
End Sub

 

[CBernardT]

Re : Aide sur macro userform

Bonjour sadia,

Il faudrait que tu joignes un extrait de ton classeur pour une meilleure compréhension de ton besoin.

Cordialement

Bernard

 

[sadia]

Re : Aide sur macro userform

je vais essayer mais mon fichier est tres tres lourd !

 

[sadia]

Re : Aide sur macro userform

j'ai supprimé pas mal de colonnes donc je souhaite que chaque nouveau produit s'inscrivent les uns sous les autres pour chacun des entetes

merci à tous !

Ps : comme j'ai supprimé pas mal d'infos donc y a plus grand chose qui fonctionnent dans l'USF mais dans la famille intrusion ca fonctionne