Discussion :

[jd13800]

Bonjour a tous,

je suis novice dans VB et voudrais faire un petit programme. Cela fait quinze jours que je cherche et je n'avance pas !
Ci dessous les données :
Colonne A2 :A : liste contrats
Colonne B2 :B : Date 1
Colonne C2 :C : Statut du contrat suivant formule =SI(AUJOURDHUI()=B2);"a relancer";"en cours")
Colonne D2 : Date 2
Colonne E2 :E : Statut du contrat suivant formule =SI(AUJOURDHUI()=D2);"a relancer";"en cours")

je voudrais un userform me permettant de :
- Avoir 2 boutonoptions pour choisir les contrats "a relancer" ou "en cours " suivant les statuts des cell de la colonne C et E
- Après avoir cliquer sur l'un des deux boutons avoir la listes des contrats "en cours" ou "a relancer"
- Sur la liste des "a relancer" pouvoir sélectionner un contrat
- Après sélection de celui ci avoir la possibilité de choisir entre deux checkbox ( contrat relancé oui ou non )
- si checkbox oui après enregistrement par un bouton de validation, changer le statut de la cellule de référence en écrivant "contrat relancé"
- si checkbox non ne rien changer

voilà ou j'en suis :

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
18
19
20
21
22
23
24
25
26
27
28
29
Sub AfficheListeCombinee()
ListeCombinee.Show
End Sub
Private Sub UserForm_Activate()
' Permet de cocher le bouton radio 1 à l'ouverture du formulaire
Me.OptionButton1.Value = True
End Sub
 
Private Sub OptionButton1_Click()
 
LastInputRow = Cells(1, 1).End(xlDown).Row
ListBox1.RowSource = "A2:A" & LastInputRow
MyCategorie = "Statut contrat"
Me.ListBox1.ListIndex = 0
 
End Sub
 
 
Private Sub OptionButton2_Click()
LastInputRow = Cells(1, 1).End(xlDown).Row
ListBox1.RowSource = "A2:A" & LastInputRow
MyCategorie = "statut contrat"
Me.ListBox1.ListIndex = 0
 
End Sub
 
Private Sub ComboBox1_Change()
[C3] = UserForm1.ComboBox1
End Sub

Je suis a votre écoute pour plus de précisions.

Merci par avance a tous ceux qui voudront me donner un coup de pouce.

Cordialement

[Pascal415]

J'ai vu ta demande, mais je ne croit pas que quelqu'un sera prêt à faire le travail à ta place!

Afin de commencer avec de bonne base, je te propose un tutoriel fait par Silkyroad (merci pour tout tes tutoriels si intéressants!) : http://silkyroad.developpez.com/VBA/ControlesUserForm/

Par la suite, lorsque tu auras des problèmes précis, il me fera un plaisir de t'aider...

Croit moi, la facilité ne nous aide pas vraiment, mais la sueur nous endurcie!

Pascal