Discussion :

[mennix]

Bonjour a tous,
Je rencontre un petit souci en Vb avec excel.
L'idée est: faire une recherche d'un texte et si il est trouvé , amener le curseur d'excel dessus pour affichage a l'ecran.(aucun souci dessus).

c'est la que je coince, si la ligne trouvé est déjà visible a l'ecran, on ne doit rien faire.

deux solutions;
une fonction qui existe en vb pour savoir si oui ou non la ligne est a l'ecran.

deuxieme solution, une fonction qui me donne la premiere ligne et la derniere ligne visible a l'ecran, (apres il est facile de faire une moulinette pour mon souci).

Si vous avez une solution, ou une piste, je suis preneur
Merci a vous.

t

[Invité]

Bonjour

Je ne vais pas te donner de solution, car je ne l'ai pas.

Par contre je vais te demander de réfléchir à ce que tu demandes :

Il faut gérer :

1 - Le fait que les résolutions peuvent être différentes d'un écran à l'autre, donc le nombre de lignes affichés ne sera pas le même.
2 - Le fait que certaines personnes font un zoom sur la feuille, donc de même le nombre de lignes à l'affichage sera différent.
3 - Si la personne n'affiche pas la fenêtre Excel en plein écran, mais en réduit pour voir une autre application en même temps.

Je ne penses pas qu'une fonction toute faite existe (je me trompe peut-être).

Je laisse aux autres le soin de te répondre, mais je voulais t'énumérer les cas possibles (peut-être que cela aidera les autres à résoudre ton problème).

Starec

[mennix]

Je pense qu'il doit exister une methode,
Je souhaite simplement connaitre le numero de la premiere et la derniere ligne qui apparait, theoriquement, peut importe la taille de l'ecran ou le mode zoom, excel se reajuste, et donc la fonction si elle existe redonnera les nouvelles references de ligne.

j'ai tout simplement besoin de savoir si ma recherche que j'ai lancé par la fonction Application.WorksheetFunction.Match est dans la zone affichée a l'ecran.

Si on prends un exemple d'un richedit, il existe des messages comme GetFirstvisibleline et getLastvisibleline, j'ai besoin de la meme chose mais sous excel.

[fred65200]

bonjour à tous,

tu peux peut être limiter la plage avec la propriété ScrollArea de la feuille, avant ta recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Worksheets(1).ScrollArea = "a1:f10"
 
'''procédure............
 
Worksheets(1).ScrollArea = ""

cordialement

[ouskel'n'or]

Je suis allé le chercher loin celui-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
NbColonnes = Windows(1).VisibleRange.Columns.Count
NbLignes = Windows(1).VisibleRange.Rows.Count
PremLigneVisible = ActiveWindow.ScrollRow
PremColVisible = ActiveWindow.ScrollColumn
PlageVisible = Range(Cells(PremLigneVisible, PremColVisible), _
       Cells(PremLigneVisible + NbLignes, PremColVisible + NbColonnes)).Address
MsgBox PlageVisible
End Sub

Allez, tu vas le passer ton bon week-end !
A+

PS - ... on peut simplifier...

[edelweisseric]

Bonjour à tous

Tout simplement GENIAL

J'ai un écran 15 pouces, je suis obligé de modifier la partie de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PlageVisible = Range(Cells(PremLigneVisible, PremColVisible), _
       Cells(PremLigneVisible + NbLignes, PremColVisible + NbColonnes)).Address

en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PlageVisible = Range(Cells(PremLigneVisible, PremColVisible), _
       Cells(NbLignes,NbColonnes)).Address

sinon la dernière cellule est à +1 dans les 2 sens

Merci