Cellules avec commentaire
Résolu
isaser
-
isaser -
isaser -
Bonjour,
J'ai une feuille de calcul Excel avec 950 cellules qui contiennent un commentaire. J'aimerai effectuer une macro afin de les mettre toutes avec la même dimension. Là je l'ai fait pour une cellule active, mais la macro bloque à partir de la ligne :
"Selection.ShapeRange.LockAspectRatio = msoFalse"
En même temps si c'est possible d'avoir une réponse pour une plage de cellule (A1 à A10)
ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="comptabilite:" & Chr(10) & ""
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 174.75
Selection.ShapeRange.Width = 218.25
Range("A1").Select
End Sub
J'ai une feuille de calcul Excel avec 950 cellules qui contiennent un commentaire. J'aimerai effectuer une macro afin de les mettre toutes avec la même dimension. Là je l'ai fait pour une cellule active, mais la macro bloque à partir de la ligne :
"Selection.ShapeRange.LockAspectRatio = msoFalse"
En même temps si c'est possible d'avoir une réponse pour une plage de cellule (A1 à A10)
ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="comptabilite:" & Chr(10) & ""
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 174.75
Selection.ShapeRange.Width = 218.25
Range("A1").Select
End Sub
A voir également:
- Cellules avec commentaire
- Commentaire word - Guide
- Verrouiller cellules excel - Guide
- Excel additionner plusieurs cellules - Guide
- Fusionner deux cellules excel - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. - Forum VB / VBA
1 réponse
Bonjour,
Oui le bug vient du fait que pour modifier la mise en forme, vous avez du sélectionner le commentaire. Seulement, l'enregistreur de macro n'a pas pris en compte cette sélection. Je vous livre ce code annoté à placer dans un module :
il permet d'ajouter des commentaires dans la plage de cellules : A2:A100
Oui le bug vient du fait que pour modifier la mise en forme, vous avez du sélectionner le commentaire. Seulement, l'enregistreur de macro n'a pas pris en compte cette sélection. Je vous livre ce code annoté à placer dans un module :
il permet d'ajouter des commentaires dans la plage de cellules : A2:A100
Sub Ajout_Commentaire() 'déclaration de la variable Dim i As Integer 'initialisation de la boucle 'ici nous allons boucler sur toutes les lignes 'de la n°2 à la n°100 For i = 2 To 100 'efface un éventuel commentaire pour éviter un bug de la macro Cells(i, 1).ClearComments 'Cells(i, 1) signifie : cellule(ligne i, 1ère colonne) 'si vous souhaitez boucler sur la colonne C il faut 'remplacer tous les Cells(i, 1) par : Cells(i, 3) 'ajoute un commentaire Cells(i, 1).AddComment 'masque le commentaire Cells(i, 1).Comment.Visible = False 'inscrit comptabilité et passe à la ligne dans le commentaire Cells(i, 1).Comment.Text Text:="comptabilite:" & Chr(10) & "" 'Avec ce commentaire (évite de le sélectionner) With Cells(i, 1).Comment.Shape 'ici on place tout ce qui permet de mettre en forme le comment .LockAspectRatio = msoFalse .Height = 174.75 .Width = 218.25 End With 'ligne suivante Next i End Sub
isaser
Merci beaucoup ça fonctionne, super !!!
