Aide sur formule vba

[BIGOKOU]

Bonjour je voudrais avoir un code vba celon la formule que j 'ai faite en colone N sur l onglet global, et si possible faire un autre code pour mettre une securite sur le faite que si la valeur est deja ok mettre un message d erreur est ce possible merci à vous

 

[frangy]

Re : Aide sur formule vba

Bonjour,

Sub Controler()
Dim DerLigne As Long
Dim Cel As Range, Plage As Range
    Application.ScreenUpdating = False
    With Worksheets("FEV2012")
        Set Plage = .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
    End With
    With Worksheets("GLOBAL")
        DerLigne = .Range("A" & .Rows.Count).End(xlUp).Row
        For Each Cel In .Range("A2:A" & DerLigne)
            If Application.CountIf(Plage, Cel) > 0 Then
                If UCase(Cel.Offset(0, 13)) <> "OK" Then
                    Cel.Offset(0, 13) = "OK"
                Else
                    msg = msg & Chr(10) & "Erreur Ligne " & Cel.Row
                End If
            Else
                Cel.Offset(0, 13) = ""
            End If
        Next Cel
        Set Cel = Nothing
        Set Plage = Nothing
    End With
    Application.ScreenUpdating = True
    If msg <> "" Then MsgBox msg
End Sub

Cordialement.

 

[BIGOKOU]

Re : Aide sur formule vba

Magnifique franchement bravo