Excel - Boucle for each, ajout de commentaires

Résolu/Fermé

jean_patrice Messages postés 22 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 3 août 2015 - Modifié par jean_patrice le 3/08/2015 à 20:07
tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 - 4 août 2015 à 11:50

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

A voir également:

Vba boucle for each
Download instagram for pc - Télécharger - Divers Communication
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Saveaspdf.exe for office 2007 - Télécharger - Bureautique
Vba attendre 1 seconde ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
3 août 2015 à 20:12

Bonjour, une question toute bête, qu'est-ce que c'est RefEdit1.Value?

jean_patrice Messages postés 22 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 3 août 2015
3 août 2015 à 20:22

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

Réponse 2 / 2

jean_patrice Messages postés 22 Date d'inscription lundi 1 juin 2015 Statut Membre Dernière intervention 3 août 2015
3 août 2015 à 20:57

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

tyranausor Messages postés 3545 Date d'inscription jeudi 6 août 2009 Statut Membre Dernière intervention 1 avril 2022 2 031
4 août 2015 à 11:50

Tant mieux pour toi que tu aies trouvé par toi-même!

Discussions similaires

Mon pc s'allume et s'éteint en boucle

VBA : Range avec références variables..

Redémarrage en boucle Xiamo mi note 10

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters