Centrer une cellule
Résolu/Fermé
AlainGeorgesClaude
Messages postés
26
Date d'inscription
vendredi 29 juillet 2016
Statut
Membre
Dernière intervention
10 septembre 2019
-
15 août 2016 à 08:40
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 16 août 2016 à 18:58
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 16 août 2016 à 18:58
A voir également:
- Impossible de centrer cellule excel
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
3 réponses
Ant049
Messages postés
154
Date d'inscription
jeudi 4 août 2016
Statut
Membre
Dernière intervention
9 septembre 2016
22
15 août 2016 à 10:44
15 août 2016 à 10:44
Bonjour,
A ma connaissance, il n'existe pas de moyen pour centrer ta cellule au milieu de l'écran sans passer par VBA.
Tu trouveras sur les forums des codes déjà tout fait pour les méthodes de centrage.
Exemple : https://excel-malin.com/codes-sources-vba/centrer-ecran-sur-la-cellule-specifiee/
A ma connaissance, il n'existe pas de moyen pour centrer ta cellule au milieu de l'écran sans passer par VBA.
Tu trouveras sur les forums des codes déjà tout fait pour les méthodes de centrage.
Exemple : https://excel-malin.com/codes-sources-vba/centrer-ecran-sur-la-cellule-specifiee/
16 août 2016 à 15:38
16 août 2016 à 15:42
Voici ce que Mike-31 me propose, et cela fonctionne très bien !
ton lien Hypertexte va sélectionner ta cellule, il suffit de coller ce code dans les propriétés de ta feuille de destination
si ton lien Hypertexte pointe sur la feuille nommée par exemple Feuil3
clic droit sur l'onglet Feuil3 et colle ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
NbColonnes = Windows(1).VisibleRange.Columns.Count - 1
NbLignes = Windows(1).VisibleRange.Rows.Count - 1
ActiveCell.Select
ActiveWindow.ScrollRow = Selection.Row - (NbLignes / 2)
ActiveWindow.ScrollColumn = Selection.Column - (NbColonnes / 2)
End Sub
16 août 2016 à 15:58