XL 2016 [VBA] Comment imbriquer ces 2 subs

S

shanon7

XLDnaute Junior

• 12 Février 2021

• #2

* end if dans ma 1ère écriture avant end sub

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Février 2021

• #3

Bonjour Shanon,

je te propose ce code VBA :

VB:

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Dim cf&: Cancel = True
  With Target
    If .CountLarge > 1 Then Exit Sub
    If IsEmpty(.Value) Then cf = RGB(255, 0, 0) Else cf = RGB(0, 0, 255)
    .Interior.Color = cf
  End With
End Sub

à toi d'essayer.

soan

 

Vote positif 0 Vote négatif

S

shanon7

XLDnaute Junior

• 12 Février 2021

• #4

Bonjour,

Merci pour votre réponse

Toutefois avec ce morceau de code la cellule se colorie en rouge seulement quand je double click sur une cellule vide. Comment faire pour qu'elle se colorie en rouge au bout d'un seul click, juste parce qu'elle est vide? (et en revanche les cellules non vides doivent être bleues au double click). C'est à dire que la première partie du code ne dépend pas de l'évènement, tandis que la seconde partie en dépend, c'est ça que je ne parviens pas à réaliser.

 

Vote positif 0 Vote négatif

S

shanon7

XLDnaute Junior

• 12 Février 2021

• #5

aussi, que désigne "cf" ? merci!

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Février 2021

• #6

cf est une variable ; je l'ai appelée ainsi pour couleur fond ; si ça avait été la couleur du texte, je l'aurais appelée ct ; mais bien sûr on peut appeler les variables comme on veut, à ces 2 conditions : ne pas utiliser un keyword (mot-clé) de VBA et respecter la syntaxe pour les noms de variables ; car certains caractères sont interdits, comme par exemple « / », « \ », ou « : ».
​

---

nouveau code VBA, qui n'a pas besoin de la variable cf :
​

VB:

Option Explicit

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  With Target
    If .CountLarge = 1 And IsEmpty(.Value) Then .Interior.Color = RGB(255, 0, 0)
  End With
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
  With Target
    If .CountLarge = 1 And Not IsEmpty(.Value) Then .Interior.Color = RGB(0, 0, 255)
  End With
End Sub

il n'y a pas d'événement sur le clic gauche ; j'ai donc fait sur le clic droit ; clic droit sur une cellule vide : en rouge ; double-clic sur une cellule non vide : en bleu.

soan​

 

Vote positif 0 Vote négatif

S

shanon7

XLDnaute Junior

• 12 Février 2021

• #7

Re bonjour,

D'accord merci je vais essayer de travailler sur ce que vous m'avez envoyé pour bien comprendre

 

Vote positif 0 Vote négatif

S

shanon7

XLDnaute Junior

• 12 Février 2021

• #8

Ah oui jai une question svp, à quoi correspond
Option Explicit ?

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Février 2021

• #9

Option Explicit oblige le programmeur a déclarer explicitement toutes les variables utilisées dans le code VBA ; ça semble être un inconvénient, car ça oblige à plus de rigueur, mais en fait, c'est un gros avantage car ça permet d'éviter des erreurs de variables ; par exemple, si une variable est mal orthographiée par inadvertance, la compilation butera dessus, et le programmeur en sera averti ; sans Option Explicit, ça aurait créé une nouvelle variable avec des conséquences aléatoires ; de plus, il y a une vérification des types de variables, donc certaines erreurs d'incompatibilité de type peuvent être détectées ; plus d'infos détaillées sur ce post ; clique sur le lien bleu, puis lis à partir de la 2ème ligne continue (en dessous).

soan​

 

Dernière édition: 12 Février 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2021

• #10

Bonsoir le fil

[En passant]

[A titre illustratif]​

[Et pour la satisfaction des vbaistes curieux]​

Code:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 1 Then Exit Sub
T.Interior.Color = Switch(Len(T) > 0, vbBlue, Len(T) = 0, vbRed)
End Sub

[/En passant]​

[/A titre illustratif]​

[/Et pour la satisfaction des vbaistes curieux]

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Février 2021

• #11

Bonsoir Staple,

j'ai l'impression que tu as zappé ce post ! shanon7 tient à 2 subs : une sub pour mettre du rouge sur une cellule vide par clic droit (au début, elle avait demandé par simple clic, mais y'a pas d'événement pour clic gauche) ; une sub pour mettre du bleu sur une cellule non vide par double-clic ; je suis bien persuadé que ta sub marche correctement, mais désolé : elle me semble incompatible avec la demande initiale. (sans vouloir te décevoir ; mébon, ça servira pour la satisfaction des lecteurs vbaistes curieux)​

soan

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Février 2021

• #12

=>Staple

ajout : pourquoi utiliser Switch() alors que IIf() suffit ?

VB:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
  If T.Count = 1 Then T.Interior.Color = IIf(Len(T) > 0, vbBlue, vbRed)
End Sub

soan

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2021

• #13

Re

=>soan
Parce c'est écrit entre les crochets dans le message#10

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Février 2021

• #14

ah, ok, j'ai compris : c'est le « [A titre illustratif] » (donc c'est valable même si c'était pas la demande initiale)

et mon IIf() au lieu du Switch(), c'est pas mal, non ? (ça met un seul test au lieu de deux tests)

soan

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Février 2021

• #15

Re

[En repassant]

[/A titre amaigrissant]​

VB:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count > 1 Then Exit Sub
T.Interior.Color = IIf(Len(T), vbBlue, vbRed)
End Sub

[/En repassant]

[/A titre amaigrissant]​

 

Vote positif 0 Vote négatif