Associer Valeur à Texte liste

Question

Je cherche a définir une cellule selon ses coordonnées X et Y &gt;&gt;&gt; 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 ? J'aimerais éviter de créer un tableau quelque part et faire un une association comme j'ai pu le voir expliqué ici ou la Précision, ma liste déroulante est en A2, je voudrais donc que Y = A2 = 5 ou 7 ou 9 ou .....

Raja · Answer

Traduit tout cela dans un support fichier et met-nous à disposition et dis-toi que nous sommes capables de comprendre une solution à deux paramètres et explique-nous entièrement tout dans le fichier...

MFerrand · Answer

Je plussoie : on peut comprendre, si toi même sait ce que tu veux, te montre capable de l'expliquer, et de le montrer dans un fichier... Pour le moment, ta notion de coordonnées n'est pas très claire, un système de coordonnées doit pour se définir avec précision, et pourquoi vouloir sustituer un autre système aux adresses de cellules (par lesquelles il faudra bien passer pour qu'Excel s'y retrouve aussi) qui est lui-même un système de coordonnées précis ? Associer des valeurs à d'autres, des numériques à des textuelles, soit ! Mais après ? Cette association doit se matérialiser comment ? Car si ça ne doit pas se matérialiser, pas la peine de commencer... ? Et au fait, on a commencé par Y mais on a continué par... rien ! Cordialement...

MFerrand · Answer

Sub Débiter() Dim d, Dép, Db As Range With Worksheets("Saisie") d = DateValue("1 " &amp; .Cells(3, 4) &amp; " " &amp; .Cells(3, 3)) Dép = .Cells(3, 6).Value End With With Worksheets("Relevé") Dép = Application.Match(Dép, .Rows(2), 0) - 2 Set Db = .Columns(2).Find(d, , xlFormulas, xlWhole).Offset(, Dép) End With Db.Value = Db.Value + Worksheets("Saisie").Cells(6, 4) MsgBox (Db.Address) End Sub Le but étant d'utiliser les coordonnées pour affecter une valeur, autant affecter la cellule recherchée à une variable objet... Dernière ligne à supprimer (juste pour test). Avant dernière à modifier si l'on ne cumule pas dans la cellule cible. Cordialement...

MFerrand · Answer

S'il s'agit d'un problème lié aux dates, ce qui est assez récurrent, le meilleur moyen de la résoudre est d'utiliser DateSerial (arguments : année, mois, jour sous forme numérique) pour définir la date...

frangy · Answer

Une proposition à tester A+...

MFerrand · Answer

La macro modifiée par tes soins, modifiée pour la rendre fonctionnelle : Sub Débiter() Dim d, Dép, Db As Range With Worksheets("Saisie") d = DateSerial(.Cells(3, 4), Val(.Cells(3, 3)), 1) Dép = .Cells(3, 6).Value End With With Worksheets("Relevé") Dép = Application.Match(Dép, .Rows(2), 0) - 2 Set Db = .Columns(2).Find(d, , xlFormulas, xlWhole).Offset(, Dép) End With Db.Value = Db.Value + Worksheets("Saisie").Cells(6, 4) End Sub Commentaires : - Une variable month n'est pas nécessaire ; en outre c'est une valeur de type Integer, donc pas la peine de lui attribuer un type Double ; enfin, Month est un mot-clé de VBA (une fonction) et l'utilisation de mots-clé est à éviter pour nommer des varaibles. - Val("C3") : tu n'envoies pas à Val le contenu de la cellule C3 ainsi, mais le texte C3 . La fonction renverra 0 car C est un lettre et non un chiffre &#91;Val renvoie un nombre correspond à la partie numérique débutant une chaîne&#93;. Avec le contenu de la cellule, Val renverra le numéro du mois. - Disposant du numéro du mois, on n'utilise plus DateValue qui réclame un texte représentant une date, mais DateSerial (assortie de 3 arguments de type Integer : année, mois, jour). Ce qui devrait fonctionner de la même façon sur un Excel en anglais. Cordialement...