Discussion :

[chouchoute59]

Bonjour,

Je suis entrain de créer un planning avec des boutons mais je cale sur le bouton insérer un commentaire.

J'ai trouvé avec InputBox mais je souhaiterai que l'utilisateur choisisse la cellule avec la souris mais je ne trouve pas.

Quelqu'un peut-il m'aider ?

Voici ce que j'ai trouvé pour le moment.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'
'inserer un commentaire
'
Sub commentaireessai()
 
If ActiveCell = Range("z5") Then
  cel = InputBox("cellule à commenter : ")
    Set commentaire = Range(cel).Comment
    If commentaire Is Nothing Then
    com = InputBox("Saisir le commentaire", "Nouveau commentaire")
    Range(cel).AddComment com
    Else
    MsgBox "il y a dèjà un commentaire"
    End If
End If
 
End Sub

Merci par avance de votre aide.

[mat955]

Bonjour,

Il faut utiliser la méthode Inputbox plutôt que la fonction Inputbox.
En lui définissant le bon type (dans le cas d'une cellule -> 8), elle te renverra un objet Range que tu pourras utiliser dans ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Cellule as Range
 
Set Cellule = Application.InputBox("Sélectionner une cellule", "Titre", , , , , , 8)
 
Cellule.AddComment...

[chouchoute59]

Bonjour mat955

je débute dans le VBA. J'ai déja essayé avec la fonction application.inputbox mais j'ai des messages d'erreur.

En fait le commentaire c'est une note dans la cellule (petit triangle à gauche dans la cellule).

[mat955]

Re,

En fait le commentaire c'est une note dans la cellule (petit triangle à gauche dans la cellule).

Si je ne m'abuse, le petit triangle est à droite

Voici un code qui répond à ton besoin et qui te demande même si tu veux remplacer le commentaire existant le cas échéant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub commentaireessai()
 
Dim Cellule As Range
Dim Commentaire As Comment
Dim TexteCommentaire As String
Dim Choix As VbMsgBoxResult
 
    Set Cellule = Application.InputBox("Sélectionner la cellule à commenter : ", "Choix cellule", , , , , , 8)
    Set Commentaire = Cellule.Comment
    TexteCommentaire = InputBox("Saisir le commentaire", "Nouveau commentaire")
    If Commentaire Is Nothing Then
        Cellule.AddComment TexteCommentaire
    Else
        Choix = MsgBox("Il y a dèjà un commentaire, le remplacer ?", vbYesNo + vbInformation, "Attention")
        If Choix = vbYes Then Cellule.Comment.Text TexteCommentaire
    End If
 
End Sub

[chouchoute59]

Je te remercie beaucoup de ton aide.

Je vais l'essayer de suite.

Je me rends compte que je me suis attaquée à quelque chose de dur. Lol

[mat955]

Il faut bien commencer un jour

Le forum est là pour aider si besoin.
Jette un oeil aux différents tutoriels si le VBA t'intéresse, ils sont très bien faits et te permettront de progresser rapidement.