Excel - Boucle for each, ajout de commentaires
Résolu
jean_patrice
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
-
tyranausor Messages postés 3545 Date d'inscription Statut Membre Dernière intervention -
tyranausor Messages postés 3545 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
- 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
- Pourquoi ne peut on pas voir tous les commentaires sur facebook ✓ - Forum Facebook
- Vba attendre 1 seconde ✓ - Forum VB / VBA
2 réponses
Bonjour, une question toute bête, qu'est-ce que c'est RefEdit1.Value?
jean_patrice
Messages postés
22
Date d'inscription
Statut
Membre
Dernière intervention
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