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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Webperegrino

XLDnaute Accro
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

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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour