Export data selon sélection
Bonjour le forum
J'ai un petit problème. Je voudrais extraire toutes les lignes d'une feuille selon une sélection. Exemple tous les "Nouveau" de la colonne C devrait être copié puis collé par collage spéciale dans une autre feuille "Export".
Quand je lance le code ci-dessous, j'ai toutes les lignes qui sont passée mais elle se colle toutes sur la même ligne, j'ai donc que la dernière ligne qui est collée. Si je relance le code, la même ligne s'ajoute dessous.
je n'arrive pas à faire décaler la ligne pour chaque cas à coller !!
Merci de votre aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Sub Export()
Dim EX As Worksheet 'déclare la variable EX (Feuille Export)
Dim LCTPM As Worksheet 'déclare la variable LCTPM (Feuille ListeCustomer TPM)
Dim Plage As Range
Dim DLEX As Integer 'déclare la variabe DLEX (Dernière Ligne onglet Export)
Dim DLLCTPM, P As Integer 'déclare la variabe DLLCTPM (Dernière Ligne onglet ListeCustomer TPM)
Dim q As String 'déclare la variable q (Question)
Set EX = Worksheets("Export") 'définit la variable EX
Set LCTPM = Worksheets("ListeCustomer TPM") 'définit la variable LCTPM
DLLCTPM = LCTPM.Range("B65536").End(xlUp).Row + 1 'définit la variable DLLCTPM
DLEX = EX.Cells(65536, 2).End(xlUp).Row + 1 'définit la variable DLEX
q = InputBox("Write the Config number:")
If q = "" Then
MsgBox "You stopped the process"
Exit Sub
End If
LCTPM.Select
Set Plage = Range("C6:C" & Range("B6").End(xlDown).Row)
For P = Plage.Cells.Count To 1 Step -1
If Plage.Cells(P).Value = q Then
Plage.Cells(P).EntireRow.Copy
EX.Select
Cells(DLEX, 1).PasteSpecial
End If
Next
End Sub |
