Discussion :

[youichy]

Bonjours a tous, je suis un cadre dans un centre de formation et je veux améliorer mon application excel de stagiaires qui demande a être formés.
cette appli contient :
- une feuille se nome "programme" qui contient la liste des formations proposées, ainsi que le nombre de stagiaire inscrit dans chaque formation.
- la feuille suivante se nome "stagiaires", elle contient toutes les informations sur les stagiaires.
- la feuille d’après se nome "inscription" elle contient deux liste déroulante, une de stagiaires et l'autre de stage choisie.
- la feuille suivante "tableau" : elle contient un tableau qui permet de vérifier si il n'y a pas une formation e double pour un stagiaire.
- les deux dernière feuilles sont des tableau croisé dynamique, qui nous permettent de connaitre tt les stagiaires qui ont choisi une formation donnée, et vis versa.

Donc voila j'aimerai créer une boite de dialogue qui me signale le fait d'avoir ateind le nombre de stagiaires voulu pour une formation donnée et ce dans le but de la lancer.

Ps: l'appli est en piece jointe
Ps2 : désolé pour le pavé et les fautes d’orthographe.

[Invité]

Salut,

Je suppose que tu veux également savoir si le nombre d'inscrits dépasse la limite non ?

Et à quelle moment veux-tu que le message s'affiche ? En utilisant un bouton ou à chaque fois qu'une inscription est faite, ... ?

Un exemple général en attendant tes précisions.

Dans un module standard:

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
30
31
32
Option Explicit
 
Public tblForm() As String
 
Public Sub VerificationProgramme()
 
  Dim rngC As Range
  Dim strStatut As String
  Dim i As Integer
 
  i = 1
  ReDim tblForm(1 To Range("programme").Rows.Count, 1 To 3)
 
  For Each rngC In Range("programme").Rows
 
    Select Case rngC.Columns(2).Value
      Case Is < rngC.Columns(3).Value
        strStatut = "Pas assez d'inscrits"
      Case Is > rngC.Columns(4).Value
        strStatut = "Trop d'inscrits"
      Case Else
        strStatut = "Assez d'inscrits"
    End Select
 
    tblForm(i, 1) = rngC.Columns(1)
    tblForm(i, 2) = rngC.Columns(2)
    tblForm(i, 3) = strStatut
    i = i + 1
 
  Next rngC
 
End Sub

Dans le module du formulaire:

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
30
31
Option Explicit
 
Private Sub UserForm_Initialize()
 
  Dim i As Integer
  Dim msg1 As String, msg2 As String, msg3 As String
 
  msg1 = vbCrLf & "######################" & vbCrLf & "Formations avec pas assez d'inscrits:" & vbCrLf
  msg2 = vbCrLf & "###################" & vbCrLf & "Formations avec trop d'inscrits:" & vbCrLf
  msg3 = vbCrLf & "###################" & vbCrLf & "Formations avec assez d'inscrits:" & vbCrLf
 
  For i = 1 To UBound(tblForm, 1)
 
    Select Case tblForm(i, 3)
      Case "Pas assez d'inscrits"
        msg1 = msg1 & vbTab & tblForm(i, 1) & vbCrLf & vbTab & vbTab & tblForm(i, 2) & " inscrits" & vbCrLf
      Case "Trop d'inscrits"
        msg2 = msg2 & vbTab & tblForm(i, 1) & vbCrLf & vbTab & vbTab & tblForm(i, 2) & " inscrits" & vbCrLf
      Case "Assez d'inscrits"
        msg3 = msg3 & vbTab & tblForm(i, 1) & vbCrLf & vbTab & vbTab & tblForm(i, 2) & " inscrits" & vbCrLf
    End Select
 
  Next i
 
  With Me.txtFormation
    .SetFocus
    .Text = msg1 & msg2 & msg3
    .CurLine = 0
  End With
 
End Sub

Et un exemple en PJ.

[youichy]

merci pour ton aide vcottineau, je ce que je veux, c'est quand le nombre adéquat pour lancer une formation st ateint, je suis prévenu, en gnérale le nombre idéal est de 16.

[Docmarti]

Tu pourrais ajouter une formule dans la colonne F de la feuille programme.

En F3, entre la formule =SI(ET(B3>=C3;E3<>"Lancée");"Minimum atteint";"")

et tu étires ou copies vers le bas.

Dans la colonne E, tu ne mets rien tant que la formation n'est pas lancée.

Quand elle est lancée, tu entres "Lancée" sur la ligne correspondante de la colonne E.


Cordialement

Docmarti

[youichy]

Ok, merci beaucoup Docmarti

vcottineau, sans être impertinent, j’attends de tes nouvelles