Fonction Si Fermé

Question

Bonjour,

Je cherche une fonction "si" capable de reconnaître des cellules colorées dans une plage et en fonction de la couleur de ces cellules d'inscrire un chiffre précis dans une autre cellule. Par ex : Excel doit mettre le chiffre 1 en B1 si en G1 il y a du bleu.

Merci d'avance pour vos réponses.

Mike-31 · Answer

Bonjour,

Tout dépend du mode de colorisation des cellules, si les cellules sont colorisées avec une mise en forme conditionnelle, quel est la formule de la mise en forme ?

par contre si les cellules sont colorisées manuellement, il faut impérativement passer par du VBA si tu as quelques notions

math1995 · Answer

Bonjour,

Merci beaucoup pour votre réponse. Les cellules sont colorisées manuellement donc il faut que je passe par le VBA. Connaissez-vous le code permettant de faire cette manipulation ?

Mike-31 · Answer

Re,

alors un code VBA est très strict donc il faut être précis dans sa rédaction.

quelles sont les limites de la plage à traiter (uniquement G1 ou ?)

comment veux tu obtenir le résultat, en cliquant sur un bouton ou automatiquement dans la cellule B1 

y aura t il d'autres couleur que le bleu

math1995 · Answer

Re, 

D'accord, merci beaucoup. 

Alors il y a 2 plages, de G20 à G24 et de G25 à G29 et pour les couleurs il y a du rouge et du bleu. Je désirerais obtenir le résultat automatiquement.

Mike-31 · Answer

Re,

Je ne sais si j'ai tout compris, je comprends que sur la première plage tu colorises les cellules et la deuxième plage G25:G29 tu récupère une valeur, 1 si la cellule de la première est rouge et j'ai mis 2 pour le bleu

En fait c'est comme si il y avait une seule plage de G20 à G29

clic droit sur l'onglet de ta feuille/Visualiser le code
il suffit de coller ce code dans la partie blanche, mais attention aux nuances de couleur surtout pour le bleu, l'index couleur 8 correspond au bleu ciel

si ce n'est pas cela détaille ta demande 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i
    On Error Resume Next
    If Not Intersect(Selection, Range("G20:G29")) Is Nothing Then
    For Each i In Range("G20:G29")
    If i.Interior.ColorIndex = 3 Then i(6, 1) = 1
    If i.Interior.ColorIndex = 8 Then i(6, 1) = 2
    Next
End Sub

math1995 · Answer

Bonjour,

Merci pour la réponse. Par contre, comment sais-tu le chiffre correspondant à chaque couleur ? Parce que dans notre fichier nous avons du bleu vif et du rouge vif.

Mike-31 · Answer

Re,

Colonne A entre A1 et A20 colorise tes cellules et active ce code, l'index couleur s'inscrira dans la cellule, mais utilise les couleurs basiques pour pouvoir utiliser également ton code sur des versions antérieures à Excel 2007 

Sub IdentifierCouleur ()
Dim i As Long
  For i = 1 To 20
    Range("A" & i).Value = i
    Range("A" & i).Interior.ColorIndex = i
  Next i 
 End If


fichier couleur
	https://www.cjoint.com/?DEvizjt7Vr5

math1995 · Answer

Re,

Merci pour le fichier.

Nous avons les lignes 43 à 301 et les couleurs rouges ou bleus sont dans les cellules AK à AO et de AP à AS. Le code en fonction des couleurs doit s'inscrire dans les cellules de la colonne E.

Mike-31 · Answer

Re,

tu as demandé un code pour  "mettre le chiffre 1 en B1 si en G1 il y a du bleu" puis pour les plages "de G20 à G24 et de G25 à G29"

et sur ton dernier post "lignes 43 à 301 et les couleurs rouges ou bleus sont dans les cellules AK à AO et de AP à AS" 

je suis bénévole et volontaire mais je ne peux passer mon temps à adapter des codes alors mûri ta demande et post ton fichier anonymé avec ce lien

https://www.cjoint.com/

math1995 · Answer

D'accord, désolé et merci beaucoup pour les infos à propos du VBA :)

Bonne journée

Fonction Si

10 réponses

Discussions similaires