Explication d'un code!

Bonjour,

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

Code:

---

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

Bonjour,


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

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

Code:

---

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

---

Bonjour,

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

Je ne comprend justement pas le "Match" de

Code:

---

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...

Bonjour,

dans l'aide

Citation:

---

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.

---

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

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

Citation:

---

WorksheetFunction.Match

---

et non match seul, ré-essayes

Bonne journée

J'avais essayé et ca n'avait pas marché.

D'ailleurs lorsque je mets Application.worksheetFunction.match, mon code ne fonctionne plus.

Bonne journée