Discussion :

[Naunaud59]

Bonsoir à toutes et à tous,

Encore merci pour votre accueil sur le forum et l'aide apportée sur mon précédent soucis.

Je reviens vers vous avec un tout nouveau problème.

Pour vous situer dans le contexte : Je travaille en comptabilité et je me suis créé un fichier de saisie semi-automatisé (cf. pièces jointes).
Ce fichier fonctionne très bien, j'y ai inséré des formules à chaque cellule et des macros automatiques en colonne A, B, D, E et F qui me permettent de venir me placer dans la bonne cellule à saisir à chaque tabulation. Mais je pense que nous pouvons encore l'améliorer en y insérant des modèles de saisie, en fonction de la valeur de D.
Par exemple : Lorsque je saisi un montant en cellule E1 ou F1 (en fonction de s'il s'agit d'un avoir ou d'une facture) et que la cellule D1 contient "BLEU" alors "lancement de codes qui renseigne les cellules D2 = TVA, E2 = F1/1,2*0,2, D3 = SANDWICH, E3 = F1-E2.

Mon problème est que lorsque mon code modifie les cellules des colonne D, E et F ma macro automatique (If Not Application.Intersect(Target, Range("E2:F1500")) Is Nothing Then) s'éxecute. J'aimerai la désactiver pendant que mon modèle de saisi s’exécute.

J'ai tenté d'utiliser Application.EnableEvents = False / True mais j'obtiens sans cesse des erreurs. Peut être que je ne le place pas au bon endroit.

Je vous ai joins mon fichier pour que vous puissiez visualiser mon problème, je ne pense pas être assez compréhensible dans ce message.

Je vous remercie d'avance pour votre temps.

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
40
41
42
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Application.Intersect(Target, Range("E2:F1500")) Is Nothing Then
 
   Dim ligne As Integer
 
  With ActiveCell
    ligne = .Row
  End With
 
 If Cells(ligne, 12) = 0 Then
 
    Cells(ligne + 1, 1).Select
 
 
Else: Cells(ligne + 1, 4).Select
 End If
 End If
 
If Not Application.Intersect(Target, Range("B2:B1500")) Is Nothing Then
 
With ActiveCell
ligne = .Row
End With
 
Cells(ligne, 4).Select
 
End If
 
If Not Application.Intersect(Target, Range("D2:D1500")) Is Nothing Then
With ActiveCell
ligne = .Row
End With
 
On Error Resume Next
If Cells(ligne, 9) = "401100000" And Not UCase(Left(Cells(ligne, 2), 1)) = "A" Then
Cells(ligne, 6).Select
Else: If Cells(ligne, 12) < 0 Then Cells(ligne, 6).Select
End If
End If
 
End Sub

[jerome.vaussenat]

Salut,

Tu peux momentanément désactiver les événements avec les instructions suivantes :

Code :

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

1
2
3
4
5
6
7
8
Sub pas_d_evenement()
Application.EnableEvents = False
 
'...
 
Application.EnableEvents = True
 
End Sub

Pense bien à les réactiver à la fin de ton code !

En espérant que c'est bien ce que tu veux.

[Naunaud59]

Salut Jérôme, le problème c'est que je ne sais pas où je dois placer ce code pour qu'il fonctionne.

[eriiic]

Bonjour,

avant d'écrire dans une des cellules supervisées : Range("E2:F1500"), Range("B2:B1500") etc
et tu rétablis ensuite.
eric

[Naunaud59]

Bonjour,

Un grand merci !

Mon code fonctionne parfaitement grâce à vos explications et j'ai réussi à comprendre l'utilisation de Application.EnableEvents .

J'ai une nouvelle question à vous soumettre si vous me le permettez? Dans la continuité de mon projet j'obtiens ce code et j'aimerai savoir s'il existe un moyen de l'alléger (puisque je risque d'avoir encore d'autres valeurs à ajouter) :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Application.Intersect(Target, Range("E2:F1500")) Is Nothing Then
 
   Dim ligne As Integer
 
  With ActiveCell
    ligne = .Row
  End With
 
 If Cells(ligne, 4).Value Like "DAUNAT" Then
 
 If Cells(ligne, 12) < 0 Then
 
  Application.EnableEvents = False
 Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
 Cells(ligne + 1, 6).FormulaR1C1 = "=ROUND(R[-1]C[-1]/1.055*0.055,2)"
 Cells(ligne + 2, 4).FormulaR1C1 = "SANDWICH"
 Cells(ligne + 2, 6).FormulaR1C1 = "=R[-2]C[-1]-R[-1]C"
 Application.EnableEvents = True
 Cells(ligne + 3, 1).Select
Else
 Application.EnableEvents = False
 Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
 Cells(ligne + 1, 5).FormulaR1C1 = "=ROUND(R[-1]C[1]/1.055*0.055,2)"
 Cells(ligne + 2, 4).FormulaR1C1 = "SANDWICH"
 Cells(ligne + 2, 5).FormulaR1C1 = "=R[-2]C[1]-R[-1]C"
 Application.EnableEvents = True
 Cells(ligne + 3, 1).Select
End If
 
Else
 
 If Cells(ligne, 4).Value Like "MIKO" Then
 
 If Cells(ligne, 12) < 0 Then
 
  Application.EnableEvents = False
 Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
 Cells(ligne + 1, 6).FormulaR1C1 = "=ROUND(R[-1]C[-1]/1.055*0.055,2)"
 Cells(ligne + 2, 4).FormulaR1C1 = "ICE CREAM"
 Cells(ligne + 2, 6).FormulaR1C1 = "=R[-2]C[-1]-R[-1]C"
 Application.EnableEvents = True
 Cells(ligne + 3, 1).Select
Else
 Application.EnableEvents = False
 Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
 Cells(ligne + 1, 5).FormulaR1C1 = "=ROUND(R[-1]C[1]/1.055*0.055,2)"
 Cells(ligne + 2, 4).FormulaR1C1 = "ICE CREAM"
 Cells(ligne + 2, 5).FormulaR1C1 = "=R[-2]C[1]-R[-1]C"
 Application.EnableEvents = True
 Cells(ligne + 3, 1).Select
End If

Comme vous le constatez il n'y a que deux éléments qui changent dans mon second code : "MIKO" et "ICE CREAM" . Pour regrouper les deux codes je pensais utiliser le code suivant pour la première étape mais je bloque pour que "ICE CREAM" corresponde bien à MIKO uniquement.

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
If Not Application.Intersect(Target, Range("E2:F1500")) Is Nothing Then
 
   Dim ligne As Integer
 
  With ActiveCell
    ligne = .Row
  End With
 
 If Cells(ligne, 4).Value Like "DAUNAT" or If Cells(ligne, 4).Value Like "MIKO" Then
 
 If Cells(ligne, 12) < 0 Then
 
  Application.EnableEvents = False
 Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
 Cells(ligne + 1, 6).FormulaR1C1 = "=ROUND(R[-1]C[-1]/1.055*0.055,2)"
'ici il me faut rajouter "ICE CREAM" pour que si valeur = MIKO alors ICE CREAM et non pas SANDWICH.
 Cells(ligne + 2, 4).FormulaR1C1 = "SANDWICH"
 Cells(ligne + 2, 6).FormulaR1C1 = "=R[-2]C[-1]-R[-1]C"
 Application.EnableEvents = True
 Cells(ligne + 3, 1).Select
Else
 Application.EnableEvents = False
 Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
 Cells(ligne + 1, 5).FormulaR1C1 = "=ROUND(R[-1]C[1]/1.055*0.055,2)"
 Cells(ligne + 2, 4).FormulaR1C1 = "SANDWICH"
 Cells(ligne + 2, 5).FormulaR1C1 = "=R[-2]C[1]-R[-1]C"
 Application.EnableEvents = True
 Cells(ligne + 3, 1).Select
End If

Si vous avez une meilleure solution à me proposer je suis également preneur. Je ne demande qu'à pouvoir m'améliorer.

Je vous remercie d'avance pour votre aide.

Naunaud59

[eriiic]

Bonjour,

Non seulement les écritures entre Daunat et Miko sont très proches, mais également celles selon la valeur de Cells(ligne, 12).
Moyennant l'utilisation de variables supplémentaires tu peux réduire ces 4 écritures en une seule :

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
    Dim ligne As Long, offsetCol As Long, cat As String
    If Not Application.Intersect(Target, Range("E2:F1500")) Is Nothing Then
        ligne = Target.Row
        If Cells(ligne, 12) < 0 Then offsetCol = 1
 
        Select Case Cells(ligne, 4)
        Case "DAUNAT": cat = "SANDWICH"
        Case "MIKO": cat = "ICE CREAM"
        End Select
 
        ' écriture
        Application.EnableEvents = False
        Cells(ligne + 1, 4).FormulaR1C1 = "TVA"
        Cells(ligne + 1, 5 + offsetCol).FormulaR1C1 = "=ROUND(R[-1]C[1]/1.055*0.055,2)"
        Cells(ligne + 2, 4).FormulaR1C1 = cat
        Cells(ligne + 2, 5 + offsetCol).FormulaR1C1 = "=R[-2]C[1]-R[-1]C"
        Application.EnableEvents = True
        Cells(ligne + 3, 1).Select
    End If

Sans tester, j'espère que de petites erreurs ne s'y sont pas glissées...
Déjà note que j'ai passé Dim ligne en As Long. As Integer un peu juste, il ne permet pas d'adresser toutes les lignes.
Ensuite la partie :

Code :

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

1
2
3
4
        Select Case Cells(ligne, 4)
        Case "DAUNAT": cat = "SANDWICH"
        Case "MIKO": cat = "ICE CREAM"
        End Select

peut être écrite en dur comme ici de plusieurs façons.
Mais le mieux dans ce cas est d'écrire une table de correspondance dans une feuille paramètre, le code la récupérant.
Ainsi en cas de modification ou d'extension tu n'as que cette table à reprendre, le code réalisé devant prendre en compte cette éventualité (+/- de lignes, changements des libellés) et n'étant pas à reprendre.

eric