Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 code click droit

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
bonjour à tous,
j'ai un code sur click droit qui inscrit une valeur dans une cellule (c43)
ca fonctionne mais j'aimerais deux choses
qu'un click droit sur une autre cellule (par exemple f43) ne modifie pas (c43)
que ce code puisse fonctionner sur une autre cellule avec une autre valeur
je ne trouve pas la syntaxe pour faire cela
merci
VB: 
On Error Resume Next
If Range("c43") Is Nothing Then Exit Sub
Cancel = True
If IsEmpty(Range("c43")) Then
Range("c43") = "5"

ElseIf Range("c43") = "5" Then
Range("c43") = ""

Cancel = True
End If
 
Trier par date Trier par votes
Bonjour,
Teste ceci
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
  If Not Application.Intersect(Target, Range("C43")) Is Nothing Then
    Cancel = True
    If IsEmpty(Range("c43")) Then
    Range("c43") = "5"
    ElseIf Range("c43") = "5" Then
    Range("c43") = ""
    End If
  End If
 
  If Not Application.Intersect(Target, Range("F43")) Is Nothing Then
    Cancel = True
    If IsEmpty(Range("F43")) Then
    Range("F43") = "5"
    ElseIf Range("c43") = "5" Then
    Range("F43") = ""
    End If
  End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
re
bonjour
@M12 espérons qu'il en n'ai pas une ribambelle de cellules à gérer

on parle du click droit
donc selon moi un test intersect pour une cellule dans une cellule est inutile
un simple test address suffit
ensuite on peut largement simplifier l'ecriture du code de l'intention
on va faire ça dans un select case
on peut en rajouter autant que l'on veut sans faire pour autant un test intersect et un double if
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)

Case "F43": Cancel = True: Target = String(Abs(Target = ""), "5")

Case "C43": Cancel = True: Target = String(Abs(Target = ""), "5")
'etc...
Case Else: cancel=false:Exit Sub
End Select

End Sub
c'est desuite plus clair là non ?
 
Vote positif 0 Vote négatif
je dirais même que je me suis fourboyé si c'est toujours le chiffre 5

VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)
Case "F43","C43": Cancel = True: Target = String(Abs(Target = ""), "5")
Case Else: Exit Sub
End Select
End Sub
 
Vote positif 0 Vote négatif
Re,
Ou Bien
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
  If Not Application.Intersect(Target, Range("C43")) Is Nothing Then
    Cancel = True
    If IsEmpty(Target.Value) Then Target.Value = "5" Else Target.Value = ""
  ElseIf Not Application.Intersect(Target, Range("F43")) Is Nothing Then
    Cancel = True
    If IsEmpty(Target.Value) Then Target.Value = "5" Else Target.Value = ""
  End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
re
@M12
tu n'a pas compris ma démarche
ton dernier exemple = 2 tests intersect + 4 if en 2 if/else pour 2 cellules
c'est pas faux mais comme je disais si il en a une ribambelle a faire là ça risque d’être un peu too much

avec ma méthode
tu teste le target.count à 1 d'office(si plus d'une cellule sélectionnées bye bye!!)
si c'est une autre que ces deux là bye bye aussi
ssi c'est un des target désirés bingo!!
le tout en une seule ligne

bref autrement dit je remplace ceci
VB: 
 If Not Application.Intersect(Target, Range("C43")) Is Nothing Then
    Cancel = True
    If IsEmpty(Target.Value) Then Target.Value = "5" Else Target.Value = ""
  End If
 
  If Not Application.Intersect(Target, Range("F43")) Is Nothing Then
    Cancel = True
    If IsEmpty(Target.Value) Then Target.Value = "5" Else Target.Value = ""
  End If
par cela
Code: 
Case "F43","C43": Cancel = True: Target = String(Abs(Target = ""), "5")
l'avantage du case c'est que des qu'il a trouvé une correspondence, il sort tandis qu'avec les if /else ils sont tous lu dans l’exécution de la macro
 
Vote positif 0 Vote négatif
Mais chacun à le droit de voir Midi à sa porte NON ?
 
Vote positif 0 Vote négatif
merci de votre aide
je pense que je me suis mal exprimé
pour la cellule (f43) je souhaite mettre une valeur différente de (c43)
(f43) = 14,5
j'ai essayé vos deux codes, aucun ne semblent vouloir fonctionner malheureusement
 
Vote positif 0 Vote négatif
re
et ben tu les resépare et met 14.5 a la place de 5 dans le case "F43"
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)

Case "F43": Cancel = True: Target = String(Abs(Target = ""), "14,5")

Case "C43": Cancel = True: Target = String(Abs(Target = ""), "5")
'etc...
Case Else: cancel=false:Exit Sub
End Select
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
22
Affichages
361
Lu76Fer
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
240
un internaute
U
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
378
Nicolas JACQUIN
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
266
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
107
un internaute
U
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
312
thunder23
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
558
job75
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
110
Francky79
F
N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
247
Nico77
N
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
252
spike29
S
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
157
Lu76Fer
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
110
patricktoulon
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
407
Webperegrino
W
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
503
tnion
T
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
134
sylvanu
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
202
Lu76Fer
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
223
vgendron
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
821
isandre
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…