Discussion :

[OBADJ]

Bonjour je ne comprends pas pourquoi ma macro bloque a cette ligne en jaune ...

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
31
32
33
34
35
36
37
38
39
With Sheets("SUIVTRANS EN COURS")
    Derligne = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 3 To Derligne
    
    'ANNULATION TECHNIQUE (5)
      If Mid(.Cells(j, "6").Text, 5, 1) = "A" And Mid(.Cells(j, "6").Text, 1, 1) = "S" Then
        .Cells(j, "13").Value = "ANNULATION TECHNIQUE" And .Cells(j, "12").Value = "ANNULATION TECHNIQUE"
       
        'REGULARISATION ECART-TEMPLATE (2)
       
        ElseIf .Cells(j, 18) >= -10 And .Cells(j, 18) <= 10 And .Cells(j, 18) <> 0 Then
         .Cells(j, 13).Value = "REGULARISATION ECART-TEMPLATE"
            
        'SOLDE CREDITEUR - A REMBOURSER (3)
      
        ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) < -10 Then
            .Cells(j, 13).Value = "REGLT CIE - SOLDE CREDITEUR"
            
        ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) < -10 And .Cells(j, 12) = "RECOURS MATERIEL" Or .Cells(j, 12) = "RECOURS CORPOREL" Or .Cells(j, 12) = "RECOURS RC" Then
            .Cells(j, 13).Value = "SOLDE CREDITEUR - RECOURS"
            
        ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) And .Cells(j, 12) <> "RECOURS MATERIEL" Or .Cells(j, 12) <> "RECOURS CORPOREL" Or .Cells(j, 12) <> "RECOURS RC" Then
            .Cells(j, 13).Value = "SOLDE CREDITEUR - A REVOIR"
        
        
        
        'REGLT CIE - SOLDE DEBITEUR (4)
      
         ElseIf .Cells(j, 9) = "REGLT" And .Cells(j, 18) > 10 Then
            .Cells(j, 13) = "REGLT CIE - SOLDE DEBITEUR"
            
       
        
      End If

    Next j
        
End With
End sub

[a_diard]

Bonjour

peut être.

Code :

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

 If Mid(.Cells(j, 6), 5, 1) = "A" And Mid(.Cells(j, 6), 1, 1) = "S" Then

[OBADJ]

AHAHAHA je suis vraiment fatigué j'ai mis les parenthèses alors que j'ai même pas mis la lettre de la colonne c'est ca qui bloque !

Merci beaucoup

[OBADJ]

Bonjour

peut être.

Code :

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

 If Mid(.Cells(j, 6), 5, 1) = "A" And Mid(.Cells(j, 6), 1, 1) = "S" Then

Par compte ca bloque après maintenant au niveau de la ligne : Then

Code :

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

.Cells(j, 13).Value = "ANNULATION TECHNIQUE" And .Cells(j, 12).Value = "ANNULATION TECHNIQUE"

[mercatog]

Code :

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

1
2
3
.....Then
        .Cells(j, 12).resize(,2).Value = "ANNULATION TECHNIQUE"
        else if ....