[EXCEL] Selectionner cellule avec 2 paramètres

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [EXCEL] Selectionner cellule avec 2 paramètres

relaxmax999

Bonjour à tous :hello:

Je commence en VBA et je souhaiterais un peu d'aide pour réaliser la fonction que je cherche.

Je vous explique le projet :

J'ai une feuille de compte à remplir. Les lignes sont les mois de l'année (Janvier 2015, Fevrier 2015, etc...), et les colonnes sont les postes de dépenses (Charges fixes, Voitures, Shopping, etc...)

Jusqu'a présent je remplis mes cases manuellement. Mes cases sont donc écrites comme ceci (=dépense1 + dépense2 + ...)

J'ai plein d'autre choses qui gravite autour et j'en ai marre d'aller éditer mes cases manuellement alors je voudrais créer un remplissage semi-automatisé. Voici ce que j'aimerais réaliser :

Sur ma première feuille j'aimerais créer 2 cases avec menu déroulant (l'une pour les mois de l'année, l'autre pour les postes de dépenses), ca OK !
Une case dans laquelle j'indique le montant de la dépense à ajouter
Un bouton qui, lorsque j'appuie fait "+dépenseX" dans la bonne case, définie par mes 2 menus déroulant.

Exemple :

Je choisi "Octobre2015" en A1 et "Shopping" en A2
J'indique 27,50€ en B1
Quand je clique sur mon bouton, la somme de 27,50€ est ajoutée au total dans la case correspondante a la colonne Shopping et la ligne Octobre 2015

Bon ... ca fait sans doute un code assez long, je ne vous demande pas de me rédiger celui-ci évidement. Nan la ou je suis coincé c'est pour définir ma bonne case d'écriture en fonction de mes cases A1 et A2 (Mois de l'année, et poste de dépense)

Un petit coup de pouce serait le bienvenue ! :jap:

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

Publicité

relaxmax999

On dirait que ma question vous pose problème également ?

Peut-être une façon détournée d'obtenir le même résultat ?

Pour information mon code de base ressemble à ca :

Citation :

Sub Test()
Débit = Range("A4" ).Value

X = Range("B2" ).Value
Y = Range("C2" ).Value
Cells(X, Y).Value = Cells(X, Y).Value + Débit

Range("A4" ).Value = 0

End Sub

Ici je rentre un chiffre dans B2 et un chiffre dans C2 et en cliquant sur "Test" ma valeur se copie au bon endroit.

Maintenant j'aimerais que X et Y soit issu d'un menu déroulant.

Genre :

Shopping = 4
Voiture = 3

Février2015 = 24
Mars2015 = 25

Etc ...

Ainsi je choisi dans mes 2 menus déroulant une combinaison Mois / Poste de dépense et mon débit apparait dans la bonne case

Message édité par relaxmax999 le 20-10-2015 à 23:21:24

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

relaxmax999

Et bien ! Mon problème n'intésse personne on dirait !

Pour les colonnes, il n'y en a qu'un nombre limité (moins de 10) et ca ne changera jamais. Donc j'imagine que je peux simplement declarer mes variables. Je ne sais pas trop comment faire mais l'idée serait d'avoir un truc comme ca :

Shopping = 1
Epargne = 2
Voiture = 3
Etc ...

En B2 j'ai ma liste déroulante avec Shopping, Epargne, Voiture, etc ...

Et dans mon code je dit que X = B2

Pour les lignes c'est plus complexe car j'en rajoute régulièrement et leur nombre est potentiellement infini ...

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

relaxmax999

J'ai fais ça mais ca ne marche pas ...

Citation :

Sub Test()
Const Shopping As Single = 2
Const Epargne As Single = 3

Débit = Range("A4" ).Value

X = Range("B2" ).Value
Y = Range("C2" ).Value
Cells(X, Y).Value = Cells(X, Y).Value + Débit

Range("A4" ).Value = 0

End Sub

Avec en B2 un chiffre et en C2 une liste déroulante avec Shopping ou Epargne

Message édité par relaxmax999 le 21-10-2015 à 11:41:30

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[EXCEL] Selectionner cellule avec 2 paramètres

Sujets relatifs
[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
[EXCEL ou VBA] Chercher une valeur parmi un ensemble de valeur	[EXCEL] passer d'un tableau croisé à des lignes à plat
copier des cellules excel et les ajouter au corps de mail en image	Passage d'excel à une page web
selectionner le texte d un textbox ou positionner curseu	Excel (liste avec des valeurs identiques/graph)
Plus de sujets relatifs à : [EXCEL] Selectionner cellule avec 2 paramètres

Page générée en 0.025 secondes