Salut Kaleunt,
Salut bigdaddy154,
une version VBA qui te permet de compléter ta BASE d'entreprises sans te préoccuper de corriger tes listes de validation : les listes se font seules!
Une seule contrainte : respecter d'une feuille à l'autre les libellés d'entreprise !
Exemple : TERRASSEMENT <> TERRASSEMENT VRD !!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, Range("B5:B" & Range("B4").End(xlDown).Row)) Is Nothing Then
Cells.Validation.Delete
iRow = Target.Row
With Worksheets("BASE")
iRow1 = .Columns(1).Find(what:=Range("A" & iRow).Value, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlNext).Row
iRow2 = .Columns(1).Find(what:=Range("A" & iRow).Value, lookat:=xlWhole, LookIn:=xlValues, searchdirection:=xlPrevious).Row
Target.Validation.Add Type:=xlValidateList, Formula1:="=BASE!B" & iRow1 & ":B" & iRow2
End With
End If
'
End Sub
A+