conversion d'une lettre en un mot...code VBA? URGENTISSIME ;)

[lejafinde]

Bonjour à tous,

Je n'y connais rien en code VBA mais je pense que ce que j'aimerai faire pour mon tableau excel n'est possible que via les codes...du coup, je fais appel à votre aide.

J'aimerais que dans la colonne "type" (voir mon fichier attaché), si j'écris la lettre :
- "b" le mot "BASE" en majuscule s'affiche automatiquement
- "p" le mot "PRIVE" en majuscule s'affiche automatiquement
- "h" le mot "HÔTE" en majuscule s'affiche automatiquement

Et cela doit être valable pour toute la colonne B de ma Feuil 1...

Est ce que vous pourriez m'aider?

D'avance un grand merci pour votre temps,

A++

 

[tototiti2008]

Re : conversion d'une lettre en un mot...code VBA? URGENTISSIME

Bonjour lejafinde,

le plus simple est de taper BASE, PRIVE et HÔTE respectivement en B1, B2 et B3
après ça, vide les cellules de la colonne B en-dessous et en tapant la 1ère lettre le mot devrait t'être proposé

 

[lejafinde]

Re : conversion d'une lettre en un mot...code VBA? URGENTISSIME

Bonjour tototiti,

Merci pour l'idée, le problème c'est que le mot ne vient pas systématiquement avec cette solution....
Je préfèrerais quelque chose de plus stable, écrit en code.

Merci encore

a+

 

[tototiti2008]

Re : conversion d'une lettre en un mot...code VBA? URGENTISSIME

Re,

le problème c'est que le mot ne vient pas systématiquement avec cette solution....

Comment ça ?

sinon dans le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 2 Then
            Application.EnableEvents = False
            Select Case UCase(Target.Value)
            Case "B"
                Target.Value = "BASE"
            Case "H"
                Target.Value = "HÔTE"
            Case "P"
                Target.Value = "PRIVE"
            End Select
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[lejafinde]

Re : conversion d'une lettre en un mot...code VBA? URGENTISSIME

Nickel !! Merci beaucoup ! C'est tout à fait ce que je cherchais.
Quel forum ! Merci pour votre aide