Avec excel repporter un nombre d'une cellule
23Hans
Messages postés
7
Statut
Membre
-
g Messages postés 1285 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
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
-
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. -
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 -
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.