Rapport de message :*
 

Re: Modification en VBA de valeurs de données sur enregistrements filtrés

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