Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macro double click à 2 sorties

macro double click à 2 sorties

2 réponses
Avatar
gilles
bonjour =E0 tous,

Je voudrais que dans les colonnes A C E G...=E7a me mette=20
un X et que dans les colonnesB D F ... =E7a me mette un A=20
( c'est =E0 dire une colonne sur 2

Actuellement j'ai essay=E9 ceci:
- une macro double click plac=E9e dans une feuille
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As=20
Range, Cancel As Boolean)
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value =3D "X"
ElseIf ActiveCell.Value =3D "X" Then ActiveCell.Value=20
=3D ""
End If
Cancel =3D True
End Sub=20

- une macro Private Sub Worksheet_SelectionChange splac=E9e=20
sur la m=EAme feuille
Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)
'=E7a marche avec un simple clic,mais pour effacer,
'il faut changer de cellule et revenir sur celle d'avant
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value =3D "A"
ElseIf ActiveCell.Value =3D "A" Then
ActiveCell.Value =3D ""
End If
Cancel =3D True
End Sub

Les 2 ne marchent pas ensemble car un A est toujours mis=20
avant le X (normal)
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ru-th
Salut

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Target.Column Mod 2 = 0 Then
Target.Value = "X"
Else
Target.Value = "A"
End If
End Sub

a+
rural thierry
"gilles" a écrit dans le message de
news: 2b34201c468cf$30e1f450$
bonjour à tous,

Je voudrais que dans les colonnes A C E G...ça me mette
un X et que dans les colonnesB D F ... ça me mette un A
( c'est à dire une colonne sur 2

Actuellement j'ai essayé ceci:
- une macro double click placée dans une feuille
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

- une macro Private Sub Worksheet_SelectionChange splacée
sur la même feuille
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
'ça marche avec un simple clic,mais pour effacer,
'il faut changer de cellule et revenir sur celle d'avant
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "A"
ElseIf ActiveCell.Value = "A" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub

Les 2 ne marchent pas ensemble car un A est toujours mis
avant le X (normal)
Avatar
gilles
merci pour la rapidité
j'essaie ça et je te tiens au courant
à+
-----Message d'origine-----
Salut

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As
Range, Cancel As

Boolean)
Cancel = True
If Target.Column Mod 2 = 0 Then
Target.Value = "X"
Else
Target.Value = "A"
End If
End Sub

a+
rural thierry
"gilles" a écrit
dans le message de

news: 2b34201c468cf$30e1f450$
bonjour à tous,

Je voudrais que dans les colonnes A C E G...ça me mette
un X et que dans les colonnesB D F ... ça me mette un A
( c'est à dire une colonne sur 2

Actuellement j'ai essayé ceci:
- une macro double click placée dans une feuille
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

- une macro Private Sub Worksheet_SelectionChange splacée
sur la même feuille
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
'ça marche avec un simple clic,mais pour effacer,
'il faut changer de cellule et revenir sur celle d'avant
On Error Resume Next
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "A"
ElseIf ActiveCell.Value = "A" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub

Les 2 ne marchent pas ensemble car un A est toujours mis
avant le X (normal)



.