VBA chaine caractère dans cellule

Ansald -
ed555 Messages postés 61 Date d'inscription Statut Membre Dernière intervention - 21 mai 2011 à 16:18

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

Afficher la suite

A voir également:

VBA chaine caractère dans cellule
Caractère ascii - Guide
Caractère spéciaux - Guide
Caractere speciaux - Guide
Excel compter cellule couleur sans vba - Guide
Chaine tnt gratuite sur mobile - Guide

1 réponse

Réponse 1 / 1

ed555 Messages postés 61 Date d'inscription Statut Membre Dernière intervention

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

Votre réponse