Calcul Moyenne Visual BasinRésolu

Question

Bonjour à tous, j'ai un peu honte de poser cette question, mais ça fait un bout de temps que j'ai pas travaillé sur VB...je suis + habitué à C/C++: Voila, truc tout bête, je veux calculer une moyenne/note max/note min sur une entrée de diverses notes de controles...en terminant la saisie par une note >20: bref, voila mon code : Sub Macro2() 'dimensionnement des variables Dim som As Single Dim y As Single Dim min As Single Dim max As Single Dim x As Single Dim moy As Single 'initialisation des variables moy = 0 som = 0 min = 20 max = 0 y = 0 'entrée des données Do While x <= 20 x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20") If x < min Then min = x End If If x > max Then max = x End If som = som + x y = y + 1 moy = som / y Loop 'Résultats MsgBox (" note minimum=" & min) MsgBox ("note maximum=" & max) MsgBox ("moyenne des notes=" & moy) MsgBox (" merci de m'avoir utilisé !") End Sub bon, rien de bien méchant, mais j'ai completement zappé comment faire en sorte que la derniere valeur ( ne remplissant pas la condition <=20) ne soit pas prise en compte ... actuellement si j'entre : 10, 11, 1000, j'ai note min:10, note max 1000 et moy= 340.333... quelles instruction utiliser pour ne pas prendre en compte les notes >20 ? en C aucun probleme mais en VB je bloque betement :/ Merci pour votre aide ;) Axel

Utilisateur anonyme · Accepted Answer

Bon puisqu'il s'est couché, en reprenant ton post initial ca donnerait : Sub Macro2() 'dimensionnement des variables Dim som As Single Dim y As Single Dim min As Single Dim max As Single Dim x As Single Dim moy As Single 'initialisation des variables moy = 0 som = 0 min = 20 max = 0 y = 0 'entrée des données Do While x <= 20 x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20") if x > 20 then exit do If x < min Then min = x End If If x > max Then max = x End If som = som + x y = y + 1 moy = som / y Loop 'Résultats MsgBox (" note minimum=" & min) MsgBox ("note maximum=" & max) MsgBox ("moyenne des notes=" & moy) MsgBox (" merci de m'avoir utilisé !") End Sub

Utilisateur anonyme · Answer

Bonsoir,

Peut-être :
if x > 20 then exit do

Bonne prog.

ucfoutu · Answer

Bonjour,

déjà :
x =  InputBox("entrez  les notes  des éleves, terminez votre série de note par une valeur supérieure à 20")

ne signifie rien !
Comment pourrait-on "rentrer" plusieurs valeurs dans une "série", à l'aide d'une inputbox ?
On )peut toujours imaginer une suite de notes, séparées par un séparateur (dont tu ne parles pas), mais alors, si tel es le cas : comment expliquer :
If x < min Then  ??????? sinon par un non-sens (et ce serait de même sous :
je suis + habitué à C/C++: 


____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Ah pardon ===>> n'avait pas vu le loop ! ===>> oublie ma remarque


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

UCFOUTU: aucun probleme ;)
BANANA32: okay pour mettre if x>20  then exit do



mais vis a vis du code que j'ai posté, je ferme la boucle où et avec quelle instruction ? :s

ucfoutu · Answer

Je viens de tout relire, c'est tout, qu'il convient de corriger, y compris tes min et max dans leur définition... A moins que je n'aie pas compris ! Pour moi, ce serait donc ainsi, de A à Z : Dim moy As Double, som As Single, min As Integer, max As Integer, y As Integer som = 0 min = 0 max = 20 y = 0 Do While Val(x) <= max x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20") If Val(x) <= max And Val(x) >= min And IsNumeric(x) Then som = som + Val(x) y = y + 1 ElseIf Not IsNumeric(x) Then Else Exit Do End If MsgBox som & " " & y Loop moy = som / y MsgBox moy j'y ai ajouté les garde-fous nécessaires en ce qui concerne les saisies incohérentes éventuelles. ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonsoir ucfoutu,
InputBox renvoie un string il me semble, il faudrait penser à déclarer x et le convertir ensuite je pense.

ucfoutu · Answer

C'est précisément ce que j'ai fait en VB6, Banana32.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Je ne vois pas sa déclaration c'est pour cela que je pose la question.

Axeu · Answer

euh, je ne comprends pas bien l'utilité de ISNUMERIC(x) et val(x) ? j'aurai utilisé x à la place de val(x), mais isnumeric(x), je ne vois pas à quoi  ça sert 

et dans l'histoire, si j'avais fixé max=0 et min=20, c'etait pke j'ai "besoin" d'afficher les note Max et Min, et dans ton code, min et max ne sont pas affichables !

mon code est bon, dans l'ensemble, c'est juste l'histoire du DO WHILE / LOOP que je ne sais pas regler ! ca marchait tout a l'heure, mais j'ai touché à cette instruction et je ne me rappelle plus comment elle etait écrite !

Utilisateur anonyme · Answer

Donc en vb6 si j'écris x (single) = inputbox(blablabla) (string) ça marche ?

ucfoutu · Answer

Ecoute :
1) mon code (testé) correspond à ta demande qui, si j'ai bien compris, est :
- accepter toutes les notes comprises entre 0 et 20 inclus
- sortir de l'inputbox si saisie d'une note > 20
- calculer la moyenne des notes ainsi rentrées

2) Isnumeric est- une fonction de VB6 (ouvre MSDN, s'il te plait) et a pour rôle de vérifier la validité (numérique d'une saisie)

Maintenant, il y a une petite amélioration (fastoche) à apporter si tu saisis des notes avec décimales...
Mais je te laisse faire un peu. Je reviendrai sur ce point lorsque tu auras passé la ^première étape (c'est là ma philosophie et c'est également ma "religion") 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

justement : je veux afficher les notes MAX et MIN ...

ucfoutu · Answer

oui, Banana32 : on pourrait le faire, mais il faudrait alors gérer les erreurs de la quasi-même manière (car si l'intéressé est sur un système avec séparateur virgule, une saisie avec point provoquera erreur).
Mais oui, on peut le faire aussi, bien évidemment !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

could you help me ?

ucfoutu · Answer

Axeu ===>>
regarde le titre donné à ta discussion
Regarde également ta quest(ion, telle que posée
=>> tu as eu ta réponse à CETTE question.
Ta nouvelle exigence est un autre aspect (et fort simple à régler ... élémentaire, même) Il te suffit de deux variables la_note_min et la_note_max à alimenter au fur et à mesure, par simple expression conditionnelle ! Mais là, c'est tellement le B.A.BA, que je te laisse te "creuser les méninges" (si peu !)
Bonne chance.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

jveux pas paraitre chiant hein, mais a la base c'est mon poste et jvous demande une chose très simple : sub macro() x=0 y=0 DO WHILE x<20 x=inputbox("entrer valeurs") y=y+x loop msgbox("somme tant que les notes entrées sont <20" &y) end sub Là si jmet 10 11 30 jobtiens pas une somme de 21 mais de 51 ! DONC je veux pas que la note >20 soit prise en compte !! donc c'est quoi l'INSTRUCTION QUI FAIT QUE ça s'arrete quand la note est >20 ?

ucfoutu · Answer

Je ne veux pas être méchant, mais quand-même  serait-ce la mer à boire que de d'écrire, pour chaque note retenue (et uniquement si retrenue ... et on voit où dans mon code) :
If Val(x) <la_note_min then la_note_min Val(x) 
If Val(x) >la_note_max then la_note_max Val(x) 
en déclarant, avant la inputbox, que la_note_min 9999999 (tiens, pourquoi pas ? ) et que la_note_max - 888888 (et pourquoi pas, tiens donc également ) ou 20 pour la_note_max et 0 pour la_note_min, si tu veux ...
Allons Allons !
___________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

et ma QUESTION mene a mon post qui précisait bien : Voila, truc tout bête, je veux calculer une moyenne/note max/note min sur une entrée de diverses notes de controles...en terminant la saisie par une note >20: 
bref, voila mon code : ...

et on m'a pas du tout parlé de ça pour le moment

Axeu · Answer

if <min then
 min=x
end if
if max>x then
max=x
end if

c'est exactement ce que j'ai mi

ucfoutu · Answer

Là si jmet 10 11 30 jobtiens pas une somme de 21 mais de 51 !
DONC je veux pas que la note >20 soit prise en compte !! 

Avec TON code, ami, 
Pas avec MON code !
Allez ! bonne nuit !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

au temps pour moi : faute de frappe :

if x<min then 
min=x 
end if 
if x>max then 
max=x 
end if 

c'est exactement ce que j'ai mi

Axeu · Answer

oh désolé on parlait de ton code ! jcroyais que je demandais l'instruction qui ne prenait pas en compte la valeur >20 de MON code...
au temps pour moi, sincerement.

Utilisateur anonyme · Answer

D'ailleurs tu peux remplacer :
Do While x <= 20

par :

Do

Axeu · Answer

merci banana 32, désolé d'avoir pu paraitre agacé.

Mais ta solution ne fonctionne toujours pas 
 
ca ne change rien du tout :

     DO WHILE x<=20 
et   if x>20 then exit do
                              ne signifient pas la meme chose ?

ucfoutu · Answer

pas trop vite, Banana32 (on vien de m'appeler au téléphone et je ne me suis donc pas encore couché )
Le diablotin que je suis frappe "a" dans ton inputbox et "envoie tout en l'air" avec un splendide plantage 
Mais pas seulement ainsi  
Ah ! les garde-fous !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

et ton DO a la place de DO WHILE x<=20 ne change toujours rien  

corde+moi=solution

Utilisateur anonyme · Answer

ucfoutu t'as donné une solution fonctionnelle, l'as-tu testée ?

ucfoutu · Answer

Allez ... Je veux faire de beau rêves ===>>> donc ===>> Dim moy As Double, som As Single, min As Integer, max As Integer, y As Integer, la_note_min As Single, la_note_max As Single som = 0 min = 0 max = 20 y = 0 la_note_min = 500 '(et pourquoi pas ?) la_note_max = -100 ' je veux dormir tranquille Do While Val(x) <= max x = InputBox("entrez les notes des éleves, terminez votre série de note par une valeur supérieure à 20") If Val(x) <= max And Val(x) >= min And IsNumeric(x) Then som = som + Val(x) y = y + 1 If Val(x) la_note_max Then la_note_max Val(x) ElseIf Not IsNumeric(x) Then Else Exit Do End If Loop moy = som / y MsgBox "moyenne : " & moy & vbCrLf & "note mini : " & la_note_min & vbCrLf & "note maxi : " & la_note_max Voilà ! Je répète maintenant ce que j'ai dit plus haut : si saisie de notes avec décimales ===>> va falloir ajouter des petites choses (peu) à cet exemple qui traite des notes "entières". Bonne nuit (pour de bon, maintenant). ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

ElseIf Not IsNumeric(Val(x)) Then

Non ?

Axeu · Answer

je reste perplexe 

en correlation, c'est un ptit peu comme si en C++ j'avais
 (1)  if(i=0,i<20,i++)
qui est différent de 
 (2)  if (i=0,i<=20,i++)

 (1) une fois que la valeur est i-1, on ferme la condition
 (2) iune fois que la valeur est i, on ferme la condition

Bon c'est une analogie mais dans le délire c'est un peu pareil

ucfoutu · Answer

ElseIf Not IsNumeric(Val(x)) Then

non, Banana32. Isnumeric ne sait pas (erreur assurée) voir si un numérique est une expression numérique. Il lui faut un string ou un variant uniquement (et il regarde alors si ce string ou variant peut exprimer un numérique) .


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Salut Sub Macro2() 'dimensionnement des variables Dim som As Single Dim y As Single Dim min As Single Dim max As Single Dim x As Single Dim moy As Single 'initialisation des variables moy = 0 som = 0 min = 20 max = 0 y = 0 'entr?e des donn'es Do While x <= 20 x = InputBox("entrez les notes des ?leves, terminez votre s?rie de note par une valeur sup?rieure ? 20") If x > 20 Then Exit Do End If If x < min Then min = x End If If x > max Then max = x End If som = som + x y = y + 1 moy = som / y Loop 'R?sultats MsgBox (" note minimum=" & min) MsgBox ("note maximum=" & max) MsgBox ("moyenne des notes=" & moy) MsgBox (" merci de m'avoir utilis? !") End Sub testé

cs_ShayW · Answer

en plus c'est le meme code que Banana32
donc je n'ai  rien fait de mieux

ucfoutu · Answer

Alors ? Je me suis quand-même amusé à pousser le bouchon, pour que notre ami puisse apprécier les qualités et l'élégance de VB6. Ici : l'utilisateur est : - guidé de A à Z (y compris en lui faisant savoir, dans le titre, où il en est dans ses notes valables - obligé de saisir en utilisant le séparateur de décimales en vigueur sur sa machine - informé si erreur - protégé par différents garde-fous (de A à Z également, y compris si aucune note valable) : Private Type voila fini As Boolean erreur As Boolean valeur As Single sep As String End Type Private Sub Command2_Click() Dim x As String, Numeronote As Integer, sep As String, som As Single, moy As Single Dim min As Single, max As Single Dim toto As voila sep = traitons("1.1").sep Do While toto.fini False Or toto.erreur True titre = "saisie des notes : Note N° " & Numeronote + 1 msg = " entrez cette note entre 0 et 20 inclus, s'il vous plait" & vbCrLf & "si décimale, utiliser " & sep & " comme séparateur décimal" & vbCrLf & _ "terminez votre série de notes par une valeur supérieure à 20" x = InputBox(msg, titre) toto = traitons(x) If toto.fini = True Then Exit Do If toto.erreur Then MsgBox "erreur de saisie ! " & vbCrLf & "non numérique ou note négative ou séparateur décimal (c'est " & sep & " qui est attendue) non adéquat" Else som = som + toto.valeur Numeronote = Numeronote + 1 If Numeronote 1 Then min toto.valeur: max = toto.valeur If toto.valeur < min Then min = toto.valeur If toto.valeur > max Then max = toto.valeur End If Loop If Numeronote = 0 Then MsgBox "aucune note n'a été valablement attribuée ===>> je quitte donc ici" Exit Sub Else moy = som / Numeronote MsgBox "j'ai donc ici " & Numeronote & " note(s) valablement saisie(s)" & vbCrLf & _ "la note minimum donnée est : " & min & vbCrLf & _ "la note maximum donnée est " & max & vbCrLf & _ "pour une moyenne générale de " & moy End If End Sub Private Function traitons(Q As String) As voila Static sep As String, erreur As Boolean If sep = "" Then If IsNumeric("0,1") Then sep = "une virgule" Else sep = "un point" End If traitons.sep = sep Exit Function End If If Not IsNumeric(Q) Or Val(Q) < 0 Then traitons.erreur = True: Exit Function Else traitons.erreur = False traitons.valeur = CDec(Q) End If If traitons.valeur > 20 Then traitons.fini = True End Function J'aurais largement pu ne pas utiliser une structure, comme je l'ai fait ici. Je n'ai choisi ce procédé que pour permettre à notre ami de saisir au passage les capacités diverses de VB6 et l'encourager à les étudier ____________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Ah zut : attention :
J'ai malencontreusement mal inséré mes balises ===>>
ces lignes, restées "en dehors", doivent y figurer au tout début, avant la première procédure.
Private Type voila
  fini As Boolean
  erreur As Boolean
  valeur As Single
  sep As String
End Type 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Ah oui (oublié de le dire) : et j'ai bien entendu traité également le problème des notes éventuellement décimales (et en tenant compte de la machine de l'utilisateur) 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Très intéressant ton cheminement de fabrication de code ucfoutu.
Cette fois ci, tu respectes bien les types de variables, et cerise sur le gâteau, plus de Val

Utilisateur anonyme · Answer

Ah si, un tout petit mais qui ne se voit presque pas...

ucfoutu · Answer

ce val là est volontairement laissé car moins "gourmand" !
si tu veux absolument le remplacer, ce ne sera pas surtout pas par cdec, mais ainsi :
If Not IsNumeric(Q) Or Left(Q, 1) = "-" Then
(mais inutilement plus "gourmand", même si très peu. Et je suis un avare, en plus d'être un fou  )


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

@ucfoutu,
Je viens de tester ton code sur vb6, il fonctionne parfaitement.
J'ai également testé le mien (qui n'est que la copie de celui du demandeur avec une ligne supplémentaire).
Il fonctionne aussi (à condition, chez moi, de mettre des virgules dans InputBox)
Apparemment, le demandeur travaille sur Excel vu le titre de la sub.
Les 2 langages sont-ils 100% compatibles ?
Il est vrai que la remontée du demandeur :
Mais ta solution ne fonctionne toujours pas
... est assez vague.

ucfoutu · Answer

J'ai vu le titre de la sub, bien sûr, babana32,

Mais voilà ce qui arrive quand on ouvre une discussion là où l'ouverture n'est pas adéquate ===>> on est "servi" 

Avec VBA Excel, la réponse à son problème eût été grandement facilitée du fait de deux fonctions d'Excel que l'on peut utiliser en VBA. Hé hé !
Mais il a "posté" sous VB6 ? et en voulant "apprécier" par rapport à C++  ? === >> il y a "eu droit" et "à fond la caisse"  avec du VB6 .
Sous VBA/Excel, la réponse était beaucoup plus simple à divers titres, mais je ne veux dans ces conditions même pas en parler, puisqu'ici on "parle" VB6 
J'espère que d'autres (qui se trompent fréquemment de section) liront ce message et qu'ils commenceront à comprendre pourquoi il est indispensable de choisir adéquatement la section dans laquelle on ouvre sa discussion.
____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Axeu · Answer

Merci Banana 32 ca marche.
foutu, t'avais qu'à regarder la synthaxe pour voir que c'etait excel.

ucfoutu · Answer

foutu, t'avais qu'à regarder la synthaxe pour voir que c'etait excel.
Et non !
1) la syntaxe ne diffère nullement de celle de VB6
2) rien n'empêche, sous VB6, de nommer une procédure Macro2 (seul point qui peut "mettre la puce à l'oreille")

Tu es donc sous VBA, hein !
Hé bé ! tout ce boulot pour rien. Enfin non : pas pour rien, mais VBA de Excel était mieux placé pour faire tout cela tellement plus simplement 

Allez. Bonne chance.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Alors sous VBA/Exel (et ensuite tu vas te débrouiller maintenant seul, n'est-ce pas..) existent :
1) - la possibilité d'utiliser depuis VBA toutes les fonctions de Excel, don Min, Max et Average 
2) - la possibilité d'utiliser un autre type d'inputbox que le tien (et donc d'éviter d'avoir à rentrer une note > 20 pour terminer)
tout ce qui te fallait, quoi ! et (cerise sur le gâteau) avec possibilité de conserver les notes en mémoire. En réalité, les choses vont encore plus loin et remettent en cause la conception elle-même, depuis Excel, de ton appli. En rélité, même l'inputbox devient inutile, dans ce cas.
En ce qui concerne les points 1 et 2 : je t'invite à ouvrir ton aide VBA sur les mots WorksheetFunction et Application, à y fouiller (notamment en ce qui concerne ton inputbox), puis à travailler. Moi, tu m'as tellement fait travailler pour rien, que je vais maintenant prendre du repos et que je te laisse donc là !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Bonjour ucfoutu

j'ai lu qu'en vba le compiler ne crée pas 
d'exe 
Est ce pour cela qu'on dit
crée un macro excel ou macro word ?
Comment est exécuté ?

ucfoutu · Answer

Bonjour ShayW,
Les procédures de VBA tournent (hors mode création) exactement comme le run de VB6 (avant d'avoir fait l'exe de VB6)

En ce qui concerne maintenant le mot "macro" : je sais que nombreux sont ce qui l'associent immédiatement à MsOffice et analogues, mais c'est une tendance "restrictive" dénuée de sens.
La définition d'une macro est nettement plus extensive.
En VBA, l'habitude est de parler de "macros", mais en raccourci de, en réalité : "Macros-Clavier"
Quant à la procédure que notre ami avait baptisée "Macro2", ce n'est pas une "macro-clavier", mais tout simplement une procédure . On aurait pu donner ce même nom (Macro2) à une procédure de n'importe quel langage qui, comme VB, gère des procédures.
voilà. 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

voila un petit extrait de texte qui te fera comprendre ce qui se passe en réalité en ce qui concerne la terminologie utilisée par MsOffice :*
Certains logiciels ou environnements permettent d'associer des suites d'instructions complexes à des touches clavier  on parle alors de macros clavier.

Certains logiciels tels que ceux de la suite bureautique Microsoft Office contiennent un petit langage de programmation (Visual Basic for Applications - VBA) permettant de commander les fonctionnalités du logiciel. On appelle souvent les programmes dans ce genre de langages des macros.
Et ce sont en effet des macros, mais comme toutes les autres procédures de langages évolués (des macros) !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

La seule fonction Dir, par exemple et entre autres, est à elle-seule une macro (pour être précis : une macro-fonction)
on a ainsi des macro fonction, des macros instructions, des macros clavier, etc...
Par extension : toute fonction, toute procédure ... qui stockent des instructions à exécuter ensuite sont appelées des macros (macros procédures, macro fonctions, etc ...)
J'espère t'avoir éclairé un peu 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Mais j'espère que axeu, qui dit être plus à l'aide avec C++, n'ignore pas tout cela
Dans le cas contraire, il pourra utilement lire ceci

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut, 

IsNumeric retourne True si le type de données de Expression est Boolean, Byte, Decimal, Double, Integer, Long, SByte, Short, Single, UInteger, ULong ou UShort, ou un Object contenant l'un de ces types numériques. Il retourne également True si Expression est un Char ou String qui peut être correctement converti en nombre.

IsNumeric retourne False si Expression a pour type de données Date ou Object et qu'il ne contient pas de type numérique. IsNumeric retourne False si Expression est un Char ou String qui ne peut pas être converti en un nombre.

Pardon pour le copier/coller 

CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

tu as raison, acive ! VB6 me parait finalement très permissif à ce propos !
Mais cela ne change rien en ce qui concerne une réponse à la proposition faite de modifier
ElseIf Not IsNumeric(x) Then
en
ElseIf Not IsNumeric(Val(x)) Then
surtout pas ! Et se méfier des largesses de VB !
Le preuve ?
x = "hhhdyrbbbh" ' qui n'est donc pas un numérique
MsgBox "avec isnumeric(x) " & IsNumeric(x) & " (bonne réponse)" & vbCrLf & _
"avec isnumericval((x))" & IsNumeric(Val(x)) & " (mauvaise réponse !)"

L'explication est que val("hljmjm,k*! *&&................&&&") 0 et que 0 est un numérique >> et voilà comment on se plante sans même s'en apercevoir 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

et donc isnumeric(val(x)) retournera toujours True que x soit ou non numérique et quel que soit le contenu de x 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Salut UC,

Moi j'appelle ça les mystères du VB 

Dim n As String '(Donc du texte)

si l'on dit que:
n = "3,45"
la valeur de n (val(n)) sera de 3

Par contre si on dit que:
n = "3.45"
la valeur de n (val(n)) sera de 3,45

Le isnumeric c'est un booléen uniquement pour nous indiquer si c'est un chiffre ou pas
Mais bizarrement quand on lui demande si:
IsNumeric ("3.45") 'il nous dit FALSE
Tandis que "3,45" c'est TRUE

Ce n'est qu'avec l&#8217;expérience qu'on commence à connaitre par bien (à force de se tremper) et qu'on arrive à ne plus faire d'erreurs...



CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Ça y est ça me revient...
Le val() affiche la valeur numérique des premiers caractères
par exemple Val("3sdf") sera 3
ou val("37sdf") sera 37, même si tu mets des chiffres après
Val("37sdf45") sera aussi 37

Au fait il prend les valeurs numériques jusqu'à trouver un caractère non numérique (valeur zéro)
Val(sdf37) sera 0 parce qu'il a trouvé un non numérique et fini sa conversion.

Le IsNumeric("3.45") est False c'est normal parce que le "." n'est pas considéré comme numérique contrairement a la ","
Le IsNumeric considère False à partir du moment dans la chaine il trouve un caractère qui n'est pas numérique

Bref j'ai aussi du mal à me comprendre, ne t'inquiètes pas 




CF2i - Guadeloupe
Ingénierie Informatique

Calcul Moyenne Visual Basin

55 réponses

Votre réponse

Discussions similaires