Inserer donnee automatique

BRUNO62 · 12 Mars 2013

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 · 12 Mars 2013

Re : Inserer donnee automatique

Bonjour,

essaye peut être ceci :

Code:

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 · 12 Mars 2013

Re : Inserer donnee automatique

Bonjour Pierrot93,

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

Inserer donnee automatique

BRUNO62

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

Discussions similaires

Inserer donnee automatique

BRUNO62

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency