Userform, Sélectionner une valeur de la colonne adjacente
spygirl3
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je suis entrain de créer un userfom.
J'aimerai que la valeur qui s'affiche dans le combobox3 soit la case sur la même ligne mais d'une colonne décalée et ensuite verrouiller les valeurs mises dans le combobox2 et 3 en appuyant sur le bouton valider.
Private Sub ComboBox2_change()
Dim nOm As Long
Set ws1 = Sheets("TABLES")
With Me.ComboBox3
If ComboBox2.Value = ("Di") Then
For nOm = 2 To ws1.AddItem.Offset(rowOffset:=0, columnOffset:=1)
Next nOm
Else
For nOm = 2 To ws1.AddItem.Offset(rowOffset:=0, columnOffset:=1)
Next nOm
End If
End With
End Sub
Private Sub CommandButton2_Click()
CommandButton2.Enabled = True
ActiveCombobox2.Protect
ActiveCombobox3.Protect
End Sub
Merci pour votre aide.
je suis entrain de créer un userfom.
J'aimerai que la valeur qui s'affiche dans le combobox3 soit la case sur la même ligne mais d'une colonne décalée et ensuite verrouiller les valeurs mises dans le combobox2 et 3 en appuyant sur le bouton valider.
Private Sub ComboBox2_change()
Dim nOm As Long
Set ws1 = Sheets("TABLES")
With Me.ComboBox3
If ComboBox2.Value = ("Di") Then
For nOm = 2 To ws1.AddItem.Offset(rowOffset:=0, columnOffset:=1)
Next nOm
Else
For nOm = 2 To ws1.AddItem.Offset(rowOffset:=0, columnOffset:=1)
Next nOm
End If
End With
End Sub
Private Sub CommandButton2_Click()
CommandButton2.Enabled = True
ActiveCombobox2.Protect
ActiveCombobox3.Protect
End Sub
Merci pour votre aide.
A voir également:
- Userform, Sélectionner une valeur de la colonne adjacente
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Figer une colonne excel - Guide
