Avec excel repporter un nombre d'une cellule

23Hans Messages postés 7 Statut Membre -  
g Messages postés 1285 Statut Membre -
Bonjour,

Dans un tableau Excel

J'aimerais reporter la valeur numérique d'une cellule dans une autre cellule si cette cellule n'a aucune couleur de remplissage!!!

Peut on mettre un formule??

Du genre si ma cellule (C21) n'est pas grisée le chiffre que contiens ma cellule (C21) se reporte dans la cellule (H21)

J'ai essayé cette formule mais ça ne fonctionne pas??

=SI(C28;(tabColors = "(Aucune)"));(Valeur H28=Valeur C28)

Quel qu'un aurait une idée?

Merci d'avance

3 réponses

  1. g Messages postés 1285 Statut Membre 578
     
    Bonjour,

    Copie le code VBA suivant dans le module de page accessible par Alt+F11

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("C21").Interior.ColorIndex = xlNone Then
    [H21] = [C21]
    Else: [H21] = ""
    End If
    End Sub

    Cordialement.
    0
  2. 23Hans Messages postés 7 Statut Membre
     
    Bonjours
    Merci pour votre réponse ça fonctionne mais je voudrais appliquer ceci à toute mes cellules de C21 à C61 ??????????
    Pour info j'ai Excel 2003 voir avant ???

    Merci d'avance pour votre réponse

    Cordialement
    0
  3. g Messages postés 1285 Statut Membre 578
     
    Re,

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For i = 21 To 61
    If Range("C" & i).Interior.ColorIndex = xlNone Then
    Range("H" & i) = Range("C" & i)
    Else: Range("H" & i) = ""
    End If
    Next
    End Sub


    Cordialement.
    0