J'utilise le code suivant pour ins=E9rer un commentaire dans=20
une cellule et le rendre auto-ajustable, mais h=E9las, la=20
propri=E9t=E9 auto-ajustable ne fonctionne pas !
On Error Resume Next
Cells(insertLine, 11).Comment.Delete
Cells(insertLine, 11).AddComment.Text (TBComment.Text)
Cells(insertLine, 11).Comment.AutoSize =3D True
On Error GoTo 0
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
Paul V.
Bonjour;
AMHA, autosize ne s'applique pas que les commentaires mais uniquement sur les zone de texte.
-- HTH
Paul V.
Jean-Luc GARNIER wrote:
Bonjour,
J'utilise le code suivant pour insérer un commentaire dans une cellule et le rendre auto-ajustable, mais hélas, la propriété auto-ajustable ne fonctionne pas !
On Error Resume Next Cells(insertLine, 11).Comment.Delete Cells(insertLine, 11).AddComment.Text (TBComment.Text) Cells(insertLine, 11).Comment.AutoSize = True On Error GoTo 0
Ais-je écrit une bêtise ?
Merci de votre aide !
Jean-Luc
Bonjour;
AMHA, autosize ne s'applique pas que les commentaires mais uniquement sur
les zone de texte.
--
HTH
Paul V.
Jean-Luc GARNIER wrote:
Bonjour,
J'utilise le code suivant pour insérer un commentaire dans
une cellule et le rendre auto-ajustable, mais hélas, la
propriété auto-ajustable ne fonctionne pas !
On Error Resume Next
Cells(insertLine, 11).Comment.Delete
Cells(insertLine, 11).AddComment.Text (TBComment.Text)
Cells(insertLine, 11).Comment.AutoSize = True
On Error GoTo 0
AMHA, autosize ne s'applique pas que les commentaires mais uniquement sur les zone de texte.
-- HTH
Paul V.
Jean-Luc GARNIER wrote:
Bonjour,
J'utilise le code suivant pour insérer un commentaire dans une cellule et le rendre auto-ajustable, mais hélas, la propriété auto-ajustable ne fonctionne pas !
On Error Resume Next Cells(insertLine, 11).Comment.Delete Cells(insertLine, 11).AddComment.Text (TBComment.Text) Cells(insertLine, 11).Comment.AutoSize = True On Error GoTo 0
"Jean-Luc GARNIER" a écrit dans le message de news:948a01c43379$ffb3a840$ Bonjour,
J'utilise le code suivant pour insérer un commentaire dans une cellule et le rendre auto-ajustable, mais hélas, la propriété auto-ajustable ne fonctionne pas !
On Error Resume Next Cells(insertLine, 11).Comment.Delete Cells(insertLine, 11).AddComment.Text (TBComment.Text) Cells(insertLine, 11).Comment.AutoSize = True On Error GoTo 0
"Jean-Luc GARNIER" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:948a01c43379$ffb3a840$a601280a@phx.gbl...
Bonjour,
J'utilise le code suivant pour insérer un commentaire dans
une cellule et le rendre auto-ajustable, mais hélas, la
propriété auto-ajustable ne fonctionne pas !
On Error Resume Next
Cells(insertLine, 11).Comment.Delete
Cells(insertLine, 11).AddComment.Text (TBComment.Text)
Cells(insertLine, 11).Comment.AutoSize = True
On Error GoTo 0
"Jean-Luc GARNIER" a écrit dans le message de news:948a01c43379$ffb3a840$ Bonjour,
J'utilise le code suivant pour insérer un commentaire dans une cellule et le rendre auto-ajustable, mais hélas, la propriété auto-ajustable ne fonctionne pas !
On Error Resume Next Cells(insertLine, 11).Comment.Delete Cells(insertLine, 11).AddComment.Text (TBComment.Text) Cells(insertLine, 11).Comment.AutoSize = True On Error GoTo 0