[RESOLU] Open Office Basic : Problème for each

Open Office Basic : Problème for each [RESOLU] - Divers - Programmation

Marsh Posté le 24-07-2008 à 11:37:35    

Bonjour,
un petit coup de main s'il vous plait.
Lorsque j'exécute cette macro j'ai l'erreur suivante : ma_cellule est déjà définie. késako? :pfff:  

Code :
  1. ub Macro_test
  3. Dim somme1 as integer
  4. Dim somme0 as integer
  5. Dim somme2 as integer
  6. Dim ma_cellule as integer
  8. For each ma_cellule in Range("d2:d305" )
  9. if ma_cellule.value=1 then
  10. somme1=somme1+1
  11. endif
  12. if  ma_cellule.value =0 then
  13.  somme0=somme0+1
  14. endif
  15. if ma_cellule.value =2 then
  16.   somme2=somme2+1
  17. endif
  18. next
  19. msgbox "nombre de 0 : " & somme0
  20. msgbox "nombre de 1 : " & somme1
  21. msgbox "nombre de 2 : " & somme2
  23. End Sub


Message édité par slr56 le 24-07-2008 à 15:40:29
Reply

Marsh Posté le 24-07-2008 à 11:37:35   

Reply

Marsh Posté le 24-07-2008 à 11:40:09    

Ligne 6 => Dim ma_cellule As Range

Message cité 1 fois

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
Reply

Marsh Posté le 24-07-2008 à 14:09:04    

babasss a écrit :

Ligne 6 => Dim ma_cellule As Range

 

finalement j'essaye avec Do While... Loop car je n'ai pas réussi avec la boucle For :

 
Code :
  1. sub Main
  3. Dim somme1 as integer
  4. Dim somme0 as integer
  5. Dim somme2 as integer
  6. Dim ligne
  7. Dim maFeuille As Object
  8. Dim monDoc As Object
  9. Dim mesFeuilles As Object
  11. monDoc=thisComponent
  12. mesFeuilles=monDoc.Sheets
  13. maFeuille=mesFeuilles.getByName("Feuille1" )
  16. ligne=maFeuille.getCellRangeByName("d5" ).value
  18. Do While ligne<305
  19. if ligne=1 then
  20. somme1=somme1+1
  21.  else if ligne=0 then
  22.   somme0=somme0+1
  23.   else if ligne=2 then
  24.   somme2=somme2+1
  25.   endif
  26.  endif
  27. endif
  28. ligne=ligne+1
  29. Loop
  30. msgbox "nombre de 0 : " & somme0
  31. msgbox "nombre de 1 : " & somme1
  32. msgbox "nombre de 2 : " & somme2
  34. End Sub
 

le problème là est que je ne vois pas comment incrémenter la cellule pour obtenir la valeur de d5 puis d6... jusqu'à d305. Il me faut "déconcaténer" la lettre de la valeur numérique pour pouvoir faire +1 à chaque fois.


Message édité par slr56 le 24-07-2008 à 15:00:13
Reply

Marsh Posté le 24-07-2008 à 15:40:13    

Bon finalement, j'ai trouvé la solution avec une fonction toute faite dans calc. C'est la fonction NB.SI

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed