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."