Userform

J

jeanphi

XLDnaute Occasionnel

• 26 Février 2008

• #2

En fait pour être plus précis, je parviens à sommer le montant logiciel ou matériel (voir détail ci dessous) mais par contre je n'arrive pas à coder qu'en fonction du mois sélectionné, la macro me somme que les montant correspondant au mois sélectionné!!! 😡

Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Worksheets("Impact").Select
total = Application.WorksheetFunction.Sum(Range("G15:G26"))
MsgBox "Le montant de l'impact Logiciel 2008 est actuellement de " & Format(total, "### ##0.00") & "€", vbInformation, "Impact Logiciel 2008"
End If
End Sub

 

Vote positif 0 Vote négatif

G.David

XLDnaute Impliqué

• 26 Février 2008

• #3

Re : Userform

question
pourquoi tu passes par un Userform une simple somme matricielle donnerait le même résultat
=SOMME(SI(MOIS(C8:C100)=N17;F8:F100);0)

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 26 Février 2008

• #4

Re : Userform

Salut Jeanphi, G.David, bonjour à tous sans oublier les autres.

Un exemple de ce qu'on peut faire avec un USF.

 

Pièces jointes

• Impact E.zip

  13.8 KB · Affichages: 42

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 26 Février 2008

• #5

Re : Userform

Bonjour a tous
il n'y aurait pas quelque part un userform type à télécharger que l'on puisse modifier à souhait ?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2008

• #6

Re : Userform

Bonjour

cela peut-il convenir

fichier

pour le lancement voir barre de menu à droite de l'écran

Cdlt

RGI

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 26 Février 2008

• #7

Re : Userform

Salut Tactic,

Qu'entends-tu par Userform type ?

Dès que tu insères un nouvel USF, tu peux le manipuler à ta guise (sans le malmener toutefois).
Pour ma part, j'ai crée un fichier USF.xlt* avec un bouton pour ouvrir un USF. Dans celui-ci, je n'ai qu'un bouton de sortie.

* c'est un fichier que je prends comme modèle quand j'ouvre un nouveau classeur.

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 26 Février 2008

• #8

Re : Userform

Bonjour et merci pour ton aide ton code est super!
Par contre il me manque un truc: je souhaiteria aussi pouvoir cumuler le montant matériel et le montant logiciel pour un mois donné... Comment faire? Encore merci excel lent
pour ce qui est de la formule matricielle, franchement je trouve plus sympa la macro 🙂

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 26 Février 2008

• #9

Re : Userform

par contre j'ai du mal à intégrer ce que tu as fait dans mon classeur...
qu'y a t'il dans ta feuille 3?

 

Dernière édition: 26 Février 2008

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2008

• #10

Re : Userform

Re:
as-tu regardé le fichier que j'ai envoyé ?

@+++

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 26 Février 2008

• #11

Re : Userform

Re à tous sans oublier les autres,

Avec cumul et une autre présentation (inspirée du fichier de Gilbert).

 

Pièces jointes

• Impact E2.zip

  13.8 KB · Affichages: 44

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 26 Février 2008

• #12

Re : Userform

oui merci gilbert, je t'ai déjà répondu
il est super!! merci pour ton aide!!
petite question: où sont abritées les valeurs du combobox?

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 26 Février 2008

• #13

Re : Userform

super!!🙂
encore merci à vous deux!!!!

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 26 Février 2008

• #14

Re : Userform

gilbert



une dernière question
j'aimerais que les valeurs des combobox soient au format €uros
comment faire? 🙁

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2008

• #15

Re : Userform

re jeanphi

pour le sigle €
modifier légérement le code comme ceci
Private Sub CommandButton1_Click()
Sheets(1).Select
Application.ScreenUpdating = False
Traitement
If Me.OptionButton1.Value = True Then
Me.TextBox1.Value = Sheets(3).[a1].Value & " €"
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
End If
If Me.OptionButton2.Value = True Then

Me.TextBox1.Value = ""
Me.TextBox2.Value = Sheets(3).[b1].Value & " €"
Me.TextBox3.Value = ""
End If
If Me.OptionButton3.Value = True Then

Me.TextBox1.Value = Sheets(3).[a1].Value & " €"
Me.TextBox2.Value = Sheets(3).[b1].Value & " €"
Me.TextBox3.Value = Sheets(3).[c1].Value & " €"
End If

effacement
End Sub

les items de la combo sont dans la feuille 2 qui est masquée

la feuille 3 doit être présente et vide

🙂

Cdlt

RGI

 

Vote positif 0 Vote négatif