Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Pour la colonne A '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a:a]) Is Nothing Then Target.EntireColumn.AutoFit End Sub '-----------
-- Salutations JJ
"gildas" a écrit dans le message de news:
bonjour à tous,
Est-il possible de saisir du texte ou autre dans une cellule excel et que cette cellule s'adapte (en taille) automatiquement au contenu saisit. Merci.
Bonjour,
Pour la colonne A
'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a:a]) Is Nothing Then Target.EntireColumn.AutoFit
End Sub
'-----------
--
Salutations
JJ
"gildas" <gildas@discussions.microsoft.com> a écrit dans le message de news:
8053F808-D7BB-4691-9615-B024B0C03036@microsoft.com...
bonjour à tous,
Est-il possible de saisir du texte ou autre dans une cellule excel et que
cette cellule s'adapte (en taille) automatiquement au contenu saisit.
Merci.
Pour la colonne A '---------- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a:a]) Is Nothing Then Target.EntireColumn.AutoFit End Sub '-----------
-- Salutations JJ
"gildas" a écrit dans le message de news:
bonjour à tous,
Est-il possible de saisir du texte ou autre dans une cellule excel et que cette cellule s'adapte (en taille) automatiquement au contenu saisit. Merci.