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