Inserer donnee automatique

[BRUNO62]

Bonjour,

Je recherche une solution qui me permettrait à chaque saisie dans la colonne A qu'une liste déroulante se colle automatiquement dans la colonne D
Merci
A+

 

[Pierrot93]

Re : Inserer donnee automatique

Bonjour,

essaye peut être ceci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count > 1 Or .Column > 1 Or .Row < 22 Then Exit Sub
    If .Value = "" Then Exit Sub
    With .Offset(0, 3).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=liste"
    End With
End With
End Sub

bon après midi
@+

 

[BRUNO62]

Re : Inserer donnee automatique

Bonjour Pierrot93,

Grand Merci, c'est OK.
Bonne soirée
a+