Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, source As Range
Set P = Range("E9:E" & Rows.Count)
P.Validation.Delete 'RAZ
If Intersect(ActiveCell, P) Is Nothing Then Exit Sub
Set source = Sheets("Feuil1").[A7].CurrentRegion
With Sheets("Liste")
.Columns(1).Clear 'RAZ
If ActiveCell = "" Then Exit Sub
source.AutoFilter 3, ActiveCell & "*" 'filtre automatique
source.Columns(3).Copy .[A1]
source.AutoFilter 3
.[A1].Delete xlUp
If .[A1] <> "" Then ActiveCell.Validation.Add xlValidateList, Formula1:="=" & .Name & "!" & .UsedRange.Columns(1).Address
End With
End Sub
bonjours merci beaucoupBonjour le___destin,
Après 144 messages, toujours pas de "Bonjour", c'est dommage.
Pas tout compris à votre demande, alors un essai en PJ un peu au hasard. Cela donne :
Regarde la pièce jointe 1179005
Je ne comprends pas. Vous voulez que la recherche s'effectue que sur la première lettre ?est-ce que on peux améliorer le code pour que la recherche ne soit pas sauf par la première lettre
merci d'avance
je veux la recherche soit les lettre taper inclut dans la celluleJe ne comprends pas. Vous voulez que la recherche s'effectue que sur la première lettre ?
Si l'utilisateur en tape une deuxième, on l'ignore ?