[XL-2003] Afficher la cellule au centre de l'écran [Résolu]

[Vadorblanc]

Bonjour
Je cherche à afficher une cellule variable de la fin d'un code au centre de l'écran sachant que pour la visualiser il me faut actionner l'ascenseur à droite de la feuille Excel manuellement.
Comment un code peut-il le faire automatiquement ? pour que l'utilisateur la voit instantanément.
Si j'utilise manuellement la flèche du pavé numérique la cellule apparait à l'écran, si j'utilise l'enregistreur de macro pour faire cette action j'ai un nom de cellule dans le code qui ne fonctionnera pas pour un autre fichier qui sera variable, c'est certainement fort simple, mais je ne vois pas pour l'instant.
Je pense qu'il doit y avoir un code avec CenterScreen.
Merci

[rvtoulon]

Bonjour,
Si par exemple tu fais :

Code :

Sheets("Feuil1").Cells(89, 40).Select

Tu sélectionnes la cellule donc excel l'affiche.
Tu fais la même chose avec ta cellule variable, par exemple :

Code :

Sheets("Feuil1").Cells(x, y).Select

[Vadorblanc]

Bonjour Rvtoulon
Ta proposition sauf erreur de ma part n'affiche pas le focus à l'écran.
Voici mon code

Code :

1
2
3
4
5
6
7
8
Sub Module21PlacementsurCelluleExport()
 
 
    Range("A1").Select
    Cells.Find(What:="Export*", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
End Sub

Merci

[rvtoulon]

Bonjour,
Perso avec ton code j'ai bien la cellule qui est sélectionnée je la vois à l'écran.
As-tu plusieurs cellules avec le mot export?

[galopin01]

bonjour,
Il n'existe pas de propriété "centerscreen" pour l'excellente raison que tu ne pourras jamais centrer la cellule A1 ou B2...

Au mieux tu peux décider que la cellule doit apparaitre en haut à gauche de l'écran :

Code :

1
2
3
4
5
Sub test()
Range("AW2054").Select
ActiveWindow.ScrollRow = Selection.Row
ActiveWindow.ScrollColumn = Selection.Column
End Sub

Nota :
Avec Excel 2010 (et peut-être 2007 ?) la sélection apparait par défaut au centre de l'écran (Quand c'est possible !)
A+

[bbil]

Tiens une fonction de "centrage"

Code :

1
2
3
4
5
6
7
8
9
10
Sub CentrerCellule(r As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = r.Row - ActiveWindow.VisibleRange.Rows.Count / 2
If iRow < 1 Then iRow = 1
iCol = r.Column - ActiveWindow.VisibleRange.Columns.Count / 2
If iCol < 1 Then iCol = 1
ActiveWindow.ScrollColumn = iCol
ActiveWindow.ScrollRow = iRow
End Sub

pour l'utilisation :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub Module21PlacementsurCelluleExport()
 
Dim R as range 
 
 
  set R =   Cells.Find(What:="Export*", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
 
    CentrerCellule R
End Sub

[Vadorblanc]

Bonjour
Rvtoulon, je n'ai bien qu'un export en Recherche dans ma feuille et qui est bien bas dans ma feuille, attention j'utilise Excel 2003 pour mon travail. Pour moi ça ne l'affiche pas à l'écran.

Galopin, je viens de tester ton code, il fonctionne bien, mais se mets en haut à gauche, en cherchant un peu partout, et avec l'aide F1 je me rends compte qu'en supprimant la deuxième ligne de ton code sur le centrage des colonnes, j'obtiens parfaitement ce que j'attends, car le bouton commande de ma macro se trouve aligné au dessus, donc c'est parfait. Un grand merci à toi.

Bbil, j'ai mis aussi ton code qui a marché du premier coup, il est beau ce code, il a l'avantage de vraiment centrer le focus.
J'ai voulu l'adapter sur un autre mot mais comme il y en a beaucoup, je le recherche que sur une colonne:

Code :

1
2
3
4
5
6
Sub Module22PositionnementSurSemaine()   
    Columns("L:L").Select
    Selection.Find(What:="Semaine", After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Select
End Sub

J'ai essayé de l'adapter sans succès
Pour le plaisir, si tu as un moment...

Bien cordialement
Merci Rvtoulon, Galopin01, Bbil

[bbil]

il faut juste modifier le début de la ligne de recherche..:

Code :

set R =   ThisWorkBook.Sheets("Feuil1").Columns("L:L").Find(What:="semaine"....

[Vadorblanc]

Bbil, je dois faire une erreur, j'avais le même problème tout à l'heure...les lignes 6 à 9 sont jaunes erreur 13

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Module03PlacementsurCelluleExportSurColonneCiblée()
 'Centrer le focus sur le mot recherché Semaine
Dim R As Range
 
 
Set R = ThisWorkbook.Sheets("Feuil1").Columns("L:L").Find(What:="Semaine", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False) 
    CentrerCellule R
End Sub
Sub CentrerCellule(R As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = R.Row - ActiveWindow.VisibleRange.Rows.Count / 2
If iRow < 1 Then iRow = 1
iCol = R.Column - ActiveWindow.VisibleRange.Columns.Count / 2
If iCol < 1 Then iCol = 1
ActiveWindow.ScrollColumn = iCol
ActiveWindow.ScrollRow = iRow
End Sub

[bbil]

Il faut traiter le cas ou la recherche ne retourne rien .. , attention aussi au nom de la feuille (Feuil1)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Module03PlacementsurCelluleExportSurColonneCiblée()
 'Centrer le focus sur le mot recherché Semaine
Dim R As Range
 
On Error Resume Next
Set R = ThisWorkbook.Sheets("Feuil1").Columns("L:L").Find(What:="Semaine", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
On Error GoTo 0
If Not R Is Nothing Then
    CentrerCellule R
Else
    MsgBox "introuvable"
End If
End Sub

[patricktoulon]

bonjour


si j'ai bien compris ta demande
tu souaite:

mettre la cellule recherchée au centre de l'ecran

dans ce cas
un exemple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub centrer_la_cellule_au_centre_de_l_ecran()
Dim lemot As String
lemot = "toto"
 
With Worksheets(1).Cells
    Set c = .Find(lemot, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
ActiveWindow.ScrollRow = c.Row / 2
    ActiveWindow.ScrollColumn = c.Column / 2
End If
 
End With
 
End Sub

au plaisir

[Vadorblanc]

Bbil, idem, ne fonctionne pas, Msbox affiche introuvable, et par Edition Rechercher > Semaine = ça fonctionne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Module04PlacementsurCelluleFocusSurColonneCiblée()
 'Centrer le focus sur le mot recherché Semaine
Dim R As Range
 
On Error Resume Next
Set R = ThisWorkbook.Sheets(1).Columns("L:L").Find(What:="Semaine", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
On Error GoTo 0
If Not R Is Nothing Then
    CentrerCellule R
Else
    MsgBox "introuvable"
End If
End Sub
Sub CentrerCellule(R As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = R.Row - ActiveWindow.VisibleRange.Rows.Count / 2
If iRow < 1 Then iRow = 1
iCol = R.Column - ActiveWindow.VisibleRange.Columns.Count / 2
If iCol < 1 Then iCol = 1
ActiveWindow.ScrollColumn = iCol
ActiveWindow.ScrollRow = iRow
End Sub

[bbil]

tu est sur d'effectuer la recherche sur la bonne feuille ?

[patricktoulon]

en reprenant ta macro et en prenant toutes les cellules ca fonctionne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub Module04PlacementsurCelluleFocusSurColonneCiblée()
 'Centrer le focus sur le mot recherché Semaine
Dim R As Range
 
On Error Resume Next
Set R = ThisWorkbook.Sheets(1).Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
On Error GoTo 0
If Not R Is Nothing Then
    CentrerCellule R
Else
    MsgBox "introuvable"
End If
End Sub
Sub CentrerCellule(R As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = R.Row - ActiveWindow.VisibleRange.Rows.Count / 2
If iRow < 1 Then iRow = 1
iCol = R.Column - ActiveWindow.VisibleRange.Columns.Count / 2
If iCol < 1 Then iCol = 1
ActiveWindow.ScrollColumn = iCol
ActiveWindow.ScrollRow = iRow
End Sub

[Vadorblanc]

Bbil, oui j'effectue sur la même feuille, mais c'est moi en mettant tous ces nouveau codes dans un autre classeur pour les essais, j'oubliais de sélectionner la cellule avant de lancer ton code, car sur mon projet initial mon code se terminait par la sélection du mot. De plus ton premier code Recherche un mot sur toute la feuille fonctionne aussi sans sélectionner la cellule auparavent, alors que ton deuxième code Recherche sur une colonne fonctionne uniquement si le mot est déjà sélectionné. Donc ton code fonctionne parfaitement, il me semblait bien que tu ne pouvais pas faire d'erreur vu les lectures que je vois sur tes réponses sur le forum. Mes humbles excuses et un grand MERCI.

Patricktoulon bonjour, ta proposition fonctionne en partie, mais le mot est encore plus bas et hors de vu de l'écran, de plus dans ma deuxième demande, comme j'ai d'autres mêmes Toto dans la feuille, je ciblais la recherche sur une colonne ciblée.
Merci pour ta recherche.

Merci à tous,je vais faire un pas de plus sur mon projet.

[patricktoulon]

que cela te tienne

utilise le find next en incrementant la variable a chaque trouvaille pour le scroll bien entendu

au plaisir

[Theze]

Bonjour,

Et avec "Activate" tu as quoi comme résultat ?

Code :

1
2
3
4
5
6
7
8
 
Sub Module21PlacementsurCelluleExport()
 
    Range("A1").Select
 
    Cells.Find("Export*", ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate
 
End Sub

Hervé.

[Vadorblanc]

Bonjour Theze
Ta proposition fonctionne aussi très bien pour le premier mot trouvé, mais quand j'ai beaucoup de même mots j'ai voulu l'adapter pour une colonne ciblée sans réussite.

Code :

1
2
3
4
5
6
7
Sub Module5PlacementsurCelluleExportColonne()
 
    Range("A1").Select
 
    ThisWorkbook.Sheets(1).Columns("L:L").Find("Export*", ActiveCell, xlValues, xlWhole, xlByRows, xlNext).Activate
 
End Sub

Merci

[patricktoulon]

bonjour

si tu a exemples 100 cellules avec le meme "toto"

tu ne pourra pas les centrer en meme temps pour un je comprend mais pour plusieur j'ai du mal a comprendre ce que tu cherche voir meme l'utilité de la chose

cela dit le find next fonctionnera tres bien a condition de declarer ta oldcellelule en haut de module

pour quelle soit a jour lors de la next boucle du fond next

au plaisir

[Vadorblanc]

Bonjour Paticktoulon
J'avais marqué mon post Résolu, mais Theze a proposé aussi un code qui fonctionne, par politesse et par curiosité je lui réponds, ce qui est le but du forum.

Pour répondre à ta question, je suis sur un projet dont j'avance par la succession de modules, chaque module exécute des actions particulières qui sont appelés par un module de commande constitués d'un regroupement d'Appels Call, mon dernier module fonctionnait mais l'utilisateur ne voyait rien sur son écran le code s'arrêtait sur le Mot qui se trouvait en variable aux lignes 400 environ, d'ou ma demande pour ce post pour que l'utilisateur le voit au centre de son écran, j'ai reçu les réponses que j'attendais et j'ai donc mis un nouveau module à mon projet pour l'affichage écran. Dans ce post j'avais un module pour un nom TOTO unique sur la feuille, vous avez été plusieurs à apporter des réponses qui fonctionnaient, ensuite j'avais un autre code avec un nom TITI mais en de multiple endroit sur ma feuille, j'ai donc demandé de l'afficher au centre de l'écran par rapport à une colonne ciblée et qui correspondait à mon centrage écran tout en ayant mon bouton commande de l’utilisateur sur la même colonne, là j'ai eu une proposition du code à Bbil qui fonctionne très bien à mes attentes. Maintenant Theze a pris aussi la gentillesse d'apporter son savoir dont je suis toujours preneur. Il faut savoir aussi que mon projet sera utilisé par d'autres utilisateurs qui attendent des actions aux boutons commandes, et il faut qu'ils voient à l'écran ce qui se passe. C'est toujours difficile de déployer des outils au plus grand nombre.
J'espère avoir répondu à tes interrogations.
Bien cordialement