Les Allergies
Alimentaires
Posez votre question Signaler

Avec excel repporter un nombre d'une cellule

23Hans 5Messages postés 27 juillet 2006Date d'inscription 11 février 2012Dernière intervention - Dernière réponse le 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
Lire la suite 

Avec excel repporter un nombre d'une cellule »

3 réponses
Réponse
+0
moins plus
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.
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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.
Ajouter un commentaire
Ce document intitulé « Avec excel repporter un nombre d'une cellule » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?