Discussion :

[frstov]

Dans une feuille de calcul, la modification d’une cellule déclenche une macro automatique Private sub Worksheet_Change qui doit modifier la valeur d’ autres cellules de la même feuille. Problème : ça boucle et tourne en rond.
Merci de votre aide.

[ARTURO83]

Bonjour,

Essayez ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Sortie
    Application.EnableEvents = False
 
    '*********************************************
 
    '     METTEZ VOTRE CODE ICI
 
    '*********************************************
 
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

[frstov]

Bonsoir,
Parfait... ça marche impeccable.
Merci beaucoup, bonne soirée.

[Steph_L]

Bonjour.

Tout d'abord, pouvez-vous m'indiquer si poster dans un topic résolu est une bonne pratique si le sujet est identique ?


Je souhaiterai que vous confirmiez ou non mon analyse du problème rencontré.
J'ai un tableau colonnes paires des dates, colonnes impaires les dates s'inscrivent majorées d'un périodicité.

Lorsque j'utilise "worksheet_selectionchange" cela fonctionne très bien.
Sauf, que la macro se déclenche par une simple sélection d'une cellule (d'où son nom).

Mais lorsque j'utilise "worksheet_change", je perds l'accès au fichier (avantage, excel se ferme tout seul )


Bon, je poste la macro (partielle seulement pour les 2 premières colonnes)
ne soyez pas trop dur, svp

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
 
   Option Explicit
    Option Compare Text
 
'Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Application.ScreenUpdating = False
'-------------------------------------------------------------------------------------------------
'DEFINTION DES VARIABLES GÉNÉRALES
    Dim prem_lig As Integer, expi_lig As Integer, der_lig As Integer, der_col As Integer
    prem_lig = 4
    expi_lig = 2
'    der_lig = 32
    der_lig = Range("A" & Rows.Count).End(xlUp).Row
    der_col = Cells(1, Columns.Count).End(xlToLeft).Column
'-------------------------------------------------------------------------------------------------
'DÉFINITION DES VALEURS SPÉCIFIQUES
    Dim col_e As Range, col_f As Range, col_g As Range, col_h As Range, col_j As Range, col_k As Range
    Set col_e = Range(Cells(prem_lig, 5), Cells(der_lig, 5))
 
    Dim exp_f As Integer, exp_h As Integer, exp_k As Integer
    exp_f = Cells(expi_lig, 6)
'-------------------------------------------------------------------------------------------------
'ColonneF()
    For Each col_f In col_e
            col_f.Offset(0, 1).ClearContents
        If IsDate(col_f.Value) Then
            col_f.Offset(0, 1).Formula = DateAdd("m", exp_f, col_f)
            If col_f.Offset(0, 1).Value < Date Then
                col_f.Offset(0, 1).Font.Color = RGB(192, 0, 0)
                Else
            End If
        Else
            If IsEmpty(col_f.Value) Then
            col_f.Interior.Color = RGB(255, 255, 255)
            Else
            col_f.Offset(0, 1).Value = col_f.Offset(0, 0).Value
           End If
        End If
    Next col_f
'-------------------------------------------------------------------------------------------------
   Debug.Print der_lig
   Debug.Print "mise à jour effectuée"
'-------------------------------------------------------------------------------------------------
End Sub

Donc, est ce que le fait d'effacer la cellule et ainsi de forcer le "re-calcul" provoque ce dysfonctionnement ?

ps: l'utilisation de "Range("A" & Rows.Count).End(xlUp).Row" provoque aussi un dysfonctionnement avec "change" mais pas avec "selectionchange".

Merci à vous par avance.
Steph

[Nain porte koi]

Bonjour.

Tout d'abord, pouvez-vous m'indiquer si poster dans un topic résolu est une bonne pratique si le sujet est identique ?

Bien que ressemblant il vaut mieux que vous créiez votre propre sujet car la solution n'est pas forcément la même

[Steph_L]

C'est noté.

Merci à vous.
Steph