bonjour,
je suis entrain de codé une macro de mise en forme afin d'automatiser le traitement des données.
J'aurai voulu savoir quel manipulation est a effecuté afin que si la condition est remplie la ligne soit copier vers une nouvelle Feuille Excel.
J'aurai voulu que quand la condition est remplie il me recupere la ligne et l'ajoute dans une nouvelle Feuille.
En esperant que vous pouvez m'aider cordialement
Pex
je suis entrain de codé une macro de mise en forme afin d'automatiser le traitement des données.
J'aurai voulu savoir quel manipulation est a effecuté afin que si la condition est remplie la ligne soit copier vers une nouvelle Feuille Excel.
Code:
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets(Response) 'nom de la feuille où le contrôle doit se faire
With ws
i = 1 'Numéro de la première ligne à tester
While .Range("L" & i).Value <> "" And .Range("M" & i).Value <> "" And .Range("N" & i).Value <> "" And .Range("O" & i).Value <> "" And .Range("P" & i).Value <> "" And .Range("X" & i).Value <> ""
' condition pour les clients Factures M-2
If .Range("L" & i).Value <> 0 Then
.Rows(i).Interior.ColorIndex = 8
.Rows(i).Font.ColorIndex = 1
- ici je souhaite le code de copie vers la nouvelle feuille
End If
i = i + 1
Wend
En esperant que vous pouvez m'aider cordialement
Pex