Question Formule
Steph
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche à l'aide d'une formule ou de vba (je n'ai pas réussi à le faire avec une formule).
Ma demande concerne la condition suivante :
Si couleur dans la colonne A = (255,192,0) alors copier la valeur de la cellule colorisé au même endroit dans la colonne B ( exemple A26 = 120 dans B26 = 120)
Merci d'avance pour votre aide.
Je cherche à l'aide d'une formule ou de vba (je n'ai pas réussi à le faire avec une formule).
Ma demande concerne la condition suivante :
Si couleur dans la colonne A = (255,192,0) alors copier la valeur de la cellule colorisé au même endroit dans la colonne B ( exemple A26 = 120 dans B26 = 120)
Merci d'avance pour votre aide.
Configuration: Windows / Edge 18.17763
A voir également:
- Question Formule
- Formule si et - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule mathématique - Télécharger - Études & Formations
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
4 réponses
Bonjour,
Tu peux écrire une fonction VBA qui te retourne la couleur au format RGB puis faire une formule "SI" dans ton excel pour obtenir ce que tu souhaites.
Niveau fonction VBA, tu pourrais utiliser, par exemple
Tu peux écrire une fonction VBA qui te retourne la couleur au format RGB puis faire une formule "SI" dans ton excel pour obtenir ce que tu souhaites.
Niveau fonction VBA, tu pourrais utiliser, par exemple
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Function Color
' Purpose Determine the Background Color Of a Cell
' @Param rng Range to Determine Background Color of
' @Param formatType Default Value = 0
' 0 Integer
' 1 Hex
' 2 RGB
' 3 Excel Color Index
' Usage Color(A1) --> 9507341
' Color(A1, 0) --> 9507341
' Color(A1, 1) --> 91120D
' Color(A1, 2) --> 13, 18, 145
' Color(A1, 3) --> 6
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Color(rng As Range, Optional formatType As Integer = 0) As Variant
Dim colorVal As Variant
colorVal = Cells(rng.Row, rng.Column).Interior.Color
Select Case formatType
Case 1
Color = Hex(colorVal)
Case 2
Color = (colorVal Mod 256) & ", " & ((colorVal \ 256) Mod 256) & ", " & (colorVal \ 65536)
Case 3
Color = Cells(rng.Row, rng.Column).Interior.ColorIndex
Case Else
Color = colorVal
End Select
End Function
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, un exemple:
Option Explicit
Private Sub cola()
Dim fl As Worksheet, cl As Range, col As Range
Set fl = ThisWorkbook.Sheets("Steph")
Set col = Intersect(fl.Columns("a"), fl.UsedRange)
For Each cl In col
If cl.Font.Color = RGB(255, 192, 0) Then
cl.Offset(, 1) = cl
End If
Next cl
End Sub
Bonjour,
Il s'agit de la couleur de la cellule et non du texte, excusez moi pour ce manque de précision.
Pour résumer j'ai mis des conditions en fonction de valeur présente en colonne A et B.
Si les conditions (que j'ai fixé avec des formules Excel) sont ok alors les cellules en question se colorisent avec le code couleur que j'ai fixé plus haut.
Ma demande concernait le cas ou si justement des cellules des colonnes A et B sont colorisés dans la couleur 255, 192, 0 alors sur la même ligne en colonne C, on trouverait la valeur présente en colonne B.
J'espère m'être bien exprimé….
Merci encore pour votre aide.
Il s'agit de la couleur de la cellule et non du texte, excusez moi pour ce manque de précision.
Pour résumer j'ai mis des conditions en fonction de valeur présente en colonne A et B.
Si les conditions (que j'ai fixé avec des formules Excel) sont ok alors les cellules en question se colorisent avec le code couleur que j'ai fixé plus haut.
Ma demande concernait le cas ou si justement des cellules des colonnes A et B sont colorisés dans la couleur 255, 192, 0 alors sur la même ligne en colonne C, on trouverait la valeur présente en colonne B.
J'espère m'être bien exprimé….
Merci encore pour votre aide.