Titre du sujet : Re: Modification en VBA de valeurs de données sur enregistrements filtrés par wjmavsk le 23/03/2013 17:19:44
Dim lCount, NbLignes, LnFirst As Long
Sub Modif_EDF()
'
' Modif_EDF Macro
'
'
On Error Resume Next
' trouve nombre de lignes avec code 88 dans colonne 7
NbLignes = WorksheetFunction.CountIf(Columns(7), "88")
For lCount = 1 To NbLignes
Columns(7).Find(What:="88", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
LnFirst = ActiveCell.Row
Cells(LnFirst, 4).Select
If ActiveCell = "D" Then
ActiveCell = "-1"
Cells(LnFirst, 5).Select
If ActiveCell <> "AC" Then
ActiveCell = "AC"
End If
End If
Next lCount
End Sub
La fonction Find permet de réaliser cette opération avec tableau filtré ou non filtré.
Cordialement,
JM
|