Copie de lignes d'une feuille à une autre

Question

Bonjour,
J'ai une dansfeuil1 une base de données où certaine celleules sont colorées en rouge.
comment faire un macro pour copier dans feuil2 toutes les lignes où se trouve une cellule colorée
en rouge.
J'ai vraiment besoin d'urgence de votre aide
Merc d'avance

jihene80 · Answer

Merci lulu37
 j'ai trouvez la reponse dans le forum graçe à vous avec votre macro suivant :

Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
  
  Sheets("feuil2").Activate ' feuille de destination
  
  Col = "i"                 ' colonne données non vides à tester'
  NumLig = 2          'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
  With Sheets("feuil1")     ' feuille source'
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 3 To NbrLig             'n° de la 1ere ligne de données'
    If .Cells(Lig, Col).Value <> "" Then
      .Cells(Lig, Col).EntireRow.Copy
      NumLig = NumLig + 1
      Sheets("feuil2").Cells(NumLig, 1).Insert Shift:=xlDown
            'ici pour insérer ou  .Paste pour coller' 
    End If
  Next
  End With

si quelqu'un a de mieux ça sera bien

Copie de lignes d'une feuille à une autre

1 réponse

Votre réponse

Discussions similaires

Newsletters