Discussion :

[thomasdu40]

Bonjour,

Comment je peux traduire la formule suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

si(N7:N1000="Autres";"OK";"")

en code VBA ?

Merci.

[kiki29]

Salut, à tester et adapter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
private Sub Essai(r As Range)
Dim c As Range
    For Each c In r
        If c.Value = "Autres" Then
            Debug.Print "Ok"
        Else
            Debug.Print "xx"
        End If
    Next c
End Sub
 
Sub Tst()
    Essai Range("N7: N1000")
End Sub

ou alors via FormulaLocal ?

PS : oops, pas vu à temps la réponse d'Hervé

[Theze]

Bonjour,

Tu ne peux appliquer cette formule que sur une seule cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A1").Formula = "=IF(N7=""Autres"",""OK"","""")"

et non :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("A1").Formula = "=IF(N7:N1000=""Autres"",""OK"","""")"

ou alors, il te faut modifier ta formule en utilisant d'autre fonctions.

Hervé.

[gFZT82]

Bonjour,

J’ai interprété ta demande différemment.
Si j’ai bien saisi, tu souhaites vérifier si toutes les cellules de la plage N7 :N1000 contiennent le texte "Autres".
Dans ce cas, la formule s’apparenterait à cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI(N7:N1000;"Autres")=LIGNES(N7:N1000);"OK";"")

Et un code VBA correspondant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub Essai()
Dim c As Range
Dim Test As String
    Test = "OK"
    For Each c In Range("N7:N1000")
        If c.Value <> "Autres" Then
            Test = ""
            Exit For
        End If
    Next c
    Debug.Print Test
End Sub

Cordialement.

[thomasdu40]

Bonjour et merci pour votre aide.

Le problème est résolu.