[Résolu] [Calc] deplacer curseur en fonction critère

[bebertdu01]

Bonjour,

Suite au post suivant trouve sur votre forum,
https://forum.openoffice.org/fr/forum/v ... =8&t=63594

je souhaiterais deplacer le curseur en fonction de criteres pré-défini. Mais je ne sais pas adapter le code,

Dans mon cas, je souhaiterais en fonction d'un critère definit dans une cellule, que la macro recherche le terme utilise, et deplace automatiquement le curseur dessus.

pourriez-vous m'aider SVP'?

TEST CURSEUR.ods

[Dolev]

Bonjour,

Le fil que tu cites ne déplace pas de curseur, relis ce que j'ai écrit.

En fonction de critère de quoi ? Fournis aussi des copies écrans comme je l'ai demandé à l'autre personne.

[bebertdu01]

Le critère de recherche est definit en P5 (obtenu par calcul depuis une autre feuille"=")

Sans aucune action, avec une position de curseur definit aleatoirement:

debut.png

Une fois le critère definit en P5, on appuirait sur le bouton et:

apres appui bouton.png

[Dolev]

Le critère de recherche est definit en P5 (obtenu par calcul depuis une autre feuille"=")

Et bien comme je l'ai écrit dans l'autre fil, il suffit de récupérer le contenu de P5 via la propriété String
Et tu lances ensuite la routine que j'ai proposée en dernier.

Mais là encore, je me répète : ce n'est pas un déplacement de curseur mais une activation de cellule.
Deux choses différentes en terme de codage.

[bebertdu01]

Bonjour,
Avez-vous un petit indice ? Comment fait on pour récupérer P5 via string?

[Dolev]

Avez-vous un petit indice ? Comment fait on pour récupérer P5 via string?

Récupérer le contenu d'une cellule est expliqué dans les suprêmes de code :
https://forum.openoffice.org/fr/forum/v ... 15&t=37828

[markotxe]

Bonjour Dolev,
Je suis pas certain de comprendre un très bien...
Il me semble que vous voulez: Selectionner une cellule selon un critère (qui se trouve en P5), c'est ça?
Si c'est le cas une double boucle devrait suffire.
Code:

Code : Tout sélectionner

Sub ChercherCritere
'Dim i As Long
  Classeur             = ThisComponent
  Feuille              = Classeur.Sheets.GetByName("Feuille1") ' Mettre le nom de la feuille qui vous interesse
  oZoneCriteres        = Feuille.getCellRangeByName("B3:L89")  ' Zone du tableau contenant les critères à rechercher
  oCelCritereRecherche = Feuille.getCellRangeByName("P5")      ' Cellule qui contient le critère qu'on va rechercher
  
For i = 0 To 10 
    For j = 0 to 86
        oCelCritereT = oZoneCriteres.getCellbyposition(i,j)        ' Position de la cellule (toujours inconnue) qu'on va rechercher
        If oCelCritereRecherche.string = oCelCritereT.String then  ' On recherche les coincidences grace au nom (String)
           ThisComponent.getCurrentController.select(oCelCritereT) ' Selection de la cellule recherchée
    Exit for
        End if  
   next j    
next i
End sub

Ci-joint votre document avec la macro de recherche ajoutée.
En espèrant que ça puisse vous aider...

COoordialement
Markotxe

[Dolev]

Bonjour,

Bonjour Dolev,
Je suis pas certain de comprendre un très bien...
Il me semble que vous voulez: Selectionner une cellule selon un critère (qui se trouve en P5), c'est ça?

Personnellement, je ne veux rien. C'est bebertdu01 qui pose le problème.
Peut-être fera t-il un jour un retour ?

[bebertdu01]

Bonjour,
Désolé pour le retour tardif.C est super. Je vous remercie pour votre disponibilité. Le code de markotxe fait impeccablement bien le le job !!!
MERCI

[Dolev]

Le code de markotxe fait impeccablement bien le le job !!!

Oui et ce code est une copie conforme de celui que j'ai fourni dans l'autre fil