Discussion :

[Glutinus]

Bonjour,

Je mets ma cellule A2 avec l'option (par clic droit, format de cellule) "Renvoyer à la ligne automatiquement".
Ensuite j'écris dedans "Ceci est un test pour renvoyer à la ligne automatiquement" => OK c'est bon renvoi de la ligne, réajustement de la hauteur de la cellule.

Par la suite si je remplace le contenu par une formule, du type SI(A1=10;"Ceci est un test pour renvoyer à la ligne automatiquement";"").
Je me place en A1, je mets 10. Le texte s'inscrit dans A2 mais la cellule, et la ligne par conséquent, n'est pas agrandie.

Y a-t-il une option pour que cela marche même avec une formule ?

[Malick]

Je suis sur Excel 2013, mais je pense que cela est faisable sur Excel 2010 en cliquant sur :

l'onglet "Accueil" -> Cellule -> Format -> clic sur "Ajuster la hauteur de la ligne".

@+

[Glutinus]

Hello,

Merci, en one-shot ça fonctionne.

Ceci dit si je mets mon formulaire à disposition de mes utilisateurs ils ne vont pas penser à le faire (alors qu'ils s'y censés mieux se connaître en Excel que moi ). J'aurai voulu une solution automatique : j'écris 10, la cellule s'agrandit, je supprime 10 elle revient à hauteur.

[vinc_bilb]

Bonjour,

Je ne vois comme solution automatique que de code événementiel comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
    If Not(Application.Intersect(Target, Sh.Range("xx:yy")) Is Nothing) Then AutoFit_ActivWsh
 
End Sub
 
Sub AutoFit_ActivWsh()
 
    ActiveSheet.Columns.AutoFit
    ActiveSheet.Rows.AutoFit
 
End Sub