Excel - Boucle for each, ajout de commentaires
Résolu
jean_patrice
Messages postés
22
Statut
Membre
-
tyranausor Messages postés 4198 Statut Membre -
tyranausor Messages postés 4198 Statut Membre -
Bonjour,
voici mon problème : je voudrais faire une macro qui, après sélection d'une plage de donnée (plus précisément une colonne avec plusieurs lignes) avec un userform et RefEdit, ajoute un commentaire différent pour chaque cellule, qui est demandé à l'utilisateur. Par exemple :
Pour Range("A1:A10")
A1 --> commentaire "bla-bla"
A2 --> commentaire "RE bla-bla-bla"
etc...
voici mon 1er jet qui, j'imagine bien est trop simple mais qui peut vous aider à comprendre :
voici mon problème : je voudrais faire une macro qui, après sélection d'une plage de donnée (plus précisément une colonne avec plusieurs lignes) avec un userform et RefEdit, ajoute un commentaire différent pour chaque cellule, qui est demandé à l'utilisateur. Par exemple :
Pour Range("A1:A10")
A1 --> commentaire "bla-bla"
A2 --> commentaire "RE bla-bla-bla"
etc...
voici mon 1er jet qui, j'imagine bien est trop simple mais qui peut vous aider à comprendre :
Private Sub CommandButton1_Click()
Dim plage_com As String
plage_com = RefEdit1.Value
Dim cell As range
For Each cell In range(plage_com)
range(plage_com).AddComment
range(plage_com).Comment.Text Text:=InputBox("Tapez votre texte", "Ajout du texte")
With range(plage_com).Comment
.Shape.Width = 120
.Shape.Height = 50
.Shape.OLEFormat.Object.Font.Size = 10
End With
Next cell
Unload Me
End Sub
A voir également:
- Commentaires vba
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Guide
- Excel compter cellule couleur sans vba - Guide
- Mes commentaires tiktok n'apparaissent pas - Forum Mail
- Soucis Commentaires TikTok - Forum Mail
- Pourquoi ne peut on pas voir tous les commentaires sur facebook ✓ - Forum Facebook
2 réponses
Bonjour, une question toute bête, qu'est-ce que c'est RefEdit1.Value?
jean_patrice
Messages postés
22
Statut
Membre
j'ai vu ça sur un forum. je suppose que cela affecte à ma variable la plage de données de refedit. du coup ma variable est, dans ce cas, Feuil1!$A$1:$A$10
j'ai trouvé !
si y en a que ça intéresse voici le code :
si y en a que ça intéresse voici le code :
Private Sub CommandButton1_Click()
Dim plage_com As String
plage_com = RefEdit1.Value
Dim cell As range
For Each cell In range(plage_com)
cell.ClearComments
cell.AddComment
cell.Comment.Text Text:=InputBox("Tapez votre texte", "Ajout du texte")
With cell.Comment
.Shape.Width = 115
.Shape.Height = 15
.Shape.OLEFormat.Object.Font.Size = 10
End With
Next cell
Unload Me
End Sub