XL 2016 Macro évènementielle

Chris24

XLDnaute Impliqué

• 4 Mai 2020

• #2

Bonjour flodumur

supprime ShData. et tu devrais avoir le résultat escompté.

Cdt

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 4 Mai 2020

• #3

Bonjour
1) C'est quoi, ShData ?
J'imagine bien sûr qu'il s'agit d'un objet WorkSheet, mais ignore où et comment tu l'as déclaré et initialisé.
2) le paramètre Target de la procédure évènementielle Worksheet_Change est précisément l'objet range dont on modifie la valeur. C'est tout simplement lui, dont on doit s'assurer qu'il est bien concerné (on ne le redéfinit pas par Cells(2, 2) et si oui : que sa propriété Value est bien = 4

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Mai 2020

• #4

Bonjour tout le monde,
Un exemple en PJ.

 

Pièces jointes

• Classeur2.xlsm

  21.5 KB · Affichages: 12

Vote positif 0 Vote négatif

F

flodumur

XLDnaute Nouveau

• 5 Mai 2020

• #5

Tout d'abord merci à tous pour vos réponses.

Je vous mets en copie une partie de mon fichier de travail. J'ai mis en commentaire ce que je cherche à faire.

Est-il possible de réaliser ceci sur des cases contenant des formules (exemple : ligne 2 à 7)

Merci à vous

 

Pièces jointes

• Book1.xlsm

  33.7 KB · Affichages: 4

Dernière édition: 5 Mai 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Mai 2020

• #6

Bonjour,
Et le fichier ?

 

Vote positif 0 Vote négatif

F

flodumur

XLDnaute Nouveau

• 5 Mai 2020

• #7

Oui pardon il est arrivé

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Mai 2020

• #8

Re Bonjour,
Il est où le commentaire ? Oups, j'ai trouvé !

 

Vote positif 0 Vote négatif

F

flodumur

XLDnaute Nouveau

• 5 Mai 2020

• #9

Je m'excuse, je ne suis pas clair. j'ai mis les commentaires dans le programme

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
'Faire une boucle sur chaque ligne de la ligne 1 à la ligne 7
    If Target.Address = "$B$1" Then
        'Si B1 + D1 + F1 + H1 + J1 + L1 + N1 = 7
        If Target.Value = 1 Then
            'Colorier la ligne 1 en rouge
            Range(Cells(1, 1), Cells(1, 18)).Interior.ColorIndex = 3
            'Déselectionner le checkbox en bout de ligne 1
            CheckBox18.Enabled = False
            [R1] = False
        Else
            'Colorier la ligne 1 en blanc
            Range(Cells(6, 1), Cells(6, 18)).Interior.ColorIndex = 0
            'Ne pas changer le statut du checkbox en bout de ligne 1
        End If
    End If
End Sub

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Mai 2020

• #10

Voilà !

 

Pièces jointes

• Book1.xlsm

  37.5 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

F

flodumur

XLDnaute Nouveau

• 5 Mai 2020

• #11

Génial, merci beaucoup et encore plus pour les commentaires cela m'aide à bien comprendre.

 

Vote positif 0 Vote négatif

F

flodumur

XLDnaute Nouveau

• 7 Mai 2020

• #12

Hello, je reviens avec une dernière question.

Est-il possible de changer la couleur de la Barre de données aussi ?
Qu'elle s'affiche en rouge lorsque la ligne est en rouge.

Merci bien

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2020

• #13

Bonjour,
Qu'appeler vous la barre de données ?

 

Vote positif 0 Vote négatif

F

flodumur

XLDnaute Nouveau

• 7 Mai 2020

• #14

Dans 'Mise en forme conditionelle', les bars de données colorées. En bleu dans mon exemple

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Mai 2020

• #15

Non, ça je ne sais pas faire car la MFC est faite sur toute la plage A1:N7.
Ou alors il faudrait créer une MFC par ligne, et là ça devient une usine à gaz.
D'autant que c'est un domaine que je n'ai jamais touché en VBA.

 

Vote positif 0 Vote négatif