Bonjour,

Je voulais savoir si quelqu'un pouvait m'expliquer par étape le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 'Permet de ne pas sélectionner plusieurs fois le même poste
    If Not Intersect([ColA], Target) Is Nothing Then
        [ListeDispo].ClearContents
        For Each c In [Choix1]
            If IsError(Application.Match(c, Range(Cells(11, 1), Cells(65000, 1)), 0)) Then
                Sheets("Listes").[B65000].End(xlUp).Offset(1, 0) = c
            End If
        Next c
    End If
 
End Sub
Sachant que:
- [ColA] représente une liste déroulante dans la feuille de saisie par l'utilisateur
- [ListeDispo] une colonne reprenant les valeurs de [Choix1] mais avec les valeurs déjà sélectionnées dans [ColA] en moins
- [Choix1] les valeurs

D'avance merci.

DeamonRav