[EXCEL] Associé nombre à mot depuis une liste déroulante

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [EXCEL] Associé nombre à mot depuis une liste déroulante

relaxmax999

Bonjour à tous :hello:

Je cherche a définir une cellule selon ses coordonnées X et Y >>> Cell(X,Y)

Commençons par Y :

J'ai une liste déroulante de 7 mots : Charges, Courses, Voiture, Mobilier, Shopping, Loisirs, Epargne

Je voudrais associé ces 7 mots aux valeurs suivantes (dans l'ordre) : 5, 7, 9, 11, 13, 15, 17

Comment faire cela en VBA ? Déclaration de variable ou quelque chose comme ca ?

EDIT : Précision, ma liste déroulante est en A2, je voudrais donc que Y = A2 = 5 ou 7 ou 9 ou ...

Message édité par relaxmax999 le 21-10-2015 à 18:57:06

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

Publicité

Devil'sTiger

Code :

Dim Y as Integer
Y = ListBox1.ListIndex * 2 + 5

Va te donner la bonne valeur de Y.
Attention au fait que le moindre décallage genre 5, 7, 9 devient 5, 8, 9 fout tout en l'air.

Et si tu veux 'par rapport à la position de la liste', au lieu de Cell, tu as Offset.

Message cité 1 fois

relaxmax999

Devil'sTiger a écrit :

Code :

Dim Y as Integer
Y = ListBox1.ListIndex * 2 + 5

Je vois l'idée, ca m'intéresse, mais je ne sais pas utiliser ListBox1 ou ListIndex

Concrêtement je les remplaces par quoi ?

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

Devil'sTiger

Tu as une liste, elle doit avoir un nom cette list (ListBox1 c'est le nom "par défault", de la première liste que tu as créé, si c'est la deuxième, elle s'appelle ListBox2...)

Et ListIndex est une propriété de chaque liste

Message cité 1 fois

relaxmax999

Devil'sTiger a écrit :

Tu as une liste, elle doit avoir un nom cette list (ListBox1 c'est le nom "par défault", de la première liste que tu as créé, si c'est la deuxième, elle s'appelle ListBox2...)

Et ListIndex est une propriété de chaque liste

VBA me dit "Objet requis"

Et me surligne la ligne "Y = ListBox1.PosteIndex" en jaune

Voici mon code :

Citation :

Sub Test()
Dim Y As Integer
Débit = Range("A4" ).Value

X = Range("B2" ).Value
Y = ListBox1.ListIndex + 2

Cells(X, Y).Formula = Cells(X, Y).Formula & "+" & Débit

Range("A4" ).Value = 0

End Sub

EDIT : Quand je survole X dans l'éditeur VBA j'ai bien 4 mais pour Y il me dit 0

Message édité par relaxmax999 le 21-10-2015 à 20:28:29

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

Devil'sTiger

Oui car ce message indique que "ListBox1" n'existe pas, donc soit il s'appelle autre chose, soit la liste que tu es est une liste non-contrôle (et je ne connais pas le code dans ce cas là)

relaxmax999

Comment vérifier ?

---------------
(FZ7) 30D + 75-300 + 18-55 + 50 1.8 - Mon Filckr

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[EXCEL] Associé nombre à mot depuis une liste déroulante

Sujets relatifs
[EXCEL] Macro addition + historique	[EXCEL] Selectionner cellule avec 2 paramètres
[Excel/VBA] Pivot table - Filtrer automatiquement sur une liste d'ID	Macro rechercher remplacer liens hypertexte EXCEL 2010
[EXCEL/VBA] Automatiser remplissage de fichier	Excel formule avec si(et(ou
Nombre de lignes maj supérieur au nombre de lignes de la table	[EXCEL ou VBA] Chercher une valeur parmi un ensemble de valeur
[EXCEL] passer d'un tableau croisé à des lignes à plat
Plus de sujets relatifs à : [EXCEL] Associé nombre à mot depuis une liste déroulante

Page générée en 0.055 secondes