Re : Dimension de colonne suivant information dans cellule
bonjour,
chacune des deux premières procédures peuvent commencer par appeler la 3ème (si j'ai compris)
Sub PHASE1()
Dim c As Range, sCol As Range
Dim cRow As Integer, rTri As Range
RAZCOLONNEth
Set rTri = ActiveSheet.Range("I5:Q6")
For Each c In rTri
If c.Value = "1" Then
cRow = c.Row
Exit For
End If
Next c
Set sCol = ActiveSheet.Columns("I:Q")
For Each c In sCol.Rows(cRow).Cells
If c.Value = vbNullString Then c.ColumnWidth = 0
Next c
End Sub
Sub PHASE12()
Dim c As Range, sCol As Range
Dim cRow As Integer, rTri As Range
RAZCOLONNEth
Set rTri = ActiveSheet.Range("I6:Q6")
For Each c In rTri
If c.Value = "1" Then
cRow = c.Row
Exit For
End If
Next c
Set sCol = ActiveSheet.Columns("I:Q")
For Each c In sCol.Rows(cRow).Cells
If c.Value = vbNullString Then c.ColumnWidth = 0
Next c
End Sub