LIste de donnees liée aux valeurs d'un tableau

Bonjour à tous,

J'utilise un code pour limiter les données dans une liste de validation d=
e données.
A l'origine, les tableaux de données étaient sur la même feuille. Pou=
r une raison d'organisation, je suis contraint de les mettre sur une autre =
feuille (feuille de "Donnees"). Depuis j'ai un plantage (erreur 1004) sur l=
a ligne suivante:

Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count, 1)).Address

Quelqu'un aurait une idée!

Merci d'avance.

JP

Le code complet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'**********************************************'
'* GERE LES LISTES DE VALIDATION DES HORAIRES *'
'**********************************************'
Dim F As Worksheet
Set F = Sheets("Donnees")

Dim rg As Variant, c As Variant, X As Long, P As Variant, Adr As Variant
Set rg = Intersect(Union(Range("L7:L107"), Range("O7:O107"), Range("R7:R1=
07")), Target)

If Not rg Is Nothing Then
For Each c In rg
With c
If .Offset(, -1) <> "" Then
If .Offset(, -1).Value2 <= 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_AM"),=
0)
Set P = F.Range("F_AM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count=
, 1)).Address
ElseIf .Offset(, -1).Value2 > 0.5 Then
X = Application.Match(.Offset(, -1), F.Range("D_PM"),=
0)
Set P = F.Range("F_PM")
Adr = "=" & P.Range(Cells(X, 1), Cells(P.Rows.Count=
, 1)).Address
Else
.Validation.Delete
Exit Sub
End If
ActiveSheet.Unprotect
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlert=
Stop, _
Operator:=xlBetween, Formula1:=Adr
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ActiveSheet.Protect
End If
End With
Next
End If

End Sub

---

• Partager ce contenu :