XL 2016 VBA Copier de lignes entre des feuille sous condition

Arthur.clb

XLDnaute Nouveau
Bonjour,
Je suis en stage et je rencontre un problèmes sur l'une des missions qu'il m'a été confié me demande une extraction de certaines lignes de la feuille "ListePA" vers la feuille "NbrCartons", à condition que cette ligne comporte une certaine valeur "max_cts" (définis aupravant) dans la colonne B. Le problèmes est que lorsque j'exécute ma macro, il me copie des lignes de la feuille de destination (NbrCartons) vers la feuille de destination (NbrCartons) sans prendre en compte la condition.
Voici mon code :

Sub extraction()
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Worksheets("NbrCartons").Activate ' feuille de destination
Col = "B" ' colonne données non vides à tester'
NumLig = 23 'N° de la 1er ligne de données en comptant la ligne 1 = 0
With Sheets("ListePA") ' feuille source'
NbrLig = Cells(65536, Col).End(xlUp).Row
For Lig = 6 To NbrLig 'n° de la 1ere ligne de données'
If Cells(Lig, Col) = max_cts Then
Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Cells(NumLig, 1).Insert Shift:=xlDown 'ici pour insérer ou .Paste pour coller'
End If
Next
End With
End Sub
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Vous avez apparemment oublié de faire commencer par un point les expressions devant s'appliquer au With
 

Discussions similaires


Haut Bas