Macro : Couper une ligne qui est en gras dans une autre feuille
Elnono94
Messages postés13Date d'inscriptionsamedi 14 février 2004StatutMembreDernière intervention 6 décembre 2005
-
6 déc. 2005 à 16:30
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 2022
-
8 déc. 2005 à 00:13
Bonjour, j'aimerai que les données qui sont en caractère gras à partir de A6 (dans feuil1) soient couper et coller dans feuil2 à partir de la colonne B4. Voici la macro que j'utilise :
Sub COUP_GRAS()
Dim c As Range
For Each c In Range("a6:a" & Range("a2000").End(x1up).Row)
If Range("A").Font.Bold = True Then
c.EntireRow.Cut = Sheets("feuil2").Range("B4").Paste
End If
Next c
End Sub
Merci pour votre aide
A voir également:
Macro : Couper une ligne qui est en gras dans une autre feuille
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 8 déc. 2005 à 00:13
Lut,
Sub COUP_GRAS()
Dim c As Range: Dim CellRow As Long
CellRow = 4
For Each c In Range("a6:a" & Range("a2000").End(xlUp).Row)
'tu dois tester une cellule de ta plage c
If c.Font.Bold = True Then
' Les plages doivent être identiques
c.EntireRow.Cut Sheets("feuil2").Cells(CellRow, 1).EntireRow
' tu remet la selection à zéro
Application.CutCopyMode = False
' tu incrémentes sinon tu écrases les données précédantes
CellRow = CellRow + 1
End If
Next c
End Sub