Agrandir ligne de travail

Bonjour,

Modifie la hauteur de la ligne courante:

http://cjoint.com/?jpqvg8faWu

Dim h, ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
ligne = Target.Row
h = Target.RowHeight
Target.RowHeight = 20
End Sub

Cordialement JB

Bonjour,

Je souhaite pouvoir travailler sur excel en agrandissant la ligne sur
laquelle je travaille.
Par exemple, lorsque je descend la ligne s'agrandie tandis que la préc édente
reprend sa hauteur initiale.
Comme quand on visualise 'Ajout suppression de programme'.

Enfin je demande ça, je ne sais même si c'est réalisable.

Merci pour votre aide

Salut JB,

Beau et propre !
Mais je ne vois vraiment pas l'intérêt si la police n'est pas aussi agrandie.

Exemple : je veux avoir une vison plus étendue de ma feuille, donc zoom à
50%, mais je ne peux plus lire les textes, sauf si ...

Le top serait que la largeur de la colonne soit aussi agrandie.

Tu vois où je veux en venir ?

Â+

Bonjour,

Modifie la hauteur de la ligne courante:

http://cjoint.com/?jpqvg8faWu

Dim h, ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
ligne = Target.Row
h = Target.RowHeight
Target.RowHeight = 20
End Sub

Cordialement JB

Bonjour,

Je souhaite pouvoir travailler sur excel en agrandissant la ligne sur
laquelle je travaille.
Par exemple, lorsque je descend la ligne s'agrandie tandis que la précédente
reprend sa hauteur initiale.
Comme quand on visualise 'Ajout suppression de programme'.

Enfin je demande ça, je ne sais même si c'est réalisable.

Merci pour votre aide

Affiche le texte de la cellule active dans un Shape (avec
grossissement).

http://cjoint.com/?jpuVgB3vmN

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Sheets(1).Shapes("monshape").Select
Sheets(1).Shapes("monshape").Left = ActiveCell.Left
Sheets(1).Shapes("monshape").Top = ActiveCell.Top +
ActiveCell.Height + 3
Selection.Characters.Text = ActiveCell
ActiveCell.Select
End If
End Sub

JB

Salut JB,

Beau et propre !
Mais je ne vois vraiment pas l'intérêt si la police n'est pas aussi a grandie.

Exemple : je veux avoir une vison plus étendue de ma feuille, donc zoom à
50%, mais je ne peux plus lire les textes, sauf si ...

Le top serait que la largeur de la colonne soit aussi agrandie.

Tu vois où je veux en venir ?

Â+

Bonjour,

Modifie la hauteur de la ligne courante:

http://cjoint.com/?jpqvg8faWu

Dim h, ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
ligne = Target.Row
h = Target.RowHeight
Target.RowHeight = 20
End Sub

Cordialement JB

Bonjour,

Je souhaite pouvoir travailler sur excel en agrandissant la ligne sur
laquelle je travaille.
Par exemple, lorsque je descend la ligne s'agrandie tandis que la pr écédente
reprend sa hauteur initiale.
Comme quand on visualise 'Ajout suppression de programme'.

Enfin je demande ça, je ne sais même si c'est réalisable.

Merci pour votre aide

Bonjour,

Merci beaucoup.

Ce serait très bien s'il n'y avait deux petits problèmes.
Il n'y a pas moyen de sélectionner avec la souris une cellule cachée par la
fenêtre.
La loupe ne fonctionne pas durant la frappe, uniquement après validation.

Etant nul en macro, je ne puis le faire, mais serait impensable d'appliquer
la même procédure à la colonne que celle appliquée à la ligne ?

Bon week-end
Â+

Affiche le texte de la cellule active dans un Shape (avec
grossissement).

http://cjoint.com/?jpuVgB3vmN

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Sheets(1).Shapes("monshape").Select
Sheets(1).Shapes("monshape").Left = ActiveCell.Left
Sheets(1).Shapes("monshape").Top = ActiveCell.Top +
ActiveCell.Height + 3
Selection.Characters.Text = ActiveCell
ActiveCell.Select
End If
End Sub

JB

Salut JB,

Beau et propre !
Mais je ne vois vraiment pas l'intérêt si la police n'est pas aussi agrandie.

Exemple : je veux avoir une vison plus étendue de ma feuille, donc zoom à
50%, mais je ne peux plus lire les textes, sauf si ...

Le top serait que la largeur de la colonne soit aussi agrandie.

Tu vois où je veux en venir ?

Â+

Bonjour,

Modifie la hauteur de la ligne courante:

http://cjoint.com/?jpqvg8faWu

Dim h, ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
ligne = Target.Row
h = Target.RowHeight
Target.RowHeight = 20
End Sub

Cordialement JB

Bonjour,

Je souhaite pouvoir travailler sur excel en agrandissant la ligne sur
laquelle je travaille.
Par exemple, lorsque je descend la ligne s'agrandie tandis que la précédente
reprend sa hauteur initiale.
Comme quand on visualise 'Ajout suppression de programme'.

Enfin je demande ça, je ne sais même si c'est réalisable.

Merci pour votre aide

Loupe:
Double-clic pour afficher/Masquer le shape
On peut modifier manuellement la taille et la police du shape

http://cjoint.com/?jqhFleIxQz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 And ActiveSheet.Shapes("monshape").Visible = True
Then
If Err <> 0 Then creeShape
ActiveSheet.Shapes("monshape").Select
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top +
ActiveCell.Height + 3
Selection.Characters.Text = ActiveCell
ActiveCell.Select
End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
ActiveSheet.Shapes("monshape").Visible = Not
ActiveSheet.Shapes("monshape").Visible
Cancel = True
End Sub

Sub creeShape()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1,
180, 50).Select
Selection.Font.Name = "Verdana"
Selection.Font.Size = 13
Selection.Name = "monshape"
ActiveSheet.Shapes("monshape").Left = ActiveCell.Left
ActiveSheet.Shapes("monshape").Top = ActiveCell.Top +
ActiveCell.Height + 3
End Sub

JB

Bonjour,

Je souhaite pouvoir travailler sur excel en agrandissant la ligne sur
laquelle je travaille.
Par exemple, lorsque je descend la ligne s'agrandie tandis que la préc édente
reprend sa hauteur initiale.
Comme quand on visualise 'Ajout suppression de programme'.

Enfin je demande ça, je ne sais même si c'est réalisable.

Merci pour votre aide

Salut,

Merci pour la macro elle est très bien, j'ai vu vos échange avec Dre mais
perso c'est ce que je voulais.
Si ce n'est que des fois la ligne ne reprend pas de hauteur initiale.
J'ai mis une hauteur à 12 avec un agrandissement à 70 et des fois elle reste
bloquée à 70 je suis obligée rereglée la hauteur à 14.
Enfin pas grave.
Merci encore, réponse ultra rapide

Bonjour,

http://cjoint.com/?jqiPq7OaA1

Si on veut restituer la hauteur de ligne initialse à la sauvegarde:

Dans un module:
Public ligne, h

Dans la feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
ligne = Target.Row
h = Target.RowHeight
'--
Target.RowHeight = 20
End If
End Sub

Pour restituer la hauteur de ligne à la sauvegarde:
Dans BeforeSave du classeur:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
End Sub

JB

Salut,

Merci pour la macro elle est très bien, j'ai vu vos échange avec Dre mais
perso c'est ce que je voulais.
Si ce n'est que des fois la ligne ne reprend pas de hauteur initiale.
J'ai mis une hauteur à 12 avec un agrandissement à 70 et des fois ell e reste
bloquée à 70 je suis obligée rereglée la hauteur à 14.
Enfin pas grave.
Merci encore, réponse ultra rapide

http://cjoint.com/?jqiTnnZ7WF

JB

Bonjour,

Merci beaucoup.

Ce serait très bien s'il n'y avait deux petits problèmes.
Il n'y a pas moyen de sélectionner avec la souris une cellule cachée par la
fenêtre.
La loupe ne fonctionne pas durant la frappe, uniquement après validatio n.

Etant nul en macro, je ne puis le faire, mais serait impensable d'appliqu er
la même procédure à la colonne que celle appliquée à la ligne ?

Bon week-end
Â+

Affiche le texte de la cellule active dans un Shape (avec
grossissement).

http://cjoint.com/?jpuVgB3vmN

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Sheets(1).Shapes("monshape").Select
Sheets(1).Shapes("monshape").Left = ActiveCell.Left
Sheets(1).Shapes("monshape").Top = ActiveCell.Top +
ActiveCell.Height + 3
Selection.Characters.Text = ActiveCell
ActiveCell.Select
End If
End Sub

JB

Salut JB,

Beau et propre !
Mais je ne vois vraiment pas l'intérêt si la police n'est pas aus si agrandie.

Exemple : je veux avoir une vison plus étendue de ma feuille, donc zoom à
50%, mais je ne peux plus lire les textes, sauf si ...

Le top serait que la largeur de la colonne soit aussi agrandie.

Tu vois où je veux en venir ?

Â+

Bonjour,

Modifie la hauteur de la ligne courante:

http://cjoint.com/?jpqvg8faWu

Dim h, ligne
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ligne <> "" Then
Cells(ligne, 1).RowHeight = h
End If
ligne = Target.Row
h = Target.RowHeight
Target.RowHeight = 20
End Sub

Cordialement JB

Bonjour,

Je souhaite pouvoir travailler sur excel en agrandissant la ligne sur
laquelle je travaille.
Par exemple, lorsque je descend la ligne s'agrandie tandis que la précédente
reprend sa hauteur initiale.
Comme quand on visualise 'Ajout suppression de programme'.

Enfin je demande ça, je ne sais même si c'est réalisable.

Merci pour votre aide