adapté un code pour mon classeur

[pascal21]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As

Boolean)
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then

ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then

ActiveCell.Value = ""
End If
Cancel = True
End Sub

bonjour
j'aimerais adapté cette formule pour une plage de mon classeur (colonnes W à AA)
comment faire
merci

 

[Gorfael]

Re : adapté un code pour mon classeur

bonjour
j'aimerais adapté cette formule pour une plage de mon classeur (colonnes W à AA)
comment faire
merci

Salut

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
if intersect(target,Columns("W:AA")) is nothing then exit sub
If IsEmpty(ActiveCell.Value) Then

ActiveCell.Value = "X"
ElseIf ActiveCell.Value = "X" Then

ActiveCell.Value = ""
End If
Cancel = True
End Sub

A+

 

[porcinet82]

Re : adapté un code pour mon classeur

Salut Pascal,

C'est bien gentil ton histoire, mais sans info supplémentaire, ca va etre difficile de t'aider. Tu veux travailler sur une ligne précise? Ensuite, le code dis si la cellule active est vide then on met X dans cette cellule, tu veux faire quoi au juste sur ta plage? Si toute la plage est vide alors on met des X ou alors, dans cette plage, toutes les cellules vides recoivent X?

En attendant de plus amples info,

@+

Edition : Salut Gorfael, je vois que je n'ai pas du tout compris la meme chose que toi 😕

 

[pascal21]

Re : adapté un code pour mon classeur

bonjour et merci

 

[porcinet82]

Re : adapté un code pour mon classeur

re, Salut José,

Effectivement... Je vais allé me coucher moi 😀

@+

 

[pascal21]

Re : adapté un code pour mon classeur

bonjour à tous
alors pour Porcinet82 qui ne semble pas bien reveillé lol!!!
ce code met un "x" sur un double/clic dans la cellule selectionnée

BeforeDoubleClick

un double/clic supplémentaire enlève ce "x"
ce code n'est pas de moi ,je l'ai emprunté sur un autre site excel bien connu
je remplace "x" par "1" et je gagne du temps lors de la saisie de certaines cellules
ça fonctionne aussi avec "porcinet" ou tout autre animal de la série