Copie de lignes d'une feuille à une autre
jihene80
Messages postés
2
Date d'inscription
Statut
Membre
-
jihene80 Messages postés 2 Date d'inscription Statut Membre -
jihene80 Messages postés 2 Date d'inscription Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
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
