Discussion :

[OBADJ]

Bonjour,

Je voudrais coder sur VBA cette formule :

Si(ET(Q2="";OU(H2="001121";H2="002160"; H2="001170");ABS(R2<15000);"PAS DE DECOMPTE";"DECOMPTE A EMETTRE")).

Voici mon codage mais ça ne fonctionne pas :

Code :

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

1
2
3
4
 If .Cells(j, "Q") = "" And somme < 15000 Or .Cells(j, "H").Value = "002160" Or .Cells(j, "H").Value = "001170" Or .Cells(j, "H").Value = "001121" Then 
.Cells(j, "M") = "PAS DE DECOMPTE" Else .Cells(j, "M") = "DECOMPTE A EMETTRE"
 
End If

Pouvez vous me corrigé sur mon codage svp.

Merci

[Tylert]

Il manque les parenthèses autour des or et un or doit devenir un and.

Code :

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

1
2
3
4
If .Cells(j, "Q") = "" And somme < 15000 and (.Cells(j, "H").Value = "002160" Or .Cells(j, "H").Value = "001170" Or .Cells(j, "H").Value = "001121") Then 
.Cells(j, "M") = "PAS DE DECOMPTE" Else .Cells(j, "M") = "DECOMPTE A EMETTRE"
 
End If

[OBADJ]

Merci beaucoup Tylert !

Après modification ca m'affiche un message d'erreur : " Erreur de compilation : End If sans bloc If"

Voici le code en entier :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Test()
 
With Sheets("SUIVTRANS EN COURS")
derligne = .Range("A" & Rows.Count).End(xlUp).Row
 
For j = 2 To derligne
 
 somme = 0
        codeP = .Cells(j, "H")
        For i = LBound(Tablo, 1) To UBound(Tablo, 1)
            If .Cells(j, "J") = Tablo(i, 1) Then
                If .Cells(i + 1, "H") <> codeP Then
                    GoTo pasDeCommentaire
                Else
                    somme = somme + CDbl(Tablo(i, 2))
                End If
            End If
'ANNULATION TECHNIQUE (5)
 
         ' If Mid(.Cells(j, "F").Text, 5, 1) = "A" And Mid(.Cells(j, "F").Text, 1, 1) = "S" Then .Cells(j, "M").Value = "ANNULATION TECHNIQUE" Else .Cells(j, "M").Value = ""
   ' End If
 
        If .Cells(j, "Q") = "" And somme < 15000 And (.Cells(j, "H").Value = "002160" Or .Cells(j, "H").Value = "001170" Or .Cells(j, "H").Value = "001121") Then .Cells(j, "M") = "PAS DE DECOMPTE" Else .Cells(j, "M") = "DECOMPTE A EMETTRE"
        End If
        Next j
 
End With
pasDeCommentaire:
End Sub

[OBADJ]

C'est bon, j'ai résolu le problème !

Merci de ton aide pour le codage !

[OBADJ]

Bonjour,

Je ne comprends pas pourquoi ma formule ne fonctionne pas en VBA :

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
17
 Sub SuiteMACROSIAFinal()
 
 
'PAS DE DECOMPTE OU DECOMPTE A EMETTRE(6)
'(Autre formule sans enregistrement mais fonctionne pas(6))
 
With Sheets("SUIVTRANS EN COURS")
 For j = 2 To Derligne
 
        If .Cells(j,"N")= "" And Cells(j, "Q") = "" And Cells(j, "R") < 15000 And Cells(j, "H").Value = "002160" Or Cells(j, "H").Value = "001170" Or Cells(j, "H").Value = "001121") Then
        Cells(j, "M") = "PAS DE DECOMPTE"
        Else: Cells(j, "M") = "DECOMPTE A EMETTRE"
        End If
        End With
        Next j
 
End Sub

Il s'agit de cette formule si que je veux mettre en VBA :

Code :

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

=SI(ET(N7="";Q7="";OU(H7="001121";H7="001170";H7="002160");ABS(R7)<15000);"PAS DE DECOMPTE";"DECOMPTE A EMETTRE")

Merci !!

[Menhir]

C'est normal que certaines Cells soient reliées au With et d'autres non ?