XL 2016 Coloration ou pas des cellules voisines de la colonne B

Webperegrino · 31 Juillet 2023

Bonjour Le Forum,
Dans le fichier exemple ci-joint, je désire, par sélection d'une ou plusieurs cellules adjacentes de la colonne B, placer ses couleurs de fond et de police, en cellules voisines colonne A, et aussi en colonne C si cette dernière n'est pas grise ou si elle n'est pas vide.

Mais je coince avec mes Target et Offset...

Merci de me venir en aide pour corriger la macro Vba attachée au bouton COLOR : je n'y vois plus clair.
Webperegrino

Dranreb · 31 Juillet 2023

Bonjour.
Comme ça peut-être :

VB:

Private Sub CommandButton1_Click()
   Dim Rng As Range, Cel As Range
   Set Rng = Intersect(Selection, Columns(1)): If Rng Is Nothing Then Exit Sub
   For Each Cel In Rng
      With Cel.Resize(, -(Cel(1, 3).Interior.ColorIndex <> 15) + 2)
         .Font.Color = .Columns(2).Font.Color
         .Interior.Color = .Columns(2).Interior.Color
         End With
      Next Cel
   End Sub

Webperegrino · 31 Juillet 2023

Le Forum,
Bonjour Dranreb,
C'est exactement ce que je désirais ; j'ai tout compris !
Merci beaucoup, une épine en moins dans ma programmation...
Webperegrino

XL 2016 Coloration ou pas des cellules voisines de la colonne B

Webperegrino

XLDnaute Impliqué

Pièces jointes

Dranreb

XLDnaute Barbatruc

Webperegrino

XLDnaute Impliqué

Discussions similaires