Discussion :

[Coxtox]

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

[eric4459]

Bonjour,
Je n'ai pas testé ton code mais il semble correct, au lieu de

Code :

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

Destination:=Sheets("Détails Personnes Normes").Range("A8")

tu pourrais utiliser

Code :

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

Destination:=DPN.Range("A8")

car tu l'as défini plus haut.
Est-tu certains que tous les lignes soient collées en A8, car là tu écrases à chaque fois la valeur de cette cellule?
Eric

[Coxtox]

Aucune ligne n'est collée lorsque j’exécute ce code ... J'ai rajouté qqes lignes pour stocker les lignes égale au combobox dans une variable recherche.

Cf code ci-dessous :

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
21
22
23
Private 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
 
If SG.Range("C2") = "" Then Exit Sub 'si la cellule C2 de l'onglet SG est vide, sort de la procédure
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
    Set R = DPN.ComboBoxMetier2.Value.Find(CEL.Value, , xlValues, xlWhole) ' A VERIFIER ..
   If Not R Is Nothing Then CEL.Rows(Target.Row).Copy Destination:=DPN.Range("A8")
   Set R = Nothing 'vide la variable R
Next CEL
 
End Sub

Visiblement j'ai une petit problème de syntaxe (notamment quand je définit R) car j'ai une erreur sur le private sub au tout début : Erreur de compilation : Membre de méthode ou de données introuvable

Merci pour ta réponse rapide !

[Thautheme]

Bonjour Coxtox, FZ, bonjour le forum

Bizarrement ce code me parle (enfin surtout les commentaires...)

En dehors de la remarque judicieuse d'Éric, j'ai aussi un doute quant à :

Code :

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

Set PL = SG.Range("C2").End(xlUp) 'définit la plage PL

Ça fait un toute petite plage ça (C1:C2)...

[Coxtox]

Salut Thautheme,

Je dois admettre que ton code de la dernière fois était super clair ! Vu que je débute et que j'ai un peu de mal avec la syntaxe ... c'est parfait en reprenant ton exemple et en a l'adaptant

Inattention de ma part j'ai modifier avec

Code :

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

Set PL = SG.Range("C2").End(xlDown)

j'ai un problème avec la ligne ci-dessous :

Code :

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

 Set R = DPN.ComboBoxMetier2.Value.Find(CEL.Value, , xlValues, xlWhole)

Pour définir, la recherche de la valeur du combobox dans la plage PL (Erreur de compilation mentionné ci-dessus).

Cordialement

[Thautheme]

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Code :

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

Set R = PL.Find(ComboBoxMetier2.Value, , xlValues, xlWhole)

[Coxtox]

Çà se simplifie effectivement !

Cependant j'ai un problème au niveau de cette ligne de code :

Code :

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

If Not R Is Nothing Then CEL.Rows(Target.Row).Copy Destination:=DPN.Range("A8")

Erreur d’exécution : Objet requis ... d'après ce que j'ai compris ça semblerais provenir du fait que lorsque R est vide il déclenche une erreur non ?


PS : Si je veux copier que les colonnes A, B, C est ce possible de la manière suivante (aie aie la syntaxe !) :

Code :

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

If Not R Is Nothing Then CEL.Rows.Range("A:C").Copy Destination:=DPN.Range("A8")

Merci de votre aide..