Macro VBA
sisi
-
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12713 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je cherche a faire une macro qui me copie toutes les lignes dont les cellules sont en jaunes et rose à partir de la colonne C4 dans une autre feuille.
il faut également qu'il me prenne le titre (cellule fusionnée C1) pour chaque partie, ainsi que les cellules A1, B1
je cherche a faire une macro qui me copie toutes les lignes dont les cellules sont en jaunes et rose à partir de la colonne C4 dans une autre feuille.
il faut également qu'il me prenne le titre (cellule fusionnée C1) pour chaque partie, ainsi que les cellules A1, B1
A voir également:
- Macro VBA
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Excel compter cellule couleur sans vba - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
2 réponses
voici la macro que j'ai ecrit :
Dim Rw As Range
Dim Ligne As Long
Dim Cellule As Range
Sheets("Feuil1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 8).Interior.ColorIndex = 6 Then
Rw.Copy Destination:=Worksheets("Feuil2").Cells(Ligne, 3).EntireRow
End If
Next Rw
End Sub
cette macro ne fonctionne pas très bien car elle ne prend pas en compte les autres cellules jaunes a partir de K4.
Dim Rw As Range
Dim Ligne As Long
Dim Cellule As Range
Sheets("Feuil1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
For Each Rw In Selection.Rows
Ligne = Rw.Row
If Rw.Cells(1, 8).Interior.ColorIndex = 6 Then
Rw.Copy Destination:=Worksheets("Feuil2").Cells(Ligne, 3).EntireRow
End If
Next Rw
End Sub
cette macro ne fonctionne pas très bien car elle ne prend pas en compte les autres cellules jaunes a partir de K4.
