Excel - Boucle for each, ajout de commentaires
Résolu
jean_patrice
Messages postés
22
Statut
Membre
-
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3501 Date d'inscription Statut Membre Dernière intervention -
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
- Commentaires word - Guide
- Les commentaires sur cette publication ont été restreints ✓ - Forum Instagram
- Comment faire pour que mes amis ne voient pas mes commentaires sur facebook ✓ - Forum Facebook
- Incompatibilité de type vba ✓ - Forum Programmation
- Clément a partagé le fichier mme bovary. il a écrit des commentaires dans le document. quel est le 2e commentaire ? - Forum Instagram
2 réponses
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
