Bonjour a tous,

je viens vers vous car je n'arrive pas a trouver le code pour copier la ligne vers une nouvelle feuille.
Nous appelerons cette nouvelle feuille "MAJ".
La feuille de reference est une variable du nom de "Response"


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
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 <> "" 
 
 ' condition pour les clients Factures M-2
 
 If .Range("L" & i).Value <> 0 Then
    .Rows(i).Interior.ColorIndex = 8    ' couleur interieur
      .Rows(i).Font.ColorIndex = 1      ' couleur du texte
      .Rows(i).Font.Bold = True         ' mise en gras de la police
       End If
    i = i + 1
        Wend
je souhaiterai avoir en meme temps que la ligne se colore suite a condition, quel copie la ligne vers la nouvelle Feuille MAJ
en ecriture literal cela donnerais :

Si dans la colonne L la valeur de la cellule est differente de 0 alors Copie de la ligne vers la feuille MAJ.

en esperant avoir été assez claire.

Cordialement

pex