[calcul] [macro] annalyser le contenu d'une cellule

Salut,
Quel logiciel utilises-tu? OpenOffice, Excel?


Pour Excel, tu pourrais par exemple faire une fonction/routine VBA, qui prend en paramètre ton nombre sous forme de texte, et la zone sur laquelle tu veux travailler;

Tu fais une boucle (for each) sur cette zone;

Pour chaque case de la zone, tu compares la valeur de la case à ton nombre (opérateur like);

Si le code est de la bonne forme, tu supprime la ligne (je suppose que c'est ce que tu veux), sinon tu ne fais rien;

tu passes à la ligne suivante.


Après, tu appelles cette fonction depuis une autre fonction, qui se charge de lui passer les paramètres, par exemple à l'aide d'un inputbox et de la sélection faite sur la feuille de calcul par l'utilisateur.

En tout cas c'est l'idée qui me vient comme ça.
La syntaxe exacte dépend de ton logiciel, donc il faut plus d'infos.

Merci beaucoup pour cette info, ça me donne déjà une piste de recherche.
il s'agit d'openoffice calc.

Je ne sais pas si j'ai bien tout compris, mais j'ai essayé ceci :
- j'ai débuté l'enregistrement d'une macro.
- je suis allé dans une cellule et j'ai sélectionné la dernière valeur.
- j'ai stoppé l'enregistrement.

En faisant cela, je suis partie du principe qu'openoffice me générerait un début de code utilisable. je n'ai plus qu'à insérer une ligne de comparaison de valeur par rapport à cette mémoire de valeur et puis, si c'est inférieur à 37, je supprime la cellule. je fais une boucle pour que tous ça soit répété sur chacune des cellules.

voici le code que cela m'a donné :

sub XX
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
 
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"
 
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
 
end sub

donc là, j'ai rajouté la ligne suivante :

if [args2(0).Value = 20]then [dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args2())]

Sauf que ça ne marche pas.
pourrais-tu me dire se qui cloche ?

merci beaucoup

Hmm... Le problème, c'est que je ne connais pas le langage utilisé par OpenOffice.
En regardant juste le code, je pense que args2(0).Value contient juste "$A$1" (du texte en somme) et ne fait donc pas référence à la cellule. Donc tester if [args2(0).Value = 20] ne peut pas fonctionner.

Si tu te sens d'attaque pour étudier leur langage, leur documentation a l'air pas mal:
http://fr.openoffice.org/Documentation/How-to/indexht-p...
http://wiki.services.openoffice.org/wiki/Extensions_dev...
Mais bon, c'est vraiment histoire d'avoir l'impression de servir à quelque chose, parce que là je ne peux pas trop t'aider. Il faudrait ou bien que tu apprennes au moins en partie le langage (ça prend du temps qu'on a pas forcément, surtout pour un besoin ponctuel), ou alors qu'un autre membre du forum qui le maîtrise t'apporte son aide.
Peut être même qu'il existe une fonctionnalité toute simple d'OpenOffice qui fasse ça directement, mais je ne la connais pas.

Merci beaucoup pour les liens, ça me sera de toutes façons utile...

sinon j'ai trouvé la macro pour Excel, ça marche très bien:

Sub supp()
Dim r As Long, c As Range
r = InputBox("Supprimer si nombre terminal =", "Supprimer cellules dans la sélection")
For Each c In Selection
If Right(c.Value, Len(r) - 1) = " " & r Then c.Value = ""
Next c
End Sub

Merci à Eriiic