Avec excel repporter un nombre d'une cellule

Fermé

23Hans Messages postés 7 Date d'inscription mercredi 31 août 2005 Statut Membre Dernière intervention 11 février 2012 - 11 févr. 2012 à 10:52
g Messages postés 1265 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 11 févr. 2012 à 13:47

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

A voir également:

Avec excel repporter un nombre d'une cellule
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Proteger cellule excel - Guide
Déplacer une colonne excel - Guide

3 réponses

Réponse 1 / 3

g Messages postés 1265 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
11 févr. 2012 à 13:14

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.

Réponse 2 / 3

23Hans Messages postés 7 Date d'inscription mercredi 31 août 2005 Statut Membre Dernière intervention 11 février 2012
Modifié par 23Hans le 11/02/2012 à 13:33

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

Réponse 3 / 3

g Messages postés 1265 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 575
11 févr. 2012 à 13:47

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.

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

additionner nombres dans cellules avec texte

Remplir une cellule (texte) en fonction d'une autre (texte).