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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU] Open Office Basic : Problème for each

slr56

Tout problème a sa solution.

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 :

ub Macro_test
Dim somme1 as integer
Dim somme0 as integer
Dim somme2 as integer
Dim ma_cellule as integer
For each ma_cellule in Range("d2:d305" )
if ma_cellule.value=1 then
somme1=somme1+1
endif
if ma_cellule.value =0 then
somme0=somme0+1
endif
if ma_cellule.value =2 then
somme2=somme2+1
endif
next
msgbox "nombre de 0 : " & somme0
msgbox "nombre de 1 : " & somme1
msgbox "nombre de 2 : " & somme2
End Sub

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

Publicité

babasss

Ligne 6 => Dim ma_cellule As Range

Message cité 1 fois

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

slr56

Tout problème a sa solution.

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 :

sub Main
Dim somme1 as integer
Dim somme0 as integer
Dim somme2 as integer
Dim ligne
Dim maFeuille As Object
Dim monDoc As Object
Dim mesFeuilles As Object
monDoc=thisComponent
mesFeuilles=monDoc.Sheets
maFeuille=mesFeuilles.getByName("Feuille1" )
ligne=maFeuille.getCellRangeByName("d5" ).value
Do While ligne<305
if ligne=1 then
somme1=somme1+1
else if ligne=0 then
somme0=somme0+1
else if ligne=2 then
somme2=somme2+1
endif
endif
endif
ligne=ligne+1
Loop
msgbox "nombre de 0 : " & somme0
msgbox "nombre de 1 : " & somme1
msgbox "nombre de 2 : " & somme2
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

slr56

Tout problème a sa solution.

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

FORUM HardWare.fr

Programmation

Divers

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

Sujets relatifs
[Résolu] Obtenir la description (nom) d'un executable	[Hibernate] pattern open session in view / pattern command
probleme envoi mail avec MIME::Lite	problème de requête - FREETEXTTABLE (SQL serveur)
Petit probleme de syntaxe pour utiliser du javascript en php	[résolu] fgets et imlib_load_image
[VBA] Explications des références (librairies) -> RESOLU	[Oracle] Problème trigger auto increment
Probleme : lancer une appli java en commande shell	[résolu] Boucle fichier dans un repertoire
Plus de sujets relatifs à : [RESOLU] Open Office Basic : Problème for each

Page générée en 0.091 secondes