1,2,mais pas 3

Bonjour

vous commencer a connaitre ce tableau

3 usf : usf1 7 questions (frames n°1 à 7) tout fonctionne bien

usf3 8 questions (frames n°1 à 8) tout fonctionne bien

usf2 6 questions (frames n°1 à 6) ça va plus le usf s'ouvre bien ( message debogage au moment de valider ) les données vont dans le tableau sauf colonne 41 "commentaire general"

j'ai verifié le nom des options buttons il n'y a pas d'erreur

merci

je sais pas ce qui c'est passé: faut lire pour (usf 1 )de 1 a 7

non pardon (usf3) n° de 1 a 8

Bonjour

Fournis le bon fichier !!!!!

Bonjour Banzai entre temps j'ai vu ou cela n'allait pas et toujours le:

  For Numero = 0 To 5
          .Cells(Ligne, 10 + (Numero * 6)) = Me.Controls("TextBox" & Numero + 3)
        Next Numero
        'envoie la donnnée de la textbox2 dans la colonne 41 du tableau
        .Cells(Ligne, 41).Value = Me.TextBox2.Value

donc si 7 frames = 0 to 6

8 frames = 0 to 7

6 frames = 0 to 5

tous fonctionne super . Mais tu crois pas que j'allais te laisser tranquille

si dans le usf je souhaite rajouter (ou enlever)une question(frame) et textbox "commentaire"( a l'usage c'est pas exclut ,donc rajouter ou enlever des colonnes dans la feuille )il faudra modifier le code . c'est déjà très bien comme cela mais si tu as une manière de rendre plus "élastique" sans retourner dans code

Merci

faudra repasser par le code pour que cela fonctionne?

Bonjour

Pour enlever la textbox associée à une question, utilises le même principe utilisé pour masquer la question

Rajoute les lignes

Private Sub ComboBox3_Change()
Dim Col As Integer, Numero As Integer
Dim Groupe As String, SousGroupe As String
Dim Ctrl As Control

  If Encours = True Then Exit Sub
  Nettoyage

  ' Début essai masquage Frame
  For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.Frame Then Ctrl.Visible = True
    If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Visible = True
  Next Ctrl
  ' Fin essai masquage Frame
  ' modifier Circulations Horizontales si autre feuille
  With Sheets("Circulations Horizontales")
    derligne = .Range("C" & Rows.Count).End(xlUp).Row
    For I = 6 To derligne
      If ComboBox3.Value <> "" Then
        TextBox1.Value = ""
        If .Range("A" & I) = ComboBox1.Value And .Range("B" & I) = ComboBox2.Value And .Range("C" & I) = ComboBox3.Value Then
        'If .Range("C" & I) = ComboBox3.Value Then
          TextBox1 = .Range("D" & I)

          ' Début essai masquage Frame
          ' changer les n°de colonnes si différentes pour une autre feuille
          For Col = 78 To 86
            If .Cells(I, Col) = "X" Then
              Me.Controls("Frame" & Col - 77).Visible = False
              Me.Controls("TextBox" & Col - 75).Visible = False    ' Col - 75 doit donner le 1er numéro de Textbox à masquer si Col=78
              For Each Ctrl In Me.Controls
                If Left(Ctrl.Name, 7) = "Frame" & Format(Col - 77, "00") Then Ctrl.Visible = False
              Next Ctrl
            End If
          Next Col