Liaisons entre les différents éléments d'un Userform
Bonjour à toutes et à tous et j'espère que vous allez bien.
J'ai longuement réfléchis à comment rendre les différents éléments que j'introduis dans un userform corrélés.
Je m'explique :
Un TextBox qui variera en fonction d'une Listbox (qui elle reçoit les données depuis un tableau d'un autre classeur Excel)
Une ComboBox qui en fonction de la valeur choisie, permettra de masquer/rendre visible les autres éléments de l'userform et qui par ailleurs changera aussi sa longueur/largeur suivant le choix.
Est-ce possible d'avoir ces interactions? Merci de m'éclairer sur le programme suivant :
Private Sub ComboBox16_AfterUpdate()
' Nature :
' Si la sélection est : Transfo
If ComboBox16.Value = Sheets("<DATA>").Range("C4") Then
' Ukr
' Fonction recherchev() en vba est : VLookup() et clng (caractère long), DATAB = Range("B2:O19")
Me.TextBox2 = Application.VLookup(CLng(Me.ComboBox17), Sheets("<DATA>").Range("DATAB"), 4, 0)
' Sinon si la sélection est : Groupe
ElseIf ComboBox16.Value = Sheets("<DATA>").Range("C6") Then
' Ukr
' Grissailler la valeur de "Ukr"
Me.TextBox2.Enabled = False
' Sinon si la sélection est : BT par ICC
ElseIf ComboBox16.Value = Sheets("<DATA>").Range("C6") Then
' Ukr
' Grissailler les valeurs de "Puissance", "Nb Sources" et "Ukr"
With Me
.ComboBox17.Enabled = False
.ListBox18.Enabled = False
.ListBox19.Enabled = False
.TextBox2.Enabled = False
.TextBox2.Enabled = False
.Label_Intensite.Enabled = True
.Label_Courant.Enabled = True
.TextBox5.Enabled = True
End With
Else
.ComboBox17.Enabled = True
.ListBox18.Enabled = True
.ListBox19.Enabled = True
.TextBox2.Enabled = True
End If
End SubNature est l'élément déclencheur qui en fonction du choix fait, permettra à Ukr de modifier sa valeur/visibilité.
Notons que ce programme me génère une erreur que je ne comprend pas : "Erreur d'exécution '13' : Incompatibilité de type"
Merci par avance de votre aide.
PJ : Images de mon userform avec/sans étiquettes ainsi que le tableau de données (situé dans un autre classeur)

https://zupimages.net/viewer.php?id=20/15/ap06.png