[calc] [macro] annalyser contenu cellule

luxcibel -  
 luxcibel -
Bonjour,

Je travail sur une suite de code de 6 nombres séparés par un espace. chacun des codes est contenu dans une seule cellule.
ex :
3 10 16 23 25 37
6 26 35 39 46 48
2 4 11 13 16 19


Je cherche à faire une macro qui analyserait le contenu de chaque cellules et qui pourrait me supprimer tous les codes se terminant par un nombre choisi. Par ex: le nombre 37

Si quelqu'un aurait une indication à me donner, ce serait vraiment sympa, parce que cela ne doit pas être très difficile, mais comme je ne connait pas grand chose en programmation ni aux commandes existantes, cela m'avancerait considérablement dans mon travail.

Merci infiniment.

Luxcibel

9 réponses

luxcibel
 
Alors là, bravo et merci, parce que si j'arrive à le transformer en OOo tu m'auras bien mâché le travail.
je post dés que j'ai réussis...

merci A+
0
luxcibel
 
bon alors voila :

Je réutilise Excel pour cette macro et comme ça, me prend pas la tête.

Merci ça marche très bien...

suis content !
0
luxcibel
 
merci
J'ai même attribué directement la valeur à r pour aller plus vite.
et comme je ne sais pas faire de boucle, j'ai recopier la macro autant de fois que j'avais de valeur à comparer.
( une vingtaine seulement)

et hop ! je me sens libre, libre, libre, je vol..........
0
luxcibel
 
oui, c'est ça il faut sélectionné,

mais sinon, pas de problème.

Je n'ai qu'une seul colonne de données. je sélectionne donc toute la colonne.

sauf que ça ne marche pas pour les unités, type 5, 6, 7, alors que les autres nombres, pas de problème :

r = 11 , ça marche
r = 9 , marche pas
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
luxcibel
 
juste une fois.
c'est parfait pour moi !
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 281
 
Bonsoir,

je ne connais pas open office mais vu qu'il est compatible tu devrais pouvoir adapter facilement une réalisée sur excel :
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
Tu sélectionnes la plage à traiter et tu lances la macro.
Je vide la cellule, si tu veux la supprimer complètement il faudra faire autrement

eric
-1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 281
 
Bonsoir,

voici la version excel, pê qu'en l'ouvrant dans open office tout sera ok.
http://www.cijoint.fr/cjlink.php?file=cj200810/cijBJqhqvq.xls
eric
-1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 281
 
Tu sélectionnes la plage à traiter et tu lances la macro.
Ca ne marchait pas sur une sélection multiple ?
-1
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 281
 
Et c'est à faire régulièrement ou c'était juste une fois ?
-1