Discussion :

[mimbreacupa]

BOnjour à tous,

Je suis en débutant en VBA et je dois faire un boulot pour la FAC, le prof étant complètement injoingnable et jamais à la fac, je m'en remets à vous pour m'aider. Je n'étudies pas l'informatique, ce n'est pour moi qu'une matière annexe. La difficulté de mes problèmes pourra donc vous paraitre annodine, mais pour moi, je vous garantis qu'ils sont énormes..

Etant donné la variété des problèmes, je propose de vous envoyer le fichier et de discuter par msn des 3 ou 4 petits endroits ou je coince.



Voici mon adresse, n'hésitez pas à m'ajouter...

EDIT :
Pour donner plus de détails, il s'agit de liste déroulante sous formulaire qui va pas me chercher les bonnes données et qui bugue quand on efface, il s'agit de changement de mise en forme automatisée lorsque j'ajoute une donnée par formulaire aussi et ce sur plusieurs feuilles. IL s'agit en outre que quand j'ajoute une donnée par formulaire que ca me fasse les changements sur toutes les feuilles (au nombre de 3) etc etc.. Je sais ca a l'air tout bête.. Ca l'est sans doute.. Mais moi j'y arrive plus

Merci infiniment d'avance...

[Qatari]

Bonjour j'suis pas sur d'avoir parfaitement compris ton probleme mais je crois que je fais un truc qui y ressemble. Alors je t'explique ce que je fais et puis tu verras si ca arrange ton probleme.

Jte mets le code a suivre.

Donc j ai une feuille avec des composants et des donnees pour chaque, j ai creer une listbox qui permet de selectionner une partie des composants, de renvoyer cette selection sur une autre feuille et avec une fonction Excel de ramener les proprietes de chaque composant sur cette meme feuille. Sinon pour la mise en forme auto tu peux trouver de bon tutoriaux sur le net (sur dvp.com deja... sinon il y a cathy astuce, anthony-vba etc etc)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
'Clear the column A to paste the actual components
Worksheets("Inlet").Range("A10:A468").Select
Selection.ClearContents
 
'Create the list in the table when components have been selected in the listbox
For i = 1 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
    u = u + 1
    Worksheets("Inlet").Cells(u + 10, 1) = ListBox1.List(i)
    End If
Next
 
Unload Me
 
End Sub

J'espere que ca ta avancer un peu, si ca peut te rassurer je galere grave aussi !!! lol

Bon courage