Probleme avec Target.range

Salut a tous, Est-ce possible de définir 3 Target.Range dans une meme colonne pour des différents double-clic
j'aimerais avoir seulement que 3 parties spécifique de la colonne "E" si oui comment. voir code

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 5 Then Exit Sub 'si la colonne de la cellule est différente de E, on sort Cancel = True

---

exemple 1 range = E5 a E15
2 range = E18 a E96
3 range = E100 a E122
Merci a l'avance

Bonjour Andy, le forum,
tu gardes le meme prinicipe avec target.row

bonne journée

Merci pour ta reponse casefayere, je n,y arrive pas dans ma feuille j'ai un colonne ou je fait des double-clic sur des choix de reponses "OUI ou NON" donc j'utilise 2 cells superposées aussi je doit utilisé des cells pour indquer des différnts types donc 1 seul cell est necessaire et tout cela sur la meme colonne voila pq le besoin de différent range je te met un bout de code pourait-tu me mettre un ex.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 8 Then Exit Sub 'si la colonne de la cellule est différente de E, on sort Cancel = True 'annule "l'action" du double-clic If UCase(Target.Offset(0, -1)) = "OUI" Then ' la cellule à droite = "OUI" (ou "oui"), alors Target.ClearContents Target.Value = "X" 'le contenu de la cellule est effacé Target.Offset(1, 0).ClearContents 'le contenu de la cellule deux lignes en-dessous est effacé Else 'sinon Target.ClearContents Target.Value = "X" 'le contenu de la cellule est effacé Target.Offset(-1, 0).ClearContents 'le contenu de la cellule deux lignes au-dessus est effacé End If End Sub

---

Merci

bonjour andy l ami casefayere le forum comme j ' ai compris
ton else fait la meme chose ??? si target =non tu fais quoi ??
une approche solution a adapter

Code:

---

1 2 3 4 5 6 7 8

Option Explicit Option Compare Text Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("e5:e15, e18:e96, e100, e122")) Is Nothing Then If Target.Offset(0, -1) = "OUI" Then Target.Value = "X": Target.Offset(2, 0).ClearContents End If: End If End Sub

---