VBA chaine caractère dans cellule Fermé

Question

Bonjour à tous,



Je voudrais pouvoir afficher une chaîne de caractère dans une cellule rien de bien compliquer sauf que ça ne fonctionne pas. Voici mon algorithme:

Select Case ComboBox2.ListIndex
    Case 0
    Sheets("Feuil2").Cells(10, 3) = "Non"
     Case 1
    Sheets("Feuil2").Cells(10, 3) = "Non"
     Case 2
    Sheets("Feuil2").Cells(10, 3) = "Oui"
     Case 2
    Sheets("Feuil2").Cells(10, 3) = "Oui"
End Select

Dans ma combox l'utilisareur choisi l'une des 4 proposition et je veux qu'en validant ça m'affiche oui ou non dans la cellule C10 de la feuille 2

Après en fonction de ce qui se trouve dans cette cellule je veux faire deux calculs différent. Pour le moment rien ne s'affiche dans la cellule donc ça bloque mon programme.

D'avance Merci.
Ansald

ed555 · Answer

salut,

si ta combobox est sur une feuille, ce code fonctionne :

Sub test()

With ActiveSheet.Shapes("Drop Down 1").ControlFormat
    ma_variable = .List(.Value) 'on stocke dans une variable la valeur affichée de la combo box
End With


Select Case ma_variable
Case 0
Sheets("Feuil2").Cells(10, 3) = "Non"
Case 1
Sheets("Feuil2").Cells(10, 3) = "Non"
Case 2
Sheets("Feuil2").Cells(10, 3) = "Oui"
Case 2
Sheets("Feuil2").Cells(10, 3) = "Oui"
End Select

End Sub

bonne suite,
ed555

VBA chaine caractère dans cellule

1 réponse

Discussions similaires