[VBA-E] Utilisation d'un tableau en réseau (multi-utilisateurs)

Citation:

---

Envoyé par choucks

Donc pour atteindre une procédure d'un module hors du dit-module il ne faut pas Private devant Sub.

---

Choucks,
En elevant juste Private, je ne peux exécuter la macro puisq cette fonction semble prendre des paramètres...

Code:

---

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

Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim Plage() Plage = Array("$C$14", "$D$13", "$E$12", "$F$11", "$G$15", "$F$19") 'cellules interdites For i = 0 To UBound(Plage) If Target.Address = Plage(i) Then Cells(Target.Row + 1, Target.Column).Select Exit For End If Next End Sub

---

Merci encore pr votre aide à tous. :)

Code:

---

Comment puis-je appeler la colonne ss procéder cellule après cellule ?

---

Teste ça, tu vas comprendre ce que fait ta boucle

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() Dim Plage As Range Dim col As Range Set Plage = Union(Columns(2), Columns(3), Columns(6)) MsgBox Plage.Address For Each col In Plage MsgBox col.Address MsgBox col.Column Next End Sub

---

Et ensuite, teste ça

Code:

---

1 2 3 4 5 6 7 8

Sub Test() Dim Plage Plage = Array(Columns(2).Address, Columns(3).Address, Columns(6).Address) For i = 1 To UBound(Plage) MsgBox Columns(Plage(i)).Address Columns(Plage(i)).Hidden = True Next End Sub

---

Il existe certainement une autre manière de l'écrire ;)
A+

Edit
J'ai corrigé une énormité dans le deuxième test :oops: Là, c'est ok.

Citation:

---

Envoyé par Mourne

Choucks,
En elevant juste Private, je ne peux exécuter la macro puisq cette fonction semble prendre des paramètres...

Code:

---

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

Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim Plage() Plage = Array("$C$14", "$D$13", "$E$12", "$F$11", "$G$15", "$F$19") 'cellules interdites For i = 0 To UBound(Plage) If Target.Address = Plage(i) Then Cells(Target.Row + 1, Target.Column).Select Exit For End If Next End Sub

---

Merci encore pr votre aide à tous. :)

---

Cette marco ne doit pas se situer dans un module standard, elle doit être placée dans le module de la feuille dans laquelle tu souhaites protéger tes cellules. Désolé de ne pas avoir précisé cela :oops: tu peux remettre Private si tu veux après l'avoir placée dans le bon module.

Je te conseille de lire le cours de J-M Rabilloud : Programmer efficacement avec Excel en VBA

ftp://ftp2.developpez.be/developps/vb/VB-excel2.pdf

Pour les événements de l'objet Worksheet voir page 11. Mais tout le reste t'aidera également ;)

Citation:

---

Envoyé par choucks

Cette marco ne doit pas se situer dans un module standard, elle doit être placée dans le module de la feuille dans laquelle tu souhaites protéger tes cellules. Désolé de ne pas avoir précisé cela

---

Toi non, moi si si, ici :lol: