Définir une colonne avec Double-Click

Salut les Kracks,

Je souhaiterai restreindre un double-click (dans Thisworkbook) à une colonne donnée (B).
Auriez-vous une solutions?

Code:

---

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

---

Du genre:

Citation:

---

If Not Intersect(Target, Rows("B:B")) Is Nothing Then

---

Bonjour

ce code n'autorise le double clic que dans la colonne B de toutes les feuilles

Code:

---

1 2 3 4 5 6

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Columns("B")) Is Nothing Then MsgBox "cellule non modifiable" Range("B1").Select End If End Sub

---

Salut zyhack et le forum

Code:

---

1 2 3

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Columns(2)) Is Nothing Then Cancel=True End Sub

---

Une plus "sioux"
A+

Merci à vous!