xasak
Messages postés2Date d'inscriptiondimanche 16 octobre 2011StatutMembreDernière intervention15 novembre 2011
-
15 nov. 2011 à 01:22
NHenry
Messages postés15156Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention29 septembre 2024
-
16 nov. 2011 à 21:38
Bonjour, (J'utilise le vba d'excel)
J'ai créer un petit tableau qui fait apparaître 12 chiffres, de manière aléatoire, compris entre -100 et 100 dans la ligne 1
Je veux maintenant trouver la plus grande somme entre ces chiffres
Ex : Est-ce que A1+B1+C1 est plus grand que D1+E1+F1+G1+H1 ?
Les sommes doivent comprendre des chiffres adjacents (je ne peux sommer A1 et C1 sans sommer B1).
J'ai compris qu'il y a 66 sommes au total, soit 11 avec la case A1, 10 avec B1, 9 avec C1, etc. C'est une série arithmétique ((11*12/2)=66)
Comment trouve le max de ces sommes sans comparer 66 sommes entre elles. Au fond, comment faire court ?
Voici ce que j'ai essayé...
Sub Bouton1_Clic()
Dim SequenceMax(12) As Double
Dim j As Integer
Dim i As Integer
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018209 15 nov. 2011 à 07:14
Bonjour,
Avant toute autre chose : tu développes donc sous VBA et non sous VB6 !
Nous te serions reconnaissant de bien vouloir dorénavant apporter le plus grand soin au choix de la section dans laquelle tu ouvres une discussion.
Nous te serions également reconnaissant de bien vouloir présenter un code indenté et entre balises codes.
Quelle est enfin la signification de ces lignes (que font-elles donc là ?) :
k = b To l
l = c To l
m = d To l
n = e To l
o = f To l
p = g To l
q = h To l
r = i To l
s = j To l
t = k To 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
xasak
Messages postés2Date d'inscriptiondimanche 16 octobre 2011StatutMembreDernière intervention15 novembre 2011 15 nov. 2011 à 14:26
Oubliez ce que j'ai fait, c'est vraiment n'importe quoi. Voici quelque chose qui résume mieux ce que je veux faire. Je l'ai fait pour la cellule A1 (11fois) maintenant il manque 55 sommes à faire (C'EST LONG !!!).
Sub Bouton1_Clic()
Dim SequenceMax(12) As Double
Dim j As Integer
Dim i As Integer
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018209 15 nov. 2011 à 15:44
toujours pas de code indenté et entre balises
Bonne chance dans tes hésitations diverses, donc.
____________________
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
NHenry
Messages postés15156Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention29 septembre 2024159 16 nov. 2011 à 21:38
Bonjour,
Regardes le point 2 de ma signature.
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site