Userform

[jeanphi]

Bonjour

Dans le fichier joint je souhaiterais pouvoir gérer à partir d'un userform la problématique suivante:
Je souhaites qu'en fonction du mois de la colonne C, je puisse faire le total de la colonne F (total logiciel) ou J (total matériel)
Le total matériel ou logiciel (voire les deux) est choisi grâce à un bouton radio et le mois est chosi grâce à un checkbox
Pour lancer le calcul, il faut que cela se fasse via le bouton de commande "Montant impact"
Quelqu'un peut t'il m'aider à développer cet petit utilitaire car je galère depuis plusieurs jours 🙁
Merci

 

[jeanphi]

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

 

[G.David]

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)

 

[Excel_lent]

Re : Userform

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

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

 

[tactic6]

Re : Userform

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

 

[gilbert_RGI]

Re : Userform

Bonjour

cela peut-il convenir

fichier

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

Cdlt

RGI

 

[Excel_lent]

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.

 

[jeanphi]

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 🙂

 

[jeanphi]

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?

 

[gilbert_RGI]

Re : Userform

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

@+++

 

[Excel_lent]

Re : Userform

Re à tous sans oublier les autres,

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

 

[jeanphi]

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?

 

[jeanphi]

Re : Userform

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

 

[jeanphi]

Re : Userform

gilbert



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

 

[gilbert_RGI]

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