Formule SI/ET/OU en VBA

**OBADJ** · 27/12/2018, 15h41

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** · 27/12/2018, 15h46

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** · 27/12/2018, 15h56

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** · 27/12/2018, 16h07

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

Merci de ton aide pour le codage !

**OBADJ** · 09/01/2019, 13h36

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** · 09/01/2019, 14h09

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

**OBADJ** · 09/01/2019, 14h14

Envoyé par Menhir

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

Voila j'ai modifier avec mon with mais sa fonctionne toujours pas :

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

**OBADJ** · 09/01/2019, 14h16

Envoyé par Menhir

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

Menhir peux-tu me coder cette formules sur VBA stp parce que j'y arrive pas avec les "ET" "OU"....

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")

MERCIII C'EST TRES IMPORTANT :/

**MarcelG** · 09/01/2019, 14h24

Bonjour,

Menhir peux-tu me coder cette formules sur VBA

Si je peux me mermettre, Menhir, la réponse serait "Non". Le Forum n'a pas cette finalité.

Voila j'ai modifier avec mon with mais sa fonctionne toujours pas :

Non. Certains objets Cells ne sont pas attachés.

Pour ma part, il manque une parenthèse.
En termes de parenthèse, il faut respecter la même distribution que celle sur tableur..

Pour alléger le code, j'utiliserais plutôt la méthode Select Case.

**Menhir** · 09/01/2019, 14h26

Envoyé par OBADJ

Voila j'ai modifier avec mon with mais sa fonctionne toujours pas :

Des structures qui s'entrecroisent !!! Un With à l'extérieur de la boucle For avec le Ens With à l'intérieur !!!

Un peu de rigueur dans tes structure.

Et ton code a toujours la même bizarrerie donc je repose la question : Est-ce normal que certaines Cells soient reliées au With et d'autres pas ?

**OBADJ** · 09/01/2019, 14h38

Envoyé par Menhir

Des structures qui s'entrecroisent !!! Un With à l'extérieur de la boucle For avec le Ens With à l'intérieur !!!

Un peu de rigueur dans tes structure.

Et ton code a toujours la même bizarrerie donc je repose la question : Est-ce normal que certaines Cells soient reliées au With et d'autres pas ?

Bha non il faut que tous les cells soit reliée au With, selon moi...

Quelles sont les modifications à faire stp.

Merci par avance

**Theze** · 09/01/2019, 14h58

Bonjour,

A tester :

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
30
 
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, 14).Value = "" And _
                .Cells(j, 17).Value = "" And _
                .Cells(j, 18).Value < 15000 And _
                .Cells(j, 8).Value = "002160" Or _
                .Cells(j, 8).Value = "001170" Or _
                .Cells(j, 8).Value = "001121" Then
 
                .Cells(j, 13).Value = "PAS DE DECOMPTE"
 
            Else
 
                .Cells(j, 13).Value = "DECOMPTE A EMETTRE"
 
            End If
 
        Next j
 
    End With
 
End Sub

Attention quand tu imbriques, c'est With quelque chose puis For compteur...Next Compteur et End With et pas With quelque chose puis For compteur... End With et Next Compteur !

**OBADJ** · 09/01/2019, 15h18

Envoyé par Theze

Bonjour,
A tester :

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
30
 
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, 14).Value = "" And _
                .Cells(j, 17).Value = "" And _
                .Cells(j, 18).Value < 15000 And _
                .Cells(j, 8).Value = "002160" Or _
                .Cells(j, 8).Value = "001170" Or _
                .Cells(j, 8).Value = "001121" Then
 
                .Cells(j, 13).Value = "PAS DE DECOMPTE"
 
            Else
 
                .Cells(j, 13).Value = "DECOMPTE A EMETTRE"
 
            End If
 
        Next j
 
    End With
 
End Sub

Attention quand tu imbriques, c'est With quelque chose puis For compteur...Next Compteur et End With et pas With quelque chose puis For compteur... End With et Next Compteur !

Bonjour,

Il y a une incompatibilité de type 13 à ce niveau :

Code :

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

1
2
3
4
5
6
If .Cells(j, 14).Value = "" And _
                .Cells(j, 17).Value = "" And _
                .Cells(j, 18).Value < 15000 And _
                .Cells(j, 8).Value = "002160" Or _
                .Cells(j, 8).Value = "001170" Or _
                .Cells(j, 8).Value = "001121" Then

**Theze** · 09/01/2019, 15h27

là, je ne peux pas t'aider, les tests que j'ai fais fonctionne par rapport à ton code, à toi de voir les valeurs que tu as chez toi !

**Menhir** · 09/01/2019, 16h53

Envoyé par OBADJ

Bha non il faut que tous les cells soit reliée au With, selon moi...
Quelles sont les modifications à faire stp.

Mettre un "." devant chaque Cells.

**OBADJ** · 10/01/2019, 16h23

Envoyé par Menhir

Mettre un "." devant chaque Cells.

J'ai modifier et ca ne marche toujours pas !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("SUIVTRANS EN COURS")
 For j = 2 To Derligne
 
       If .Cells(j, 14) = "" And .Cells(j, 17).NumberFormat <> "dd mm yyyy" And Abs(.Cells(j, 18) < 15000) And (.Cells(j, 9).Value = "002160" Or .Cells(j, 9).Value = "001170" Or .Cells(j, 9).Value = "001121") Then
        .Cells(j, 13) = "PAS DE DECOMPTE"
        Else: .Cells(j, 13) = "DECOMPTE A EMETTRE"
        End If
        Next j
 
        End With
 
End Sub

**Menhir** · 10/01/2019, 16h32

Envoyé par OBADJ

J'ai modifier et ca ne marche toujours pas !

Si tu ne fais pas un peu plus d'efforts pour expliquer tes dysfonctionnements, ça ne va pas aller loin...

**BENNASR** · 10/01/2019, 16h38

bonsoir
test avec 10 lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
With Sheets("SUIVTRANS EN COURS")
 For j = 2 To 10
       If .Cells(j, 14) = "" And Not .Cells(j, 17).NumberFormat = "dd mm yyyy" And Abs(Cells(j, 18) < 15000) And (.Cells(j, 9).Value = "002160" Or .Cells(j, 9).Value = "001170" Or .Cells(j, 9).Value = "001121") Then
        .Cells(j, 13) = "PAS DE DECOMPTE"
        Else: Cells(j, 13) = "DECOMPTE A EMETTRE"
        End If
        Next j
        End With
End Sub

**OBADJ** · 10/01/2019, 16h50

Salut BENNASAR !

Ça ne fonctionne pas et il n'y pas de message d'erreur...

**BENNASR** · 10/01/2019, 16h50

joindre un fichier de 10 lignes sans macro

Formule SI/ET/OU en VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager