Aide sur fichier

Bonjour a tous
Je reviens vers vous car je me suis rendu compte d'un souci avec mon fichier joint (brouillon)
Le but de ce fichier est de recenser sur une Feuille (SST) dans le Fichier joint les personnes formé SST ,DAE EPI et EVAC avec la date de fin.
je m'aperçois que lorsque je sélection un lieux tous les noms apparaisse dans mon userform y compris les non formé

si une âme charitable pouvais m'aider car la je patauge .

En gros :si dans la colonne SST il n'y as pas de date je récupère pas les noms dans l'userform.

ruojnoB 77fournier,

Un pemier jet ...

J'ai renommé les textbox :

Textbox1, Textbox101, Textbox201, Textbox301, Textbox401
Textbox2, Textbox102, Textbox202, Textbox302, Textbox402
Textbox3, ...
...

Bizz

Bonjour erraziB

Super merci j'ai avancer grâce a toi.

il me reste a régler un problème si la textbox est vide ne pas valider textbox 1

dans l'exemple ci dessous les textbox 101 ET 201 sont rempli donc on valide la textbox 1 , 101 ET 201 .

Par contre les textbox 301 ET 401 sont vide donc ont ne saisi pas la textbox 1.

fichier Mis a jour joint

J'espère avoir été clair.

et merci encore

Re bonjour a tous et toutes

j'ai avancer sur mon fichier
mais je rencontre deux problème.

Le 1er : Je ne sait pas comment faire pour que les donnés validé soit a la première cellule de la ligne vide , si non vide valider a la 3eme cellule et ce jusqu' a la 9eme cellule puis a la ligne suivante.

le deuxième problème est un problème de date j'ai mis mes cellules au format date mais cela ne change rien.

Merci de votre aide.

Pour le pblème de date mette dans le ComboBox1_Change :

If Sheets("bdd-SST").Cells(vrech.Row, 2 + X).Value Then
Controls("Textbox" & i) = Sheets("bdd-SST").Cells(vrech.Row, 2).Value

Controls("Textbox" & i + (X * 100)) = Format(Sheets("bdd-SST").Cells(vrech.Row, 2 + X).Value2, "DD/MM/YYYY")

End If

Bonjour Galopin

Super déjà un problème de résolu grâce a toi.

reste plus que ce problème de validation en ligne

Bonjour rienruof77, le fil, le forum, les snickeux,

Les données déjà écrites dans la feuille "SST" : un nouvel utilisation du bouton "Valider", que doit-on faire faire?

Écraser les données ?
Ou
Ajouter seulement les nouveautés, quitte à ajouter des lignes dans chaque section (exemple : "Santé Sécurité Du Travail") ?

Bizz

Bonjour à tous.

En fait à chaque changement de combox1 les données doivent être écrasés puisque c'est un changement de lieu

Bonjour rienruof77, le fil, le forum, les snickeux (*),

Un essai :

Private Sub CommandButton2_Click()
   Dim i As Long, derniereligne As Long
   Dim X As Integer, Y As Integer, Rr As Integer
   Dim Cat As Byte, Pas As Integer

   Sheets("SST").Activate '' .Activate est préférable pour les feuilles
   Range("A1") = ComboBox1.Value
   Range("A12:J15").ClearContents
   Range("A20:J23").ClearContents
   Range("A28:J31").ClearContents
   Range("A36:J39").ClearContents

   Y = 12
   For Cat = 1 To 4
      If Cat = 1 Then Pas = 100
      If Cat = 2 Then Pas = 200
      If Cat = 2 Then Y = Y + 8
      If Cat = 3 Then Pas = 300
      If Cat = 3 Then Y = Y + 8
      If Cat = 4 Then Pas = 400
      If Cat = 4 Then Y = Y + 8
      X = 1

      For Rr = 1 To 20
         If Len(Controls("Textbox" & Rr)) > 0 Then
            If Len(Controls("Textbox" & Rr + Pas)) > 0 Then
               Do While Len(Sheets("SST").Cells(Y, X)) > 0 And X < 10
                  X = X + 2
               Loop
               Sheets("SST").Cells(Y, X) = Controls("TextBox" & Rr)  'NOM SST
               Sheets("SST").Cells(Y, X + 1) = CDate(Controls("TextBox" & Rr + Pas))  'DATE SST
               If X > 8 Then
                  Y = Y + 1
                  If Y > 15 Then Exit For
                  X = 1
               End If
            End If
         End If
      Next Rr
   Next Cat
   Unload Me
End Sub

Bizz

* Snickeux : personnes qui s'approchent et observent sans intervernir

Bonjour Bizarre.
Merci pour ton Aide .

Malgré quelques bug j'ai pu m'en dépatouiller.

Merci beaucoup.

Excellent !

Bizz