Chargement textbox

bonsoir

il me manque un bout de code pour recharger valeur "commentaires" textbox2 quand je ressaisie dans usf par exemple batiment c1

etage 2eme sous sol couloir 1 id 33928 "hello comment va ?"

merci

Bonjour

Très simplement, ajoute la ligne dans la procédure Private Sub ComboBox3_Change

          For Col = 5 To 59
            If .Cells(I, Col) <> "" Then
              Groupe = Format(1 + ((Col - 5) \ 5), "00")
              SousGroupe = Format(.Cells(I, Col) + (10 * (1 + ((Col - 5) Mod 5))), "000")
              'Debug.Print "OptionButton" & Groupe & SousGroupe
              Me.Controls("OptionButton" & Groupe & SousGroupe) = True
            End If
          Next Col
          Me.TextBox2 = .Cells(I, 60)
          I = derligne
        End If