Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1703 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2268252
relaxmax99​9
Posté le 21-10-2015 à 18:55:32  profilanswer
 

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
mood
Publicité
Posté le 21-10-2015 à 18:55:32  profilanswer
 

n°2268253
Devil'sTig​er
Jee & Cee on the rock !
Posté le 21-10-2015 à 19:07:22  profilanswer
 

Code :
  1. Dim Y as Integer
  2. 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.


---------------
JunZZi | Jee & Cee
n°2268254
relaxmax99​9
Posté le 21-10-2015 à 19:15:14  profilanswer
 

Devil'sTiger a écrit :

Code :
  1. Dim Y as Integer
  2. 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.


 
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
n°2268255
Devil'sTig​er
Jee & Cee on the rock !
Posté le 21-10-2015 à 19:34:02  profilanswer
 

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 ;)


---------------
JunZZi | Jee & Cee
n°2268257
relaxmax99​9
Posté le 21-10-2015 à 20:14:31  profilanswer
 

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
n°2268261
Devil'sTig​er
Jee & Cee on the rock !
Posté le 21-10-2015 à 20:58:32  profilanswer
 

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à)


---------------
JunZZi | Jee & Cee
n°2268262
relaxmax99​9
Posté le 21-10-2015 à 21:14:08  profilanswer
 

Comment vérifier ?


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

Aller à :
Ajouter une réponse
  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'IDMacro rechercher remplacer liens hypertexte EXCEL 2010
[EXCEL/VBA] Automatiser remplissage de fichierExcel 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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR