|
|
|
|
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then If Target.Value = "" Then Target.Rows.RowHeight = 3 ElseIf Target.Value = "Bonjour" Then Target.Rows.RowHeight = 30 ElseIf Target.Value = "Au revoir" Then Target.Rows.RowHeight = 60 End If End If End Sub Tu cliques avec le bouton droit sur l'onglet de ta feuille, et tu choisis "Visualiser le code". Puis tu copies colles le code que je t'ai donné et tu testes. m@rina - "Sur le forum bureautique, on pose des questions concernant la bureautique..." - "Ah bon ???" |