variable dans une fonction

Question

Bonjour le forum, 
Par un msgbox je souhaiterais demander à ce que l'on rentre un mot
par exemple "Divers" et que ce mot s'inscrive dans la fonction sommeprod
autrement dit je souhaiterais mettre une variable à la place de "Divers" dans la fonction pour avoir le choix du mot à entrer
et pouvoir placer le résultat de sommeprod dans une textbox
=SOMMEPROD((F6:F13="Divers")*(I6:I13))
Pouvez vous m'aider  s'il vous plait
Merci
<config>Windows 8.1 excel 7

michel_m · Answer

Bonjour
Par un msgbox je souhaiterais demander à ce que l'on rentre un mot 
ce ne serait ce pas plutôt un inputbox ?

max850 · Answer

Oui Michel Inputbox
sorry

michel_m · Answer

Je viens de jeter un œil et je n'y comprend rien
déjà on ne sait pas de quelle feuille provient plage1 et plage2...
en 1° ligne  j'ai le nom de cette activité qui apparait  en 1° ligne dans le textbox "entrée".... ?
Comme il n'y a pas d'exemples activité -recette ou dépenses (où ?), il est difficile de rentrer dans une étude de solution...

max850 · Answer

plage1 et plage2 viennent de la feuille "journalbord"
jai modifié de la façon suivante
mafeuille = Sheets("journalbord").Range("C13")
mafeuille = Evaluate("Sumproduct(" & Plage2 & "*(" & Plage1 & "=""" & Chaine & """))")
Dans le menu principal en cliquant sur Journal de bord je peux compléter
la feuille"journal dépense". En cliquant sur le bouton valider je retrouve ces infos dans la feuille "journalbord"
je reviens au menu principal je sélectionne mon activité et en cliquant sur Bilan par activité j'ai la somme qui s'affiche dans la textbox.
Mais je viens de m'percevoir qu'en rentrant plusieurs activités dans ma feuille journaldepense il y a toujours la meme somme qui s'affiche dans la textbox du bilan par activité
j'ai sans doute un problème dans ma formule Evaluate

momo · Answer

Bonjour
j'ais modifier un peux ton userform1
http://www.cjoint.com/c/GBwuOxqHhMd
A+
Maurice

max850 · Answer

Bonjour Maurice je ne parviens pas à ouvrir ton fichier

momo · Answer

Bonjour
en VBA dans les Outils\Reference 
reactive OCX SP6
A+
Maurice

max850 · Answer

ok Maurice
tu m' as devancé
je suis allé dans références et j'ai décoché le manquant : microsoft ..
et ai coché la ligne du dessous qui avait exactement le même libellé excepté manquant et ca marche maintenant
je reviens vers toi pour te dire quoi au sujet de ton userform
merci

momo · Answer

Bonjour
sans listView
http://www.cjoint.com/c/GBxlAULERxl
A+
Maurice

max850 · Answer

Maurice il me semble que la deuxième sans listview est plus rapide
en tous les cas la présentation du userform est plus légère et c'est celle que je préfère
dans les deux exemples  j'ai juste apporté une modif 
pour avoir le plan comptable correspondant à la checkbox
dans ce userform1 j'obtiens le numéro de la pièce en le sélectionnant avec la combobox correspondante 
Serait il possible d'utiliser disons la variable 100 qui se trouve dans la colonne k1 de la feuille de variable feuil1 pour qu'elle s'incrémente automatiquement de +1 et placer ce nouveau nr dans la textbox12 . A chaque lancement du userform j'aurais donc 100 ensuite 101 102 etc ....
merci

momo · Answer

Bonjour
regarde aussi UserForm5
http://www.cjoint.com/c/GBxpVkz7hKl
A+
Maurice

max850 · Answer

Super Maurice
j'avais utiliser cela
' **** remplace: [Private Sub CommandButton2_Click()]
Private Sub cmdeValider_Click()
 Application.Visible = True
Static Compteur As Long
    Compteur = Compteur + 1
    TextBox12.Value = Compteur
mais je ne faisais plus appel à ma variable dans feuil1
Ta solution me convient parfaitement
Merci Maurice tu es un vrai chef
Pour moi ce sera tout pour ce soir

momo · Answer

Bonjour
Voila encore une modife
http://www.cjoint.com/c/GByjXqeK2f8
A+
Maurice

max850 · Answer

Bonjor Maurice
merci our ton nouveau fichier
voilà ce qie j'ai fait ce matin
comme je n'ai que deux alternatives  entre bqe et cais
En utilisant ton dernier modèle d'hier 
j'ai rendu textbox10 et combobox3 invisible
pour nes avoir d'erreur
et ai modifie le textbox17_change de la façon suivante
https://www.cjoint.com/c/GBynuM4ZsXu
Private Sub textbox17_change()
   If TextBox17.Value = "Chèque" Or TextBox17.Value = "Virement" Then
      TextBox19.Value = "BQE" & Feuil1.Range("K1").Value + 1
      Else
         TextBox19.Value = "CAI" & Feuil1.Range("K1").Value + 1
   End If
 TextBox19.Locked = True

momo · Answer

Bonjour
encore des modifes
et aussi dans UserForm2
http://www.cjoint.com/c/GBypAAtJIv8
A+
Maurice

max850 · Answer

Merci Maurice pour ces modifs 
en particuliers le select case et Compte recettes  par défaut
j'ai un petit soucis avec le userform1
lorsque je clique sur Quelle activité txt9 combo8 
l'activité s'affiche dans la txtbox 17 combo 10 en lieu et place 
de moyen de règlement et en modifiant les 3 premiers caractères de la
ref pièce
je cherche tout cela provient mais tu auras beacoup plus vite fait que moi
j'ai également enlevé le premier contrôle sous "if checkbox1.value ..

momo · Answer

Bonsoir
voila la modife
mes tu devrais refaire ton userform 
http://www.cjoint.com/c/GByu016jOx8
A+
Maurice

max850 · Answer

Bonsoir Maurice
Ai modifié ta dernière modife pour lire dans le
Select case
   Case else
           textbox6.locked = true
           Ref = "CAI"
pour que l'on puisse rien inscrire dans ce champ 
lorsqu'il s'agit d'une opération de caisse
j'ai supprimé le label qui ne servait plus sur le userform1
je vais mieux présenté ce userform.
j'ai fait également le ménage dans le code
je vais maintenant finaliser ce userform1 avant de poursuivre dans le userform2 etc .....
j'aurai sûrement encore besoin de tes lumières .......
merci une novelle fois maurice

momo · Answer

Bonjour
Voila un model de gestion plus simple en saisie
http://www.cjoint.com/c/GBAkS2fNGpn
bon courage
A+
Maurice

max850 · Answer

Bonjour Maurice
j'ai chargé les Windows common controls 6.0(sp6)
les controles commun vb6.0 ont té installé avec succès
Mais en ouvrant ton fichier j'ai un  problème avec le DTPICKER1
En regardant dans  sysWOW64 j'ai bien MSCOMCTL.OCX mais pas de trace de MSCOMCT2.OCX
Comment puis je résoudre ce problème ?
merci

momo · Answer

Bonjour
en principe le MSCOMCT2.OCX  se trouve dans le systeme32
car ses un OCX 32 bites
A+
Maurice

momo · Answer

Bonjour
voila un exemple sur 2 banque avec une recape
http://www.cjoint.com/c/GBBndObFPGq
A+
Maurice

max850 · Answer

le MSCOMCT2.OCX se trouve dans le systeme32
rien trouvé dans system32

momo · Answer

Bonjour
il faut déjà le Télécharger et tu le trouve sur le web
A+
Maurice

max850 · Answer

Rebonsoir Maurice
Ca y est j'ai pu télécharger mscomct2 que j'ai placé dans syst32
dans sys32 j'ai un dossier "dossier.ocx" contenant mscomst2 du 08/05/2012
et mscomctl du 09 01 2013
dans systwow64 il y  a aussi mscomctl
je peux maintenant entrer dans ton avant-dernier modèle et le lancer sans aucun problème 
mais impossible d'entrer dans ton dernier modèle (etat saisies et recap) je peux visualiser ce qu'il contient (userform et code) mais dès que je lance j'ai comme message : impossible de charger l'objet car il n'est pas disponible sur cette machine.

momo · Answer

Bonjour
voila le dernier jus
http://www.cjoint.com/c/GBBsnuAqJjq
A+
Maurice

max850 · Answer

Maurice j'ai le même problème que dans ta prédente mouture avec ce dernier jet
Sub MiseForm()
F00.Visible = 2
F01.Visible = 2
F04.Select
ActiveWindow.DisplayGridlines = False
Application.Goto [A1], True
F04.ScrollArea = "A1"
End Sub
j'ai d'abord impossible charger l 'objet et ensuite projet ou bibliotheque introuvable avec [A1] en bleu
mais ton travail me laisse pantois .. vraiment ...

momo · Answer

Bonsoir
bizare  j'ais tester avec la version excel 2002 a 2010
en XP & window7
la a toi de voir
A+
Maurice

max850 · Answer

Pourquoi çà ne marche pas avec deux dernières versions : je cherche, je cherche 
j'ai excel 2007 win 8.1 donc je ne devrais pas avoir de soucis
je te tiens informé
@+

momo · Answer

Bonjour
test sur un autre micro pour voir si tu a les même problème
bon voila le dernier 
http://www.cjoint.com/c/GBClFWVnuTn
A+
Maurice

max850 · Answer

Bonjour Maurice
j'ai eu la même idée mais je ne pourrai pas le faire avant ce soir
car je n'ai pas d'autre micro sous la main
il semblerait que ce soit cette ligne qui se présente dans te trois derniers travaux qui pose problème
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
j'ai rechargé à nouveau mscomctl j'ai toujours la même réponse
Type défini par l'utilisateur non défini
il y a peut être un conflit ou un erreur au niveau de l'emplacement des fichiers ocx ou j'ai peut être omis une manip pour activer ces fichiers

eriiic · Answer

Bonjour,
sur un OS 64 bits les dll 32 bits doivent être mises dans syswow64, pas dans system32.
eric

max850 · Answer

Bonjour Eric
j'ai dans system32 un dossier appelé dossier.ocx dans lequel figure MSCOMCTL 
 et j'ai également dans system32 un fichier appelé comctl32.ocx
Dans sysWOW j'ai le fichier MSCOMCTL
je ne vois nulle part (system32 et WOW64) le fichier mscomct2
 faut il supprimer le dossier dossier.ocx dans system32 et comment ?

max850 · Answer

Bonjour eric
j'ai copié et enregistré mscomctl avec la command en tant qu'administrateur
saisie dans la zone de recherche windiws
regsvr32 c:\windows\syswow64\mscomctl.ocx 
operation réussie
ensuite j'ai  effectué la commande
regsvr32 c:\windows\system32 /u mscomct2.ocx et mscomctl
modules introuvables
j'ai renommé le dossier.ocx
j'ai redémarré le pc
quand je lance mon application j'ai maintenant le message d'erreur suivant
&H80040111(-2147221231) et suis obligé de passer par le gestionnaire de tâches pour pouvoir sortir de cette application
je suis bien embarrassé ....

Variable dans une fonction

34 réponses

Discussions similaires

Newsletters