Taille d'une ligne figée
Fermé
Xav
-
6 nov. 2014 à 13:04
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 - 6 nov. 2014 à 18:19
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 - 6 nov. 2014 à 18:19
A voir également:
- Taille d'une ligne figée
- Comment réduire la taille d'un fichier - Guide
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
- Partager photos en ligne - Guide
- Comment reduire la taille d'une photo - Guide
6 réponses
eriiic
Messages postés
24600
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 octobre 2024
7 240
6 nov. 2014 à 13:37
6 nov. 2014 à 13:37
Bonjour,
non
eric
non
eric
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
Modifié par Mike-31 le 6/11/2014 à 15:18
Modifié par Mike-31 le 6/11/2014 à 15:18
Bonjour,
Je ne vois pas l'intérêt mais bon essaye ce petit artifice, colle ce code dans les propriétés de la feuille (clic droit sur l'onglet de la feuille/Visualiser le code et colle ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valzoum As Integer
Valzoum = ActiveWindow.Zoom
Set ecran = ActiveWindow.VisibleRange
If Valzoum < 100 Then
Rows("1:2").RowHeight = 25 * (1 - ((Valzoum - 100) / 100))
Else
Rows("1:2").RowHeight = 25
End If
End Sub
PS: hauteur de départ des lignes 1 et 2 est de 25
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Je ne vois pas l'intérêt mais bon essaye ce petit artifice, colle ce code dans les propriétés de la feuille (clic droit sur l'onglet de la feuille/Visualiser le code et colle ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valzoum As Integer
Valzoum = ActiveWindow.Zoom
Set ecran = ActiveWindow.VisibleRange
If Valzoum < 100 Then
Rows("1:2").RowHeight = 25 * (1 - ((Valzoum - 100) / 100))
Else
Rows("1:2").RowHeight = 25
End If
End Sub
PS: hauteur de départ des lignes 1 et 2 est de 25
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Raymond PENTIER
Messages postés
58730
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
22 novembre 2024
17 243
6 nov. 2014 à 15:11
6 nov. 2014 à 15:11
Autre artifice :
Affichage / Fenêtre / Nouvelle fenêtre / Réorganiser tout / Horizontal
Affichage / Fenêtre / Nouvelle fenêtre / Réorganiser tout / Horizontal
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31, le code réduit bien les lignes mais lorsque je zoom ou dezoom, les lignes s'aggrandissent ou l'inverse.
Raymond, l'idée est bonne mais vu que mes images renvoie (lien hypertexte) à mes onglets. Sa change d'onglet dans 1 seule fenêtre (en loccurence la nouvelle) mais pas dans l'autre!
Est il possible que lorsque j'appuie sur mon image ca change d'onglet dans mes 2 fenêtres ?
Merci de votre réponse !
Raymond, l'idée est bonne mais vu que mes images renvoie (lien hypertexte) à mes onglets. Sa change d'onglet dans 1 seule fenêtre (en loccurence la nouvelle) mais pas dans l'autre!
Est il possible que lorsque j'appuie sur mon image ca change d'onglet dans mes 2 fenêtres ?
Merci de votre réponse !
Mike-31
Messages postés
18346
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 novembre 2024
5 104
6 nov. 2014 à 18:19
6 nov. 2014 à 18:19
Re,
Ce que tu veux faire à ma connaissance n'est pas prévu dans Excel, il est toutefois possible avec un code VBA d'avoir un rendu approximatif.
Suivant ta demande, les lignes 1 et 2, si au départ elle ont une hauteur de 25 avec un code VBA il est possible de calculer un rapport d'agrandissement ou réduction et l'appliquer à ces lignes reste également à traiter le contenu, mais comme je l'ai écrit cela reste un artifice
Ce que tu veux faire à ma connaissance n'est pas prévu dans Excel, il est toutefois possible avec un code VBA d'avoir un rendu approximatif.
Suivant ta demande, les lignes 1 et 2, si au départ elle ont une hauteur de 25 avec un code VBA il est possible de calculer un rapport d'agrandissement ou réduction et l'appliquer à ces lignes reste également à traiter le contenu, mais comme je l'ai écrit cela reste un artifice