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

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

Webperegrino

XLDnaute Impliqué
Supporter XLD
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
 

Pièces jointes

  • ESSAI COULEUR.xlsm
    23.1 KB · Affichages: 2

Dranreb

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…