ajustement de ligne uniquement sur passage de la cellule

tinet · 5 Mars 2016

Bonjour le forum

j'utilise ce code pour pouvoir dimensionner ma colonne quand elle est sélectionnée
est-il possible de faire la même chose sur un champ de ligne

Columns("A:A").ColumnWidth = IIf(Target.Column = 1, 25, 2)

j'avais oublié de compléter l'information

Pour la ligne j'avais trouvé ceci pour une seule ligne

Rows("10:10").RowHeight = IIf(Target.Row = 10, 40, 20)

je voudrais que ceci se passe uniquement sur la colonne A et non sur les autres colonnes et de la ligne 10 à 20 par exemple

merci

frangy · 5 Mars 2016

Re : ajustement de ligne uniquement sur passage de la cellule

Bonjour,

Une proposition

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A10:A20")) Is Nothing Then
        Columns("A:A").ColumnWidth = 25
        Rows("10:20").RowHeight = 20
        Target.EntireRow.RowHeight = 40
    Else
        Columns("A:A").ColumnWidth = 2
        Rows("10:20").RowHeight = 20
    End If
End Sub

A+

DoubleZero · 5 Mars 2016

Re : ajustement de ligne uniquement sur passage de la cellule

Bonjour, tinet, frangy, le Forum

Une autre suggestion :

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    Cells.RowHeight = 14.25
    If c.Column = 1 And c.Row > 9 And c.Row < 21 Then c.RowHeight = IIf(c.Row = 107, 50, 150)
    Columns(1).ColumnWidth = IIf(c.Column = 1, 25, 2)
End Sub

A bientôt

tinet · 5 Mars 2016

Re : ajustement de ligne uniquement sur passage de la cellule

Merci Frangy et Doublezero

Je garde le code de Frangy plus simple
DoubleZero, le code me remet toute les lignes a la même hauteur, pas bon pour moi
ou possible de limiter les lignes qui ne bouge pas exemple 1 à 10

Merci

ajustement de ligne uniquement sur passage de la cellule

tinet

XLDnaute Impliqué

frangy

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

tinet

XLDnaute Impliqué

Discussions similaires