Macro excel en fonction d'un choix dans le classeur

Macro excel en fonction d'un choix dans le classeur - XML/XSL - Programmation

Marsh Posté le 04-04-2011 à 19:41:35    

Salut la compagnie !
 
Je débute en macro Excel et je cherche à mettre au point un classeur pour la gestion de mon budget quotidien
Le classeur ne comporte qu'une seule feuille Feuil1, avec les colonnes suivantes :
Numéro, Date, Libellé, Dépense réalisée par, Montant, Dupond doit
Dans la colonne réalisée par, il n'y a que 2 choix possibles : Durand ou Dupond
 
Je bute sur le point suivant : si le choix dans la colonne "Dépense réalisée par" est :
-Durand : le montant dans la colonne "Dupond doit" se met à jour en additionnant la moitié de la colonne "Montant"
-Dupond : le montant dans la colonne "Dupond doit" se met à jour en soustrayant la moitié de la colonne "Montant"
Le but est de faire ça pour les lignes 3 à l'infini de la feuille.
 
Ci-dessous, la bribe de code que j'ai tapé :
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MaFeuille As Worksheet
 
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Save
End Sub
[#0000FF][/#0000FF]
Set MaFeuille = ThisWorkbook.Worksheets("Feuil1" )
 
If MaFeuille.Range("D3" ) = "Durand" Then
    MaFeuille.Range(F3) = F2 + E3
ElseIf MaFeuille.Range("D3" ) = "Dupond" Then
    MaFeuille.Range("F3" ) = F2 - E3
End If
             
End Sub
 
 
Merci de m'aider les copains :)


---------------
Moi, quand on m'en fait trop, je correctionne plus: je dynamite, je disperse, je ventile!
Reply

Marsh Posté le 04-04-2011 à 19:41:35   

Reply

Marsh Posté le 05-04-2011 à 10:03:10    

Change de catégorie, svp, tu confonds XML/XSL et XLS (extension des fichiers Excel) : les 2 n'ont rien à voir du tout. A mettre dans la cat VB/VBS/VBA.
 
Edit : pour ta question, pourquoi tu passes par du VBA alors qu'a priori, elle se résout avec des formules dans les colonnes, dont ton cas, avec une formule à base de =SI(....) ?


Message édité par rufo le 05-04-2011 à 10:05:01

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Marsh Posté le 05-04-2011 à 11:02:47    

Merci rufo
Effectivement, je n'avais pas pensé a passer par quelque chose de si simple, mais c'est toujours les choses simples qui marchent le mieux!
J'ai donc utilisé la formule à base de Si : =SI(D4="Dupond";ARRONDI(F3-(E4/2);2);ARRONDI(F3+(E4/2);2))
Ca marche du feu de Dieu !
Merci ton indication !
Je close :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed