Ajustement des cellules en temps réel
Bonjour à tous,
Je travail actuellement sur un projet et je rencontre un petit souci. En effet je cherche à adapter le format d'une cellule à son texte en temps réel. Cette cellule contient une fonction recherchev et est donc amenée à changer très souvent. Du coup, je voudrais que cette cellule change en fonction du texte qu'elle contient sans avoir aucune manipulation à faire entre chaque changement de texte. Cela évitera d'avoir du texte coupé.
On peut voir que lorsque je passe de l'argument 1 au 2, le format de la cellule ne s’adapte pas au texte automatiquement: il faut que je double clic pour l'ajuster mais si je passe de l'argument 1 à l'argument 2 très souvent , ça n'est pas pratique: comment faire pour que la cellule s'ajuste toute seule comme une grande?
Merci à tous ;)
Je travail actuellement sur un projet et je rencontre un petit souci. En effet je cherche à adapter le format d'une cellule à son texte en temps réel. Cette cellule contient une fonction recherchev et est donc amenée à changer très souvent. Du coup, je voudrais que cette cellule change en fonction du texte qu'elle contient sans avoir aucune manipulation à faire entre chaque changement de texte. Cela évitera d'avoir du texte coupé.
On peut voir que lorsque je passe de l'argument 1 au 2, le format de la cellule ne s’adapte pas au texte automatiquement: il faut que je double clic pour l'ajuster mais si je passe de l'argument 1 à l'argument 2 très souvent , ça n'est pas pratique: comment faire pour que la cellule s'ajuste toute seule comme une grande?
Merci à tous ;)
3 réponses
-
Bonjour,
Avec un p'tit classeur exemple se sera mieux -
ContributeurCette fonctionnalité n'existe pas dans Excel
-
Bonsoir
Oui la solution existe par macro :
ALt+F11 pour ouvrir editeur VBA
Double clic sur la feuille concernée dans l'arborescence à gauche
Copier-coller la macro suivante dans la page blanche et fermer l'éditeurPrivate Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C6")) Is Nothing Then Columns("C:C").EntireColumn.AutoFit End If End Sub
A toute modification de la cellule C6 la largeur de colonne s'adaptera
Cdlmnt
Via
-
Bonjour,
Merci de ta réponse, j'ai essayé de l'adapter à mon classeur :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
Rows("12:12").EntireRow.AutoFit
End If
End Sub
Et ça fonctionne parfaitement !!
Je te remercie pour cette petite astuce qui me sera utile pour les prochaines fois :D
Bonne journée,
Nicolas.
-
