VBA Evènement "Worksheet_Change"

Bonjour à tous,


je débute en VBA, et j'aimerais utiliser une macro "Worksheet_Change" s'activant lorsque je quitte une certaine cellule. J'ai réussi à faire celà pour des cellules "fixes" ;

cependant, après une intéraction avec l'utilisateur, je voudrais insérer des lignes sur lesquelles je veux ensuite appliquer ma macro.

Je suis bloqué ici :
Est-il possible de contrôler le moment et le lieu de l'activation de cette macro ?

Je ne sais pas si je suis assez clair, je peux donner des précisions si besoin.

Cordialement,

Rémi

Bonjour
le paramètre Target permet de te donner la plage de cellules modifiée

Exemple

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("A1:C100")) Is Nothing Then MsgBox "Changement dans plage A1:C100" End Sub

---

Soit, mais si jamais une intéraction avec un utilisateur insère une nouvelle ligne, admettons la ligne 101, je suis obligé de revenir trifouiller mon code pour que la macro affecte cette dernière ?

Merci d'avance

Si à chaque changement dans la feuille, tu devrai changer ton code, ça ne sera plus un code mais un casse tête.8O
Explique clairement ce que tu cherches à faire.

Ma première réponse était pour expliquer la paramètre Target.

on est d'accord !

Voici mon projet :

Je propose à l'utilisateur d'ajouter autant de lignes qu'il le désire. Le nombre de lignes peut donc varier.
Pour chacune de ces lignes, il n'aura le droit que de modifier qu'une seule cellule, et c'est là que ma macro "Worksheet_Change" intervient :

s'il modifie une cellule, je verrouille toutes les autres sur la même ligne.

Comment, à chaque nouvelle ligne créée, indiquer que la macro doit s'occuper de cette dernière ?

Bonjour.

Juste une idée :

• tu protèges la feuille
• quand tu crées une nouvelle ligne, tu déverrouilles les cellules de cette ligne
• Quand une cellule est mise à jour (c'est là qu'intervient la procédure évènementielle Worksheet_Change et que tu devras utiliser l'argument Target), tu verrouilles toute la ligne.

Cordialement,

PGZ

C'est exactement ce que je veux faire !

Je pense que je n'ai pas encore compris comment bien exploiter la procédure évènementielle Worksheet_Change...

Voici mon code, appliqué aux quelques cellules D6:L6.
J'aimerais pouvoir l'appliquer, si besoin est, à D7:L7, D8:L8, etc...

Je pense que je ne sais pas bien me servir de Target.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range)   Application.EnableEvents = False If Not Application.Intersect(Target, Range("D6:L6")) Is Nothing Then Call Replace0(Target) 'C'est une proc qui remplace les '0' par du vide If (Not IsEmpty(Target)) Then Range("D6:L6").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.Locked = True Else MsgBox "Aucun changement" End If End If Application.EnableEvents = True End Sub

---

Encore merci

Bonsoir.

Au préalable, il est uitle de protéger la feuille par code, ce qui permet de préciser qu'on ne veut pas que cette protection s'applique aux procédures VBA.

Code:

---

1 2 3

Sub subVerouilleFeuille1() ThisWorkbook.Worksheets(1).Protect "RH", , , , True End Sub

---

A exécuter une fois et c'est bon.

Ensuite, l'idée est de verrouiller la ligne dès qu'une cellule entre D et L est renseignée. J'ai ajouté : si une cellule renseignée est effacée, on déverrouille toute la ligne. Pour cela il faut aussi éviter de verrouiller la cellule renseignée : donc quand on parle de verrouiller une ligne, c'est toute les cellules sauf celle qui vient d'être renseignée.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range)   'si la cellule modifiée est en dehors des col D-L, on n'a rien à faire If (Target.Column < 4) Or (Target.Column > 12) Then Exit Sub   If Target.Value = "" Then 'on a effacé une cellule : on déverrouille la ligne Me.Range("D" & Target.Row & ":L" & Target.Row).Locked = False Else 'on a renseigné une cellule : on verrouille la ligne Me.Range("D" & Target.Row & ":L" & Target.Row).Locked = True Target.Locked = False End If   End Sub

---

Ca fonctionne sur toutes les lignes.

Cordialement,

PGZ

Bonjour,

merci pour la clarté et la rapidité de vos réponses ! Je m'apprête à essayer le code que vous m'avez indiqué, mais je sens d'avance que c'est ce que je voulais faire.

Edit : Pour verrouiller les cellules, vous utilisez la méthode Protect, n'est pas plutôt Lock dont-il faudrait se servir ?
J'utiliserai Protect seulement à la fin de mon travail je pense.

Edit 2 : en fait je viens de comprendre !

Encore merci !

Bonjour,
je revient sur cette discussion après 8 ans mais j'ai du mal à exploiter le Worksheet Change.. en faite je veux que lorsque je change le contenu d'une cellule dans la colonne D la celulle face à elle dans la colonne C change (je vais importer le changement d'une autre feuille) et si je change la cellule de la colonne C la cellule face à elle dans la colonne D change. exemple:
cellule D5="Max" alors cellule C5=2 / si j'ai mis C5=2 d'abord la cellule D5 devient = "Max"
le problème c'est ça entre dans un boucle infini vu que si je change D5 alors C5 change donc le code entre dans le boucle de changement de C5 et ça roule comme ça

comment je peux faire dans ce cas ??

Citation:

---

Envoyé par maynou24

Bonjour,
je revient sur cette discussion après 8 ans mais j'ai du mal à exploiter le Worksheet Change.. en faite je veux que lorsque je change le contenu d'une cellule dans la colonne D la celulle face à elle dans la colonne C change (je vais importer le changement d'une autre feuille) et si je change la cellule de la colonne C la cellule face à elle dans la colonne D change. exemple:
cellule D5="Max" alors cellule C5=2 / si j'ai mis C5=2 d'abord la cellule D5 devient = "Max"
le problème c'est ça entre dans un boucle infini vu que si je change D5 alors C5 change donc le code entre dans le boucle de changement de C5 et ça roule comme ça

comment je peux faire dans ce cas ??

---

En désactivant les évènements pendant le traitement :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ' ' Traitement ' Application.EnableEvents = True End Sub

---