Discussion :

[SlimG97]

Bonjour à tous,

Je travaille sur un fichier dans lequel on ne doit pas modifier certaines colonnes dans certains cas

Je m'explique,

Colonne 6, on a un statut, "Expédié", "En-cours" Etc
Colonne 19 est renseigné "Localisation si livré"
Colonne 23 est renseigné "Localisation si dans l'en-cours"

J'aimerais que si le statut n'est pas le bon, alors on ne peut pas modifier la colonne concernée.

Exemple, si colonne 6 on a pas "Expédié", alors on ne peut pas remplir (pour la même ligne), la colonne 19
J'avais commencé mais ça ne fonctionne pas :


dans WorkSheet_Change

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim ok as boolean
 
    If Not Intersect(Target, Range("S4:S10000")) Is Nothing Then
        If ok = True Then Exit Sub
        If Cells(Target.Row, 6) <> "Expédié" Then
            MsgBox ("Le statut colonne F n'est pas Expédié, vous ne pouvez donc pas remplir cette colonne")
            Cells(Target.Row, 19) = ""
            Target.Value = Target.Offset(0, -10).Value
            ok = True
        End If
    End If
ok = False
End Sub

Je pense que le problème vient du fait que je ne maîtrise absolument pas l'outil "Target"

En gros le MsgBox s'affiche à l'infini je suis obligé de forcer l'arrêt.

Je ne comprend pas et ça devient lassant...
J'aimerais que si l'on modifie la cellule alors :
1- le MsgBox s'affiche
2- Le contenu est effacé
3- le curseur est renvoyé sur la cellule (ligne target.row, colonne 6)

PS: il ne faut pas que ça s'enclenche à la séléction (ça j'avais réussi à le faire), mais bien à la modification...

Je vous remercie d'avance et j'espère sincèrement que c'est possible et que vous me sauverez...

Cordialement,

[mat955]

Bonjour,

Le problème vient de cette ligne :

Code :

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

Cells(Target.Row, 19) = ""

Cette instruction modifie la valeur d'une cellule, ce qui déclenche l'événement Worksheet_Change.
Etant donné que ton code est lui-même placé dans l'événement Worksheet_Change, il s'appelle à l'infini.

Pour éviter cela, il faut désactiver temporairement les procédure événementielles via l'instruction suivante (à placer en début de procédure) :

Code :

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

Application.EnableEvents = False

Bien sûr, ne pas oublier de remettre à True en fin de procédure.

[SlimG97]

Oh super mat955,

Merci beaucoup pour ta rapidité et pour ta clarté !
Problème résolu donc :)
Bonne journée !