Excel - Boucle for each, ajout de commentaires

[Résolu/Fermé]
Signaler
Messages postés
22
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
3 août 2015
-
Messages postés
3529
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
24 juin 2021
-
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 :

 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



2 réponses

Messages postés
3529
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
24 juin 2021
1 953
Bonjour, une question toute bête, qu'est-ce que c'est RefEdit1.Value?
Messages postés
22
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
3 août 2015

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
Messages postés
22
Date d'inscription
lundi 1 juin 2015
Statut
Membre
Dernière intervention
3 août 2015

j'ai trouvé !
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
Messages postés
3529
Date d'inscription
jeudi 6 août 2009
Statut
Membre
Dernière intervention
24 juin 2021
1 953
Tant mieux pour toi que tu aies trouvé par toi-même!