Vous pouvez courir le code pour les cboEmployees après la boucle
cmdOK_Click secondaire privé ()
ActiveWorkbook.Sheets (« DTS »). Activent
Gamme (« C15 »). Choisi
Faire
S'IsEmpty (ActiveCell) = faux puis
ActiveCell.Offset (1, 0). Choisi
Finir si
Faire une boucle jusqu'à IsEmpty (ActiveCell) = rectifient
ActiveCell.Value = cboEquipment.Value
'-----------------------------------------------
ActiveWorkbook.Sheets (« DTS »). Activer
Gamme (« C16 »). Choisi
Faire
S'IsEmpty (ActiveCell) = faux puis
ActiveCell.Offset (1, 0). Choisi
Finir si
Faire une boucle jusqu'à IsEmpty (ActiveCell) = rectifient
ActiveCell.Value = cboEmployee.Value
Sous-marin d'extrémité