adapté un code pour mon classeur

Gorfael

XLDnaute Barbatruc

• 30 Septembre 2006

• #2

Re : adapté un code pour mon classeur

pascal21 à dit:

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

Cliquez pour agrandir...

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+

 

Dernière édition: 30 Septembre 2006

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 30 Septembre 2006

• #3

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 😕

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Septembre 2006

• #4

Re : adapté un code pour mon classeur

bonjour et merci

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 30 Septembre 2006

• #5

Re : adapté un code pour mon classeur

re, Salut José,

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

@+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Septembre 2006

• #6

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif