Bonjour à tous,
J'ai des soucis avec un code qui doit servir à activer / désactiver et ombrager certaines textbox lorsqu'un choix est sélectionné dans une combobox "Protocole". Lorsque j'essaie de sélectionner une option excel plante avec l'erreur suivante : Erreur Automation l'objet invoqué s'est déconnecté de ses clients. J'ai pourtant le même code sur une autre page de mon userform qui fonctionne bien.
Voici le code (celui qui fait planter Excel est le 2e (private sub Reg347), ainsi que mon fichier
Également Excel crash après une première sauvegarde et réouverture du fichier, je ne comprend pas pourquoi...
merci d'avance pour votre temps 😎
J'ai des soucis avec un code qui doit servir à activer / désactiver et ombrager certaines textbox lorsqu'un choix est sélectionné dans une combobox "Protocole". Lorsque j'essaie de sélectionner une option excel plante avec l'erreur suivante : Erreur Automation l'objet invoqué s'est déconnecté de ses clients. J'ai pourtant le même code sur une autre page de mon userform qui fonctionne bien.
Voici le code (celui qui fait planter Excel est le 2e (private sub Reg347), ainsi que mon fichier
Également Excel crash après une première sauvegarde et réouverture du fichier, je ne comprend pas pourquoi...
merci d'avance pour votre temps 😎
VB:
' Protocole adapté (vitesse et pente) test initial
Private Sub Reg202_Change()
Dim ind As Long
For ind = 297 To 336
Controls("Reg" & ind).Enabled = Reg202.Text = "Protocole adapté"
Controls("Reg" & ind).BackColor = IIf(Reg202.Text = "Protocole adapté", "&H80000005", "&H80000004")
Next ind
End Sub
' Protocole adapté (vitesse et pente) test final
Private Sub Reg347_Change()
Dim ind As Long
For ind = 442 To 481
Controls("Reg" & ind).Enabled = Reg347.Text = "Protocole adapté"
Controls("Reg" & ind).BackColor = IIf(Reg347.Text = "Protocole adapté", "&H80000005", "&H80000004")
Next ind
End Sub
Dernière édition: