Private Sub ComboBox1_Change()
Dim i As Byte
Dim li As Byte
li = Me.ComboBox1.ListIndex + 3
For i = 1 To 39
Sheets("Saisie").Cells(li, i + 2).Value = Me.Controls("Textbox" & i).Value
Me.Controls("Label" & i).Caption = Sheets("Saisie").Cells(2, i + 2).Value
Next i
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Function setValueCol(numTextBox As Integer) ' récuperation numero de la chambre li = Me.ComboBox1.ListIndex + 3 If Me.ComboBox1.ListIndex > 0 Then 'copie de la valeur dans la feuille excel Sheets("Saisie").Cells(li, numTextBox + 2).Value = Me.Controls("TextBox" & numTextBox) Else MsgBox "Merci de choisir une chambre" End If End Function Private Sub TextBox1_Change() setValueCol (1) End Sub Private Sub TextBox2_Change() setValueCol (2) End Sub ' Etc...
si je change de chambre les textbox restent renseignées de la même façon.C'est normal que tes textbox conservent les valeurs précédemment renseignées....
si je reviens sur une chambre renseignée, je ne retrouve pas les donnéesTu ne les retrouves pas où ??