erreur macro

Le
gilles
bonjour tous,
j'ai utilis la macro ci dessous trouve sur excelabo
(super site)
elle ne fonctionne pas car une boite indique:
attendu: nom type
kesaco ?

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

quelqu'un saurait-il d'ou vient le bug?
MERCI
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #1340255
bonjour Gilles,

s'il y a des lignes de couleur rouge dans la macro, c'est que le retour
à la ligne pour une commande c'est mal fait au recopiage.

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

isabelle


bonjour à tous,
j'ai utilisé la macro ci dessous trouvée sur excelabo
(super site)
elle ne fonctionne pas car une boite indique:
attendu: nom type
kesaco ?

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

quelqu'un saurait-il d'ou vient le bug?
MERCI


Nicolas B.
Le #1340254
Salut gilles,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range,Cancel As

Boolean)

Ces trois lignes ne doivent en fait en former qu'une seule. C'est du à ce
qu'en postant sur les newsgroups, les lignes sont automatiquement coupées.

Mais tu peux aussi l'écrire sur plusieurs lignes en séparant par " _" pour
indiquer que la ligne n'est pas terminée :
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)


A+
--
Nicolas B.


bonjour à tous,
j'ai utilisé la macro ci dessous trouvée sur excelabo
(super site)
elle ne fonctionne pas car une boite indique:
attendu: nom type
kesaco ?

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

quelqu'un saurait-il d'ou vient le bug?
MERCI


gilles
Le #1340097
merci à isabelle et nicolas


Publicité
Poster une réponse
Anonyme