Liste deroulante

[Ilino]

Bonsoir forum
Mon petit souci est comment faire pour remplir une liste à partir d’une cellule
Grazie

 

[Victor21]

Re : Liste deroulante

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Integer
 If Target.Address = "$A$3" And Target.Count = 1 Then
 n = Application.CountA([A4:A10000])
 ActiveSheet.Unprotect Password:=""
 Cells(4 + n, "a") = Target
 ActiveSheet.Protect Password:=""
 [A3].Select
 End If
 If Target.Address = "$B$3" And Target.Count = 1 Then
 n = Application.CountA([B4:B10000])
 ActiveSheet.Unprotect Password:=""
 Cells(4 + n, "b") = Target
 ActiveSheet.Protect Password:=""
 [B3].Select
 End If
 End Sub

 

[Ilino]

Re : Liste deroulante

SALUT PATRICK
Merci beaucoup, le pblm etait dans la comonne de la cellule "a" ou "b" tu as raison un grand merci
bON wEEK eND

 

[Ilino]

Re : Liste deroulante

Bonsoir tous les mondes, bonsoir FORUM
Apres avoir élaboré le code VBA (grâce a vous) maintenant j’ai un autre souci …
Comment faire supprimer les doublants lors du remplissage de la liste déroulant
MERCI

 

[Victor21]

Re : Liste deroulante

Re,

Avec un test supplémentaire. A tester :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n As Integer
    If Application.WorksheetFunction.CountIf(Range(Cells(3, Target.Column), Cells(10000, Target.Column)), Target.Value) = 1 Then

        If Target.Address = "$A$3" And Target.Count = 1 Then
            n = Application.CountA([A4:A10000])
            ActiveSheet.Unprotect Password:=""
            Cells(4 + n, "a") = Target
            ActiveSheet.Protect Password:=""
            [A3].Select
        End If
        If Target.Address = "$B$3" And Target.Count = 1 Then
            n = Application.CountA([B4:B10000])
            ActiveSheet.Unprotect Password:=""
            Cells(4 + n, "b") = Target
            ActiveSheet.Protect Password:=""
            [B3].Select
        End If

    End If
End Sub

 

[Ilino]

Re : Liste deroulante

Bonsoir forum, Bonsoir Patrick
Super ..... un grand merci je te remerci infiniment grazie infinite Maitre..
Bon week-end
Buon Week-end

 

[Victor21]

Re : Liste deroulante

Re,

Pour éviter les plantage lors de la sélection de plusieurs cellules, rajoute le test :

if target.count>1 then exit sub

au tout début.

PS : Et n'oublie pas que si tu dépasses 32767 lignes, tu devras déclarer ta variable en long.

 

[Ilino]

Re : Liste deroulante

Re,
c'est noté maitre😱
merci merci