Format personnalisé - Afficher Unité dans cellule vide

jecherche

XLDnaute Occasionnel

• 13 Octobre 2016

• #2

Bonjour,

Peut-être via macro du genre :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("D2") = "" Then Range("D2") = "°C"
End Sub

Jecherche

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Octobre 2016

• #3

Bonjour, vgendron, jecherche, le Forum,

Une autre possibilité :

VB:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    Dim plage As Range
    Set plage = Range("c7:c100") ' à adapter
    If c.Column <> 3 Then Exit Sub
    For Each c In plage
        If c = "" Then c = " °C" Else c.NumberFormat = "#"" °C"""
    Next
End Sub

A bientôt

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Octobre 2016

• #4

Hello Jecherche, 00 et merci

C'est bien ce que je craignais..obligé de passer par une macro.. je pensais que ca existait "nativement" sous excel..
Quand meme dommage de devoir passer par une macro pour afficher une simple unité.
Bon... le plus simple sera je pense de rentrer 0 dans la cellule, ou laisser l'unité dans la colonne d'a coté..

Merci à vous et bonne journée !

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Octobre 2016

• #5

Re-bonjour,

vgendron à dit:

...obligé de passer par une macro..!

Cliquez pour agrandir...

"obligé", peut-être pas. Mais je ne sais quelle formule employer.

A bientôt

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 13 Octobre 2016

• #6

Bonjour le forum

Sans macro, on peut utiliser Données/Validation/Message de saisie

 

Vote positif 0 Vote négatif