Flux rss
Collection CommentÇaMarche.net
Rechercher : dans
Par :

Compteur sous OpenOffice 1.1.4

Arno59, le samedi 16 juillet 2005 à 13:49:13 
 Signaler ce message aux modérateurs

Bonjour,

Je souhaiterais totaliser le nb de chiffres sortants de 1 à 50:
ce tableau est réalisé sous le prog calc de OpenOffice

Boule 1 - Boule 2 - Boule 3 - Boule 4 - Boule 5

01 11 12 23 42
35 36 42 46 49
04 05 23 25 28
06 08 14 15 45
04 08 10 18 21
06 07 32 37 47
03 08 11 17 50
02 24 31 48 50
06 07 13 28 47
12 17 31 32 40
07 12 21 26 44
03 09 35 39 42
03 10 13 24 47
06 28 31 38 42
07 11 25 31 50

Sélection de colonne, chiffre de 1 à 50 puis les afficher des un endroit.
Comment Créer un compteur ?

Configuration: PC 1 : 
<br><br>carte mère: msi.com :  KM3M-V
<br><br>Processeur : AMD XP 2400 +
<br><br>Disque Dur 1 : ExcelStore : 80 Go
<br>sous Linux Mandrake 10.1
<br>Disque dur 2 : 10 Go Win XP Pro
<br><br>Carte graphique :
<br><br>Carte son
<br><br>
<br><br>PC 2 :  (ancêtre) Windows 98SE
<br><br>Carte mère : 
<br><br>Processeur AMD 300 MHZ
<br><br>Disque dur : Maxtor  : 850 Mo
<br><br>Disque Dur : Seagate : 2 Go
<br><br>Carte graphique :
<br><br>Carte son :
<br><br>

1

Arno59, le lundi 18 juillet 2005 à 17:01:44

Bonjour,

Y-a-t-il quelqu'un qui aurait la résolution de ce problème ?

Répondre à Arno59

2

lami20j, le lundi 18 juillet 2005 à 19:01:50

Salut,

donc tu as 5 colonnes et x lignes

Fait un truc de genre.

nb=0
For r=1 to x 'admettons que les chiffres commencent à la ligne 2 (le 1er index c'est 0)
   For c=0 to 4 (on commence à la colonne 1, l'index 0)
     if getCellByPosition(r,c).value=17 then
       nb=nb+1 'on compte le numéro 17
     end if
   Next c
Next r

Msgbox nb

Répondre à lami20j

3

Arno59, le mardi 19 juillet 2005 à 15:53:16

Merci de ton aide,

Ou copier cet algo ?

Répondre à Arno59

4

lami20j, le mardi 19 juillet 2005 à 19:35:30

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

Répondre à lami20j

5

lami20j, le mardi 19 juillet 2005 à 20:12:19

Re,

Tu n'as pas vraiment besoin d'un module OOoBasic.
Tu peux tu simplement utilisé la fonction NB.SI.

dans une cellule tu écrit

=NB.SI(A2:E16;"17")
si le format de cellules et texte


ou
=NB.SI(A2:E16;17)

si le format et nombre, mais dans ce cas tu dois utiliser un format personnalisé pour avoir 01 dans une cellule, à toi de voir

La plage A2:E16 tu doit la remplacée avec ta plage.

Répondre à lami20j

6

 Arno59, le mercredi 20 juillet 2005 à 11:50:38

Bonjour,

Merci pour les 2 fonctions, elles fonctionnent correctement.

Mon problème est résolu, j'ai choisi la méthode :

=NB.SI(A2:E16;"17")

Et encore merci

Répondre à Arno59
NFS Carbon, problème installation patch 1.4 (Résolu) Bonjour, j'ai installé Need For Speed Carbon sous Windows Vista et je me suis rendu compte qu'il fallait que j'installe le patch 1.4 pour que le jeux fonctionne correctement. Seulement voilà, au cours de l'installation du patch un étrange message... www.commentcamarche.net/forum/affich-10991957-nfs-carbon-probleme-installation-patch-1-4
Jailbreak Ipod touch 1.1.4 (Résolu) Bonjour, Je voudrais une méthode sûr pour débloquer son Ipod touch 1.1.4 en 8Go. J'aimerais bien avoir une réponse point par point avec des étapes précises. Je sais qu'il existe une méthode avec Ziphone mais j'aimerais savoir si je dois mettre mon... www.commentcamarche.net/forum/affich-5400619-jailbreak-ipod-touch-1-1-4
192.168.0.1 / 192.168.1.1Qu'est-ce que 192.168.0.1 ? 192.168.0.0 sont des réseaux privés (non routables) utilisés pour les réseaux personnels ou les réseaux internes de petites entreprises.Les réseaux de type 192.168.0.0 permettent d'avoir jusqu'à 254 machine en réseau... www.commentcamarche.net/faq/sujet-8102-192-168-0-1-192-168-1-1
Iphone 1.1.4 application .ipa (Résolu)Bonjour, j ai un Iphone jailbreaké en version 1.1.4 , je telecharge des applications gratuites de itunes app store mais jarrive pas a les installer sur mon iphone ! sur itunes==> appareils ==> mon iphone j ai pas la barre application ( avc resume ,... www.commentcamarche.net/forum/affich-10148917-iphone-1-1-4-application-ipa
Patch 1,4 CODWAW est sorti ! (Résolu)Bonjour, Certains ne l'attendaient plus, mais le premier pack de maps dédié à Call of Duty : World at War est enfin disponible sur PC. Il est accompagné du patch 1.4 qui corrige divers bugs et apporte plusieurs améliorations de gameplay. Le tout... www.commentcamarche.net/forum/affich-11936367-patch-1-4-codwaw-est-sorti
UML 1.4 et 2.0 ? (Résolu)Bonjour, J'aimerai savoir, quelle est la différence entre UML 1.4 et UML 2.0? Si possible avec beaucoup de renseignements Merci d'avance www.commentcamarche.net/forum/affich-2025894-uml-1-4-et-2-0
Acer TravelMate 5720-2A2G16Mi Intel Core 2 Duo T5270 1.4 GHz / 2048 Mo / 160 Go / TFT15.4 / DVDRW / A 2 2 A 2G 2G, Intel Core 2 Duo, 1.4 GHz, 2048 Mo de RAM, Disque dur 160 Go, Ecran 15.4 pouces, PC ou Mac ?:PC, Platform Technology:N/A, Type de disque dur:HDD, Type de processeur:Intel Core 2 Duo, Vitesse du processeur:1.4 GHz, Mémoire interne (RAM):2048 www.commentcamarche.net/guide/1167450-acer-travelmate-5720-2a2g16mi-intel-core-2-duo-t5270-1-4-ghz-2048-mo-160-go-tft15-4-dvdrw-win-vista-business
Intel Celeron 360J 1.4 GHz Socket 478 400 MHz bus In a Box360 J, Pentium Celeron M, 1.4 MHz, Socket 478, Ventilateur CPU inclus, Bus:400.0 MHz, Cache L1:128.0 Ko, Cache L2:1024.0 Ko, Divers: , Fréquence:1400 Mhz, Marque du processeur:Pentium Celeron M, Refroidissement compris, Socket:Socket 478, Type:Processor www.commentcamarche.net/guide/344339-intel-celeron-360j-1-4-ghz-socket-478-400-mhz-bus-in-a-box
Lenovo ThinkPad X301 Intel Core 2 Duo SU9400 1.4 GHz / 1024 Mo / 64 Go / TFT13.3 / Win Vista BusinesX 301, Intel Core 2 Duo, 1.4 GHz, 1024 Mo de RAM, Disque dur 64 Go, Ecran 13.3 pouces, PC ou Mac ?:PC, Type de disque dur:SSD, Type de processeur:Intel Core 2 Duo, Vitesse du processeur:1.4 GHz, Mémoire interne (RAM):1024 Mo, Disque dur:64.0 Go, Type... www.commentcamarche.net/guide/1158470-lenovo-thinkpad-x301-intel-core-2-duo-su9400-1-4-ghz-1024-mo-64-go-tft13-3-win-vista-business