EXISTE_ENCORS REF
OK 01002240-BV
OK 01002240-CA-ADS
OK 07037
OK 08309800-BB
OK 100289701
OK 100489
OK 100489
bonjour,
je dois traiter une base du type de celle ci dessus ou j'ai marqué les références redondantes (doublons) en gras et je voudrais supprimer les lignes où les cellules de la colonne "REF" sont en gras mais je n'y arrive pas
j'ai écrit la macro suivante pour mettre les doublons en gras :
Columns("B:B").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=B2"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
et pour supprimer les lignes marqués en gras le code suivant:
Dim lngL2 As Long
For lngL2 = 1000 To 2 Step -1
If Cells(lngL2, 2).Font.Bold = True Then
Rows(lngL2).Select
Selection.Delete shift:=xlUp
End If
Next lngL2
si quelqu'un peut m'aider a supprimer ces lignes
merci d'avance
OK 01002240-BV
OK 01002240-CA-ADS
OK 07037
OK 08309800-BB
OK 100289701
OK 100489
OK 100489
bonjour,
je dois traiter une base du type de celle ci dessus ou j'ai marqué les références redondantes (doublons) en gras et je voudrais supprimer les lignes où les cellules de la colonne "REF" sont en gras mais je n'y arrive pas
j'ai écrit la macro suivante pour mettre les doublons en gras :
Columns("B:B").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=B2"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
End With
et pour supprimer les lignes marqués en gras le code suivant:
Dim lngL2 As Long
For lngL2 = 1000 To 2 Step -1
If Cells(lngL2, 2).Font.Bold = True Then
Rows(lngL2).Select
Selection.Delete shift:=xlUp
End If
Next lngL2
si quelqu'un peut m'aider a supprimer ces lignes
merci d'avance