Macro en VB sous StarOffice 5.2.... probleme

Signaler
-
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Voila, je suis a la fac en 1er année de deug MIAS.
Je dois realiser un exo sous staroffice sur un tableau comportant des notes....
J'ai 20 colonnes qui sont utiliser, dont 13 contenant des notes. Mon probleme est le suivant voici la question posée:
=======question==========
ecrire une procédure "montrerLesLignes" qui colorie les lignes qui contiennent une note particuliere. PLus precisement, cette procedure colorie dans une couleur indiqué en argument toute la ligne d'un etudiant ayant obtenui une note egale a la note de reference passée egalement en argument. La note est rechercher dans la colonne dont le numero est indiquer en argument.
======= fin question =========
Mon probleme est que je n'arrive pas a executer une procedure qui comporte des arguments... le prof a toujours utiliser une fonction pour cela, mais la ca ne marche pas!
Voici mon code

============code============
sub meilleur(byval couleur, byval note, byval cole as long)
dim i as integer
i=3
for i=4 to 13
if cells(cole,i).value = note then
cells(1,i).BackGroundColor = couleur
cells(2,i).BackGroundColor = couleur
cells(3,i).BackGroundColor = couleur
cells(4,i).BackGroundColor = couleur
cells(5,i).BackGroundColor = couleur
cells(6,i).BackGroundColor = couleur
cells(7,i).BackGroundColor = couleur
cells(8,i).BackGroundColor = couleur
cells(9,i).BackGroundColor = couleur
cells(10,i).BackGroundColor = couleur
cells(11,i).BackGroundColor = couleur
cells(12,i).BackGroundColor = couleur
cells(13,i).BackGroundColor = couleur
cells(14,i).BackGroundColor = couleur
cells(15,i).BackGroundColor = couleur
cells(16,i).BackGroundColor = couleur
cells(17,i).BackGroundColor = couleur
cells(18,i).BackGroundColor = couleur
cells(19,i).BackGroundColor = couleur
cells(20,i).BackGroundColor = couleur
end if
next i
end sub

===========================fin code============

un autre probleme et que je n'arrive pas a modifier une ligne complete, je suis obliger de changer dans une ligne colonne par colonne comme vous pouvez le remarquer!
Si quelqu'un pouvais m'aider...
merci

1 réponse

Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Bonjour, tu trouveras plusieurs exemples/solutions sur ce site dans les rubriques "optimisation de code" ou "math". Ou depuis le moteur de recherche avec les mots clef "algorithme, pigeon". Si malgres cela tu ne trouves pas de reponse et si ta question est toujours d'actualité, tu peux lancer une nouvelle discussion sur le forum.

Bonne pr@g