Choix dans une cellule et écrire la cellule voulue

[DrHouse77]

Bonjour à tous,

J'ai un classeur dont ma première feuille est une page de garde!

Dans ma page de garde je souhaiterais modifier le titre de cette page dans une seule cellule!

Exemple
Dans ma cellule A1 : je voudrais rentrer les valeurs "d" ou "s"
Dans ma cellule B1 : Devis Quantitatif Estimatif
Dans ma cellule B2 : Situation

Dans ma cellule C1: la formule que je souhaiterais appliquer!

Si je choisis la lettre "d" dans la cellule A1, je veut que ça renvoie le texte de la cellule B1, si je choisis la lettre "s" ça me renvoie le texte de la cellule B2.

Merci de votre aide 🙂

 

[st007]

Re : Choix dans une cellule et écrire la cellule voulue

adapte : =SI(A1="d";$B$1;SI(A1="s";$B$2;""))

 

[DrHouse77]

Re : Choix dans une cellule et écrire la cellule voulue

Merci beaucoup 🙂

 

[ROGER2327]

Re : Choix dans une cellule et écrire la cellule voulue

Bonsoir à tous.

Une autre :

=CHOISIR(ENT(1+CHERCHE(A1;"ødøsø"&A1)/2);"";B1;B2;"")

ROGER2327
#6532

Mardi 24 Pédale 140 (Nativité de Saint Stéphane, faune - fête Suprême Quarte)
28 Ventôse An CCXXI, 7,4726h - capillaire
2013-W12-1T17:56:03Z

 

[Eric C]

Re : Choix dans une cellule et écrire la cellule voulue

Bonsoir le forum
Bonsoir DrHouse77, st007 & ROGER2327

Une solution pour conserver la page de garde propre de toutes annotations avec la couleur de police en A1 modifiée.
Le titre intervient en B6.

 

[Gardien de phare]

Re : Choix dans une cellule et écrire la cellule voulue

Bonjour tous,

Eric, attention ta macro s'applique à toute la feuille et ne gère pas une éventuelle erreur de saisie en A1, plantage d'Excel garanti !

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then 'limitation de la plage
    If [A1] = "d" Then
    [B6] = "Devis Quantitatif Estimatif"
    ElseIf [A1] = "s" Then
    [B6] = "Situation"
    Else 'gestion de l'erreur de saisie
    [B6] = "Erreur"
    End If
Else
Exit Sub
End If
End Sub

 

[Eric C]

Re : Choix dans une cellule et écrire la cellule voulue

Bonjour le forum
Bonjour DrHouse77, st007, ROGER2327 & Gardien de phare

Oki pour le raisonnement mais je suis parti sur une saisie qui n'intervient qu'en "A1".
Bonne journée