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 1262 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
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Formule excel - Guide

3 réponses

Réponse 1 / 3

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
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 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
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

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters