[Resolu] Modifié un code

riton00 · 23 Mars 2016

Bonsoir à tous,

Je recherche une personne qui puisse me modifier ce code de façon à:
Colorier la cellule A10 à une condition que la cellule A1 est colorier et non vide, (si la cellule A1 est vide A10 doit pas se colorier)

Le code ci-joint fonctionne mais en tout temps cellule vide ou cellule pleine d'ou mon problème

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
    Range("A10").Interior.Color = Range("A1").Interior.Color
End If
End Sub

Merci

Cordialement

DoubleZero · 23 Mars 2016

Re : Modifié un code

Bonjour, riton00, le Forum,

Peut-être ainsi :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target.Interior.Color <> 16777215 Then
        Range("a10").Interior.Color = xlNone
        If Target.Value <> "" Then Range("a10").Interior.Color = Range("a1").Interior.Color
    End If
End Sub

A bientôt 🙂

Chris401 · 23 Mars 2016

Re : Modifié un code

Bonsoir

Peut-être :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" Then
    Range("A10").Interior.Color = Target.Interior.Color
End If
End Sub

Attention de sélectionner A1 après tout changement (couleur ou valeur)

Cordialement
Chris

riton00 · 23 Mars 2016

Re : Modifié un code

Bonsoir DoubleZero, Chris401

Merci à vous deux pour la modification du code, en fait celle de doubleZero me convient très bien, puisque la couleur s'affiche au moment même de la validation de A1 et s’efface à la suppression de A1 par contre celle de Chris401 n'affiche la couleur qu'après avoir mis une valeur en A1 et en recliquant sur cette même cellule, et autre souci ne s’efface pas lorsque la cellule est vide

Merci

Slts

[Resolu] Modifié un code

riton00

XLDnaute Impliqué

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Chris401

XLDnaute Accro

riton00

XLDnaute Impliqué

Discussions similaires

[Resolu] Modifié un code

riton00

XLDnaute Impliqué

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Chris401

XLDnaute Accro

riton00

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency