Discussion :

[andy38]

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 :

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

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

[casefayere]

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

bonne journée

[andy38]

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 :

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

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

[laetitia]

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 :

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

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