Bug Excel liste déroulante
Bonjour,
J'ai un bug sur l'un des PC de mes utilisateurs... Ce bug est généré sur une colonne où il y a une liste déroulante qui se génère en fonction de ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo 0
If Not Application.Intersect(Target, Range("R2:R9000")) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Application.ReferenceStyle = xlA1
Dim Tout_Manager As Range, Ligne_Liste As Integer, Liste As Worksheet
Ligne_Liste = Sheets("Liste_BELLINI").Range("X1000").End(xlUp).Row
With Sheets("Liste_BELLINI")
Set Tout_Manager = .Range(.Cells(2, 24), .Cells(Ligne_Liste, 24))
End With
With ActiveCell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Liste_BELLINI!" & Tout_Manager.Address
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Application.EnableEvents = True
End If
l'utilisateur sélectionne une cellule de cette colonne et ce message apparaît :
"Nom déjà utilisé
Le nom ne doit pas ressembler à une référence.
Ancien nom : _xlfn.DAYS
Nouveau nom : "
L'erreur se produit sur un pc sur excel 2010 win 7 et non sur un 2016 win 10 ...
Sauriez-vous d'où vient le problème ?
Merci à vous .
R@g