Discussion :

[FranPier]

Bonjour

Écrire cette fonction en changeant le mot texte par une variable sélectionnée à partir d'un liste déroulante.
Voir fichier attché
Merci

[EricDgn]

Bonjour,

Pour autant que j'aie bien compris la demande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
    Cells(2, 2).NumberFormat = "General """ & Me.ComboBox1.Value & """"
End Sub
 
Private Sub UserForm_Initialize()
    Dim f As Worksheet, c As Range
    Set f = Worksheets("Feuil1")
    For Each c In f.Range("A2:A" & f.Range("A650").End(xlUp).Row)
        Me.ComboBox1.AddItem c.Value
    Next c
    Me.ComboBox1.ListIndex = "0"
End Sub

Cordialement.