Compteur sous OpenOffice 1.1.4

Salut,

Tu ouvres ton fichier (le module fonctionne si tu commence à la ligne 2 et tu n'as que 5 colonnes et 15 lignes - à toi de modifier les valeurs si t'en as plusieures lignes et colonnes.

1. Pour inserer le code tu vas dans Outils/Macros/Macro

2. Tu verras une boîte de dialog qui s'ouvre.

3. Dans la zone Nom de la macro tu donnes un nom à ta macro.

4. Après dans l'arborescence que tu vois à gauche tu verras ton fichier (s'il n'as pas encore un nom - donc il n'est pas enregisré - tu verras Sans nom1).

4.1 Tu sélectionnes(un clic sur lui) ton fichier.

5. Tu fait clic sur le bouton Nouveau que tu vois à droite.

6. Il s'ouvrira un fenêtre dans laquelle tu verras ta macro que tu as crée

Sub ta_macro

End Sub

7. A l'intérieur tu vas copier le code que tu vois plus bas.

8. Pour l'éxécuter tu doit faire clic sur la 2ème icône en partant de gauche (elle a une fléche orientée vers le bas). De toute façon si tu tient un peut le pointeur de la souris tu verras l'infobulle "Exécuter"

	Dim myCalc As Object, mySheets As Object
	Dim mySheet As Object

	myCalc=thisComponent
	mySheets=mycalc.Sheets
	mySheet=mySheets.getByName("Feuille1") 
	
	nb=0
	For x=0 to 4 'les colonnes
   	    For y=0 to 14 'les lignes
     		 If mysheet.getCellByPosition(x,y).string=17 then
       		      nb=nb+1 'on compte le numéro 17       
     		  End If
   	    Next y   
	Next x
	msgbox "Le numéro 17 est sortie " & nb & " fois."