ecriture de cellule

[ludwigdeshayes]

Bonjour à tous,
je souhaite pouvoir entrer une valeur dans une cellule et que cette valeur appel un texte dans cette même cellule

ex : je tape 1 en c1 et le texte "bonjour" apparait en c1
je tape 2 en c1 et le texte "au revoir" apparaît en c1

Merci de votre aide

 

[Épaf]

Re : ecriture de cellule

Si tu acceptes le VBA, tu as une solution simple consistant à placer ton code dans la feuille de code de la feuille de calculs. Est-ce ce que tu veux ?

 

[ludwigdeshayes]

Re : ecriture de cellule

oh la ca va trop vite pour moi!
Je ne comprend pas ce que tu veux dire!
Je sais appliquer quelque formule mais après ca devient difficile pour moi!
dsl

 

[JHA]

Re : ecriture de cellule

Bonjour Ludwigdehayes, le forum

Essai ce format de cellule personnalisée en C1

[=1]"Bonjour";[=2]"Au revoir";Standard

Bon courage,
JHA

 

[Tibo]

Re : ecriture de cellule

Bonjour,

Une autre solution avec un format personnalisé :

Format Personnalisé :

Type : [=1]"Bonjour";[=2]"Au revoir";Standard

Valable s'il n'y a que 1 et 2 à saisir et à transformer en texte.

@+

Edit : Saluit JHA, j'ai tardé à envoyer (because téléphone) et je vois qu'on a eu la même idée

@+

 

[ludwigdeshayes]

Re : ecriture de cellule

Le compagnon office affiche "nom non valide" donc je ne sais pas
J'ai regarder rapidement le VBA, pour moi, c'est du chinois parler par une vache russe

 

[Tibo]

Re : ecriture de cellule

re,

Sélectionne le format que nous t'avons proposé (JHA et moi-même)

[=1]"Bonjour";[=2]"Au revoir";Standard

tu fais un copier dessus

Ensuite, sur ta feuille, tu sélectionnes les cellules concernées puis Format - Cellules - Onglet Nombre - Personnalisée - dans type : tu fais CTRL V pour coller le format.

Ensuite, lorsque tu taperas 1, ça te donnera Bonjour et quand tu taperas 2, ça donnera Au revoir.

Voilou

@+

 

[ludwigdeshayes]

Re : ecriture de cellule

Re
Le problème, c'est que j'ai 4 choix et non 2
merci

 

[Tibo]

Re : ecriture de cellule

re,

dans ce cas, il me semble que seul le VBA (macros) peut venir à ton secours.

Mais là, je suis bien en peine de pouvoir t'aider.

Je passe le témoin aux Vbaïstes qui hantent les ondes d'XLD

@+

 

[JHA]

Re : ecriture de cellule

Re le forum,

Effectivement, tu peux avoir trois choix mais pas quatre avec ce format de cellule personnalisé.
Exemple:
[=1]"Bonjour";[=2]"Au revoir";"Bon après-midi"
Quand tu taperas un chiffre hors "1" ou "2", tu afficheras "Bon après-midi"

Désolé, pour les quatres conditions, il faut du VBA

JHA

 

[jeanpierre]

Re : ecriture de cellule

Bonjour le fil,

essaies ceci, à mettre dans le code de la feuille.
Alt F11
Affichage Explorateur de projets
Tu cherches ton fichier dans cet explorateur, doucle clic dessus, au besoin
Tu selectionnes la feuille en question par double clic et tu colles ce code dans la page de droite.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then

Range("a1").Select
valeur = Range("a1")
Select Case valeur
Case Is = 1
Range("a1") = "bonjour"
Case Is = 2
Range("a1") = "au revoir"
Case Is = 3
Range("a1") = "bonne nuit"
Case Is = 4
Range("a1") = "à demain"

End Select
End If
End Sub

A te lire.

Jean-Pierre

 

[jeanpierre]

Re : ecriture de cellule

Re,

Le même pour quelques caractères de moins.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then

Select Case Range("a1")
Case 1
Range("a1") = "bonjour"
Case 2
Range("a1") = "au revoir"
Case 3
Range("a1") = "bonne nuit"
Case 4
Range("a1") = "à demain"

End Select
End If
End Sub

 

[ludwigdeshayes]

Re : ecriture de cellule

merci de votre aide

 

[Épaf]

Re : ecriture de cellule

Oui, ou encore, si tu veux ajouter facilement des messages... (4 à ajuster)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo
If Not Target.Address = "$A$1" Or Target > [B][COLOR="Red"]4[/COLOR][/B] Then Exit Sub
tablo = Array("", "bonjour", "au revoir", "bonne nuit", "à demain")
If IsNumeric(Target) Then Target.Value = tablo(Target)
End Sub

Juste pour m'amuser...