Discussion :

[Neptune64]

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 :

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

[Gorfael]

Salut Neptune64 et le forum

Code :

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

DLEX = EX.Cells(65536, 2).End(xlUp).Row + 1

Avec cette ligne tu fixes la valeur de Dlex.
Comme tu ne la redéfinis pas, ta variable reste celle définie à cette ligne.
Dans ta boucle, il faut la redéfinir : soit en la recherchant :

Code :

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

    Cells(EX.Cells(65536, 2).End(xlUp).Row + 1, 1).PasteSpecial

ou en la calculant :

Code :

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

1
2
    Cells(DLEX, 1).PasteSpecial
    DLEX = DLEX + 1

A+

[Neptune64]

Hello Gorfeal

Merci pour ta réponse ! c'est juste maintenant que je le vois c'est logique mais je n'arrivais pas à trouver !!