Discussion :

[deamonRav]

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

[aalex_38]

Bonjour,


Pour comprendre un code tu peux faire sur les mots que tu ne comprends pas.

il y a la faq et de nombreux tutoriaux par exemple ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' evenement lorsque la selection dans la feuille change, target est la cellule selectionnée
 
 'Permet de ne pas sélectionner plusieurs fois le même poste
    If Not Intersect([ColA], Target) Is Nothing Then[ListeDispo].ClearContents 'Si la cellule fait partie de colA on efface le contenu de listedispo
        For Each c In [Choix1] ' pour chaque cellule de la plage choixA
            If IsError(Application.Match(c, Range(Cells(11, 1), Cells(65000, 1)), 0)) Then ' ici je pensais plutôt Application.WorksheetFunction.Match 
                Sheets("Listes").[B65000].End(xlUp).Offset(1, 0) = c
            End If
        Next c
    End If
 
End Sub

[deamonRav]

Bonjour,

Merci pour le F1 directement sur le mot, je ne savais pas.

Je ne comprend justement pas le "Match" de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If IsError(Application.Match(c, Range(Cells(11, 1), Cells(65000, 1)), 0)) Then ' ici je pensais plutôt Application.WorksheetFunction.Match 
                Sheets("Listes").[B65000].End(xlUp).Offset(1, 0) = c
            End If

Et il n'ai pas dans l'aide...

Merci également pour la page des tutos, je l'avais déjà parcourue avant de poster cette discusion. Mais je vais y rejeter un coup d'oeil...

[casefayere]

Bonjour,

dans l'aide

WorksheetFunction.Match, méthode
Afficher tout
Masquer tout
Renvoie la position relative d'un élément dans une matrice (matrice : permet de créer des formules uniques permettant d'obtenir plusieurs résultats et qui agissent sur un groupe d'arguments répartis dans des lignes et des colonnes. Une plage matricielle partage une même formule tandis qu'une constante matricielle est un groupe de constantes qui sert d'argument.), qui correspond à une valeur spécifiée dans un ordre spécifié. Utilisez la fonction MATCH au lieu de l'une des fonctions LOOKUP lorsque vous avez besoin de la position d'un élément dans une plage au lieu de l'élément proprement dit.
Syntaxe

expression.Match(Arg1, Arg2, Arg3)

expression Variable représentant un objet WorksheetFunction.

[deamonRav]

Merci,

Pour m'avoir transmit l'aide. Mais je ne comprend pas pourquoi moi je ne l'ai pas.
Peut être avez-vous une version différente d'Excel!

En tout cas merci bien

[casefayere]

Bonjour,
je pense que tu dois selectionner la totalité :

WorksheetFunction.Match

et non match seul, ré-essayes

Bonne journée