écrire une lettre pour qu'un mot apparaisse.

[flamilo]

Bonjour,

je donne un exemple :

Boisson chaude B
Mammifère M
Art de vivre A

je cherche un moyen (macro ou fonction) pour écrire seulement la lettre "code" dans une cellule mais que tout le nom s'affiche. Si j'écris "B" je fais entrée et "Boisson chaude" apparait.

Qnn a une idéee ?
Merci de votre aide

 

[Dranreb]

Re : écrire une lettre pour qu'un mot apparaisse.

Bonsoir.
Je verrais bien un ComboBox qui se superpose, au moyen d'une Worksheet_SelectionChange, à la cellule sélectionnée

 

[flamilo]

Re : écrire une lettre pour qu'un mot apparaisse.

:s je n'y connais pas grand hcose, tu pourrais m'expliquer comment on s'y prend pour faire un combobox ?

 

[Dranreb]

Re : écrire une lettre pour qu'un mot apparaisse.

Ben, en Excel 2003 c'est menu Affichage, Barres d'outils, Boîte à outils contrôles, puis on sélectionne Liste déroulante modifiable, et on la dessine dans la feuille en enfonçant le bouton gauche sur la position voulue du coin haut gauche et le relâchant sur celle du coin bas droit. Après on affiche la fenêtre de propriétés pour corriger ses propriétés comme souhaité, puis on programme ce qu'il faut dans le module de la feuille.

P.S. À supposer que vous ayez nommé CbxSaisie votre ComboBox, le code dans le module de la feuille pourrait être celui ci, mais je l'aurais sans doute constitué mieux adapté sur un classeur joint…

Option Explicit

Private Sub Worksheet_Activate()
Me.CbxSaisie.List = Array("Boisson chaude", "Mammifère", "Art de vivre")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.CbxSaisie.Top = Target.Top
Me.CbxSaisie.Left = Target.Left
Me.CbxSaisie.Text = Target.Value
End Sub

Private Sub CbxSaisie_Change()
Me.CbxSaisie.TopLeftCell.Value = Me.CbxSaisie.Text
End Sub

 

[Modeste geedee]

Re : écrire une lettre pour qu'un mot apparaisse.

Bonsour®

je donne un exemple :

Boisson chaude B
Mammifère M
Art de vivre A

je cherche un moyen (macro ou fonction) pour écrire seulement la lettre "code" dans une cellule mais que tout le nom s'affiche. Si j'écris "B" je fais entrée et "Boisson chaude" apparait.

Excel est avant tout un tableur, nos amis d'outre-mare disent justement chiffrier...

cette fonctionnalité est native dans MS-Word.(*)


pour celui qui n'a qu'un marteau, toutes les solutions se résument à une affaire de clou...

(*)
pour EXCEL sans formule ni macro ...
activer les options de correction automatique pendant la frappe

ajouter les parametres Remplacer et Par
nb : nécessitée d'utiliser 2 caractères exemple : §A ou §D (association peu utilisée en pratique courante)

 

[flamilo]

Re : écrire une lettre pour qu'un mot apparaisse.

Dsl mais est ce que tu pourrais me le faire dans le fichier joint ?

J'aimerais que dans les cellules encadrées je puisse seulement marquer une lettre et que le mot correspondant apparaisse. Ce serait super !!

 

[Dranreb]

Re : écrire une lettre pour qu'un mot apparaisse.

Je n'arrive pas à le mettre au point. Il ne garde pas ce que je lui envoie en propriété List.
Alors on va le faire sans ComboBox.
Essayez simplement ce code dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.[E11:E16], Target) Is Nothing Or Target.Count <> 1 Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Target.Value = Me.[C6:C9].Rows(WorksheetFunction.Match(Target.Value, Me.[D6:D9], 0))
Application.EnableEvents = True
End Sub

 

[flamilo]

Re : écrire une lettre pour qu'un mot apparaisse.

Waww génial ca marche super bien ! Une derniere chose ....
Si pour le mot "Boisson chaude" j'ai plusieurs lettre possible ...
Par exemple je voudrais que le B, X et Z me mette boisson chaude.

Est ce possible ?

 

[Si...]

Re : écrire une lettre pour qu'un mot apparaisse.

salut

2 exemples (avec mon marteau et sans martel en tête )

 

[Modeste geedee]

Re : écrire une lettre pour qu'un mot apparaisse.

Bonsour®
pourquoi ré-inventer la roue... ???

sans formule ni macro !!!
utiliser les options de correction automatique en cours de frappe. !

https://www.excel-downloads.com/threads/ecrire-une-lettre-pour-quun-mot-apparaisse.208075/

 

[job75]

Re : écrire une lettre pour qu'un mot apparaisse.

Bonjour flamilo, Dranreb, Modeste geedee, Si...

C'est vrai que pour ce genre de problème VBA paraît superflu.

Saisie intuitive dans le fichier joint.

A+

 

[job75]

Re : écrire une lettre pour qu'un mot apparaisse.

Re,

Dans ce fichier (2) on peut renseigner n'importe quelle cellule de la plage colorée.

A+

 

[flamilo]

Re : écrire une lettre pour qu'un mot apparaisse.

Génial !! Merci beaucoup ! Comment cela s'appelle ? Comment est ce qu'on insere ce type de liste, ce n'est pas une liste déroulante si ?

 

[job75]

Re : écrire une lettre pour qu'un mot apparaisse.

Bonjour flamilo, le fil,

Les listes sont dans les lignes masquées, il est facile de les afficher.

Pour éviter qu'on les efface, déverrouiller les cellules D7 D12 D17 D22 et protéger la feuille.

Fichier (3).

A+