Macro insérer un commentaire avec un bouton

[dudu35]

Bonsoir tout le monde,

Encore une fois je vais avoir besoin de votre précieuse aide 🙂

Je souhaite effectuer une macro relier à un bouton qui permettrait d'insérer un commentaire dans une cellule après sélection de celle-ci. J'ai une macro avec laquelle je dois pas être loin de la vérité mais j'ai malheureusement une erreur 424

Je vous copie le programme peut être que vous saurez m'aider 😀

Sub InsertionComment()
Dim MyCmt As String
Dim LaCell As Range

Set LaCell = Application.InputBox("Cliquez sur une cellule", Default:=ActiveCell.Address, Type:=8)
MyCmt = InputBox("Inscrivez votre commentaire")
On Error Resume Next

With LaCell
.AddComment
With .Comment
.Visible = True
.Text Text:=MyCmt
End With
End With
End Sub


Merci d'avance
dudu35

 

[JNP]

Re : Macro insérer un commentaire avec un bouton

Bonsoir Dudu35 🙂,
J'ai copié ton code, l'ai testé, aucune erreur. Seul souci, en cas de plusieurs cellules sélectionnées, pas de commentaire. Mais il suffirait de faire un test pour si LaCell.Count <> 1...
Bon courage 😎

 

[dudu35]

Re : Macro insérer un commentaire avec un bouton

Bonsoir JNP,

merci d'avoir essayer, alors je viens de réessayer mais sur excel 2007 et donc effectivement pas de problèmes. Le problème c'est que j'utilise une version plus ancienne (2000 ou 2003). Il s'agit d'un projet que je dois faire en cours (je ne fais pas des études en informatique ça se voit je pense 😀) et je n'ai pas le droit d'utiliser 2007.
Y aurait-il une solution ? car je pense qu'il s'agit d'un problème de version.

Merci d'avance

 

[dudu35]

Re : Macro insérer un commentaire avec un bouton

plus précisément, c'est cette ligne là qui pose problème :

Set LaCell = Application.InputBox("Cliquez sur une cellule", Default:=ActiveCell.Address, Type:=8)

 

[JNP]

Re : Macro insérer un commentaire avec un bouton

Re 🙂,
Fait une recherche sur les propriétés d'InputBox dans l'aide de ton ancienne version. Il est possible que la sélection de cellule n'existait pas... Dans ce cas là, tu peux faire un mini USF avec sélection de ta zone, et du commentaire.
Bon courage 😎

 

[dudu35]

Re : Macro insérer un commentaire avec un bouton

re,

J'ai regardé rapidement sur excel, mais je n'ai pas trouvé dans l'aide, je chercherai plus longuement ce soir. Par contre ta dernière phrase, pour moi c'est du chinois 😀

Merci de ton aide

Bonne journée

 

[dudu35]

Re : Macro insérer un commentaire avec un bouton

Bonsoir,

j'ai regardé d'où provenait le soucis, mais je n'ai pas trouvé, est ce qu'il est possible de remplacer "Set LaCell" par "Select Case" (je ne sais pas du tout comment ça marche) ? ou les 2 ne sont pas compatibles?

Si quelqu'un peux m'éclairer 😀

merci d'avance

 

[JNP]

Re : Macro insérer un commentaire avec un bouton

Re 🙂,

Par contre ta dernière phrase, pour moi c'est du chinois 😀

Voir l'exemple joint.
Bonne soirée 😎

 

[JNP]

Re : Macro insérer un commentaire avec un bouton

Re 🙂,
Select Case est une instruction pour des tests successifs type

Select Case Cells(1, 1)
Case "toto"
' faire ceci
Case "tata"
' faire autre chose
Case Else
' faire encore autre chose
End Select

qui si la cellule A1 de la feuille sélectionnée est toto fera ceci, si c'est tata fera autre chose, sinon fera encore autre chose.
Rien à voir avec la sélection d'une cellule.
Bonne soirée 😎

 

[dudu35]

Re : Macro insérer un commentaire avec un bouton

Alors là je te dis un grand merci, c'est parfait !!! Et effectivement j'étais très loin de la vérité avec mon select case 😀

Encore merci !!!


Bonne soirée