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"
je souhaiterai avoir en meme temps que la ligne se colore suite a condition, quel copie la ligne vers la nouvelle Feuille MAJ
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
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
Partager