Discussion :

[andy38]

J'essaie de declarer un Range pour mon double-clic je n'y arrive pas voici le code que j'utilise svp m'indiquer la bonne syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target, Range("H3:H10") Is True Then
    Target.Value = "X" 'on met un X Not
   Target.Offset(0, 1) = ""   'la cellulé décalcé d'un vers la gauche est vidé
ElseIf Target.Range = ("H3:H10") + 1 Then 'si double clique surla colonne suivante
    Target.Value = "X" 'on met un X
   Target.Offset(0, -1) = ""  'la cellulé décalcé de -1 vers la gauche, donc 1 a droite, est vidé
End If
End Sub

Merci a l'avance

[DeaD78]

Salut,

Code :

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

Target.Range("H3:H10") <> "" Then

ou

Code :

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

If Not IsEmpty(Range("H3:H10").Value) Then

Sinon, tu peux faire :

If ... Then
If ... Then
End If

Pas besoin d'Else

Pour Range, F1 est ton ami pour connaître la syntaxe.

Bonne soirée.

[andy38]

J'ai change la ligne par celle que tu propose ce me donne un fenetre "Erreur de compilation" voir le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Range("H3:H10") <> "" Then
    Target.Value = "X" 'on met un X Not
   Target.Offset(0, 1) = ""   'la cellulé décalcé d'un vers la gauche est vidé
ElseIf Target.Range = ("H3:H10") + 1 Then 'si double clique surla colonne suivante
    Target.Value = "X" 'on met un X
   Target.Offset(0, -1) = ""  'la cellulé décalcé de -1 vers la gauche, donc 1 a droite, est vidé
End If
End Sub

Aussi n'est pas compris a propos du Else peut-tu m'eclairer

[Pierre Fauconnier]

Bonjour

Peux-tu expliquer en français ce que tu souhaites réaliser? Ton code n'est pas du tout éclairant à ce sujet.

[andy38]

Bonjour, J’utilise Excel (2003) Je reprends donc mon problème. Dans ma feuille d’Excel je fais des double-clique dans la colonne " E " ce que je voudrais c’est d’avoir 3 Range différent sur la même colonne pour ces type de double-clique.
Exemple 1er Range : (" H4 " : " H9 ") Lorsque je double-clique dans ces cellules je mets un " X " dans ces même cellule soit (" H4 " : " H7 " : " H9 ") lorsqu’activé.
Exemple 2e Range : (" H14 " : " H174 ") Lorsque je double-clique dans ces cellules je mets un " X " dans ces même cellule soit pour fin d’exemple
("G14 " = "OUI " : " H14 ")
("G15 " = "NON " : " H15 ") Lorsque je double-clique dans l’une de ces 2 cellules soit (" H14 " : ou " H15 ") je mets un " X " lorsqu’activé, sauf bémol, 1 seul est autorisé pour chaque choix de OUI ou NON.
Exemple 3e Range : (" H177 " : " H195 ") Lorsque je double-clique dans ces cellules je mets un " X " dans ces même cellule soit (" H177 " : " H179 " : " H181 " jusqu'à " H195 ") lorsqu’activé . J'ai une macro mais elle
ne diffence pas les type de double-clique . Merci pour ton aide

[Pierre Fauconnier]

Rien compris