pierre17du
XLDnaute Nouveau
Je suis sur une ComboBox, et pour facilité la modification éventuel du document par des tiers je veux utiliser une variable, sauf qu'il me manque un truc au niveau de la sintaxe:
Private ChoisEmployeDebut As String
'rentrer ici les coordonnes de la première cellule de la colonne employé
ChoisEmployeDebut = AB5
Private ChoisEmployeDebut As String
'rentrer ici les coordonnes de la dernière cellule de la colonne employé
ChoisEmployeFin = AB23
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'code pour la selection de nom du personnel
If Not Intersect(Target, Range("&ChoisEmployeDebut:&ChoisEmployeFin")) Is Noting Then
[A1] = Target.Row
[B1] = Target.Column
Cancel = True
UserForm1.Show
End If
End Sub
Dernière édition: