Comment Colorer Une Plage De Cellule (Vba) [RÉSolu]
Puis nous allons donner pour valeur à cette variable le numéro qui correspond à la couleur du fond de la cellule sélectionnée Dim couleur As Long couleur = Où: ActiveCell: correspond à la cellule sélectionnée, : permet de récupérer la couleur du fond de la première cellule sélectionnée (il s'agit d'un numéro de série de 0 pour le noir à 16777215 pour le blanc) Note: nous utilisons ici Activecell plutôt que « Selection » afin de ne récupérer la couleur du fond que de la première cellule sélectionnée. En effet, si plusieurs cellules étaient sélectionnées, l'appel à « Selection » nous retournerait l'ensemble des plages sélectionnées. Il faudrait alors utiliser la propriété « (1, 1) » pour ne s'occuper que de la première cellule. Interior.Color, propriété (Excel) | Microsoft Docs. Maintenant que nous connaissons et avons stocké la couleur de fond dans une variable, nous allons passer en revue chacune des cellules qui ont été utilisées dans la feuille de calcul grâce à l'instruction « edRange », afin de regarder pour chacune de ces cellules quelle est la couleur de fond.
Vba Couleur Cellule Végétale
Venons-en maintenant au cadre d'une cellule. Cela peut être conçu différemment en ce qui concerne à la fois la couleur et le type de cadre. Dans l'exemple, voir FrameDetermine comment vous pouvez créer un cadre en pointillé vert, par exemple. Sub CadreCellule() Sheets("Feuil2"). Macro VBA - test sur couleur d'une cellule. Activate Range("C1") With rders. ColorIndex = 10. LineStyle = xlDot End With End Sub Dans le tableau suivant, vous découvrirez d'autres options de conception de cadre. xlContinuous: ligne continue xlDash: ligne pointillée xlDashDot: Ligne de lignes et de points xlDashDotDot: Ligne tiret-point-point xlDot: pointillé xlDouble: line double xlSlantDashDot: Ligne de signe d'onde et point xlLineStyleNone: aucune ligne
:whistle: comment modifier la macro pour qu'elle s'execute sur une plage sélectionnée ou sur plusieurs plages non contigües sélectionnées donc sans avoir à indiquer la plage de cellule MERCI! #6 essaies ainsi Dim c As Range Couleur1 = InputBox('Donnez l'index de la couleur à remplacer' & vbCrLf & '-4142 pour pas de couleur') Couleur2 = InputBox('Donnez l'index de la couleur de remplacement' & vbCrLf & '-4142 pour pas de couleur') Message édité par: Pascal76, à: 04/11/2005 11:58 #7 Bonjour le fil, Ouarf! Trouver le code de couleur d’une cellule Excel | Trucs et astuces techniques. J'avais pas vu le deuxième fil... Comme quoi, c'est pas bien.... de multiplier les fils pour un même sujet. Bref, j'ai répondu sur le premier fil. A+ Abel.