Bonjour à tous,

Je vous explique ce que je souhaiterai faire :

J'ai un combobox situé sur la Feuille "Détails Personnes Normes" (celui -ci est rempli par les différents métiers présents sur la feuille "Sélection globale" de la colonne C).

L'utilisateur peut donc choisir entre les différents métiers. Si il choisit un métier en particulier, j'aimerais pouvoir copier chaque ligne correspondante au métier choisi de la feuille "Sélection globale".

Ci dessous mon début de code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub ComboBoxMetier2_Change()
 
 
Dim SG As Worksheet 'déclare la variable SG (onglet Sélection globale)
Dim DPN As Worksheet 'déclare la variable DPN (onglet Détails Personnes Norme)
Dim PL As Range 'déclare la variable PL (PLage)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim R As Range 'déclare la variable R (Recherche)
 
Set SG = Sheets("Sélection globale") 'définit l'onglet SG
Set DPN = Sheets("Détails Personnes Normes") 'définit l'onglet DPN
 
Set PL = SG.Range("C2").End(xlUp) 'définit la plage PL
 
For Each CEL In PL 'boucle sur toutes les cellules CEl de la plage PL
   If CEL = ComboBoxMetier2.Value Then CEL.Rows(Target.Row).Copy Destination:=Sheets("Détails Personnes Normes").Range("A8")
Next CEL
 
 
End Sub
Cordialement