Je souhaiterais cr er une macro qui permette de modifier le commentaire d ans la cellule en cours.
Pouvez-vous m'aider?
Greg
Tatanka
Salut Greg, Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire() Set ici = ActiveCell ici.Comment.Text Text:="" ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Salut Greg,
Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire()
Set ici = ActiveCell
ici.Comment.Text Text:=""
ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE"
End Sub
Serge
"Greg" <debutant@free.fr> a écrit dans le message de news: 5C01ADB2-59A8-460C-9E25-932BAF1C1A7E@microsoft.com...
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Sub Modifier_Mon_Commentaire() Set ici = ActiveCell ici.Comment.Text Text:="" ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Tatanka
Plus simple ainsi, je crois :
Sub Modifier_Mon_Commentaire() ActiveCell.Comment.Text Text:="Mon nouveau commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Tatanka" a écrit dans le message de news:
Salut Greg, Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire() Set ici = ActiveCell ici.Comment.Text Text:="" ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Plus simple ainsi, je crois :
Sub Modifier_Mon_Commentaire()
ActiveCell.Comment.Text Text:="Mon nouveau commentaire" & Chr(10) & "MPFE"
End Sub
Serge
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news: uQrn6oFuKHA.5936@TK2MSFTNGP04.phx.gbl...
Salut Greg,
Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire()
Set ici = ActiveCell
ici.Comment.Text Text:=""
ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE"
End Sub
Serge
"Greg" <debutant@free.fr> a écrit dans le message de news: 5C01ADB2-59A8-460C-9E25-932BAF1C1A7E@microsoft.com...
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Sub Modifier_Mon_Commentaire() ActiveCell.Comment.Text Text:="Mon nouveau commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Tatanka" a écrit dans le message de news:
Salut Greg, Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire() Set ici = ActiveCell ici.Comment.Text Text:="" ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Greg
Merci à tous les deux,
Je devrais toujours aller me ballader sur le site de JB avant de poser une question... La réponse s'y trouve régulièrement.
J'ai pu y découvrir une fonction qui devrait m'intéresser avec le code suivant, sensé me permettre d'afficher le commentaire à la position choisie:
Dim m Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> "" Then Range(m).Comment.Visible = False If Not Target.Comment Is Nothing Then Target.Comment.Visible = True Target.Comment.Shape.Top = Target.Top + 20 Target.Comment.Shape.Left = Target.Left + 20 Target.Comment.Shape.Height = 40 Target.Comment.Shape.Width = 70 m = Target.Address Else m = "" End If End Sub
J'ai fait plusieurs essais et n'y parviens pas. Sauriez-vous m'aider avec une pièce jointe par exemple. Je ne vois pas où mettre le code... feuille, woorksheet, module... je m'y perds.
Merci
Greg
"Tatanka" a écrit dans le message de news:
Salut Greg, Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire() Set ici = ActiveCell ici.Comment.Text Text:="" ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Merci à tous les deux,
Je devrais toujours aller me ballader sur le site de JB avant de poser une
question... La réponse s'y trouve régulièrement.
J'ai pu y découvrir une fonction qui devrait m'intéresser avec le code
suivant, sensé me permettre d'afficher le commentaire à la position choisie:
Dim m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If m <> "" Then Range(m).Comment.Visible = False
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top + 20
Target.Comment.Shape.Left = Target.Left + 20
Target.Comment.Shape.Height = 40
Target.Comment.Shape.Width = 70
m = Target.Address
Else
m = ""
End If
End Sub
J'ai fait plusieurs essais et n'y parviens pas. Sauriez-vous m'aider avec
une pièce jointe par exemple. Je ne vois pas où mettre le code... feuille,
woorksheet, module... je m'y perds.
Merci
Greg
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de
news:uQrn6oFuKHA.5936@TK2MSFTNGP04.phx.gbl...
Salut Greg,
Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire()
Set ici = ActiveCell
ici.Comment.Text Text:=""
ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE"
End Sub
Serge
"Greg" <debutant@free.fr> a écrit dans le message de news:
5C01ADB2-59A8-460C-9E25-932BAF1C1A7E@microsoft.com...
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire
dans la cellule en cours.
Je devrais toujours aller me ballader sur le site de JB avant de poser une question... La réponse s'y trouve régulièrement.
J'ai pu y découvrir une fonction qui devrait m'intéresser avec le code suivant, sensé me permettre d'afficher le commentaire à la position choisie:
Dim m Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> "" Then Range(m).Comment.Visible = False If Not Target.Comment Is Nothing Then Target.Comment.Visible = True Target.Comment.Shape.Top = Target.Top + 20 Target.Comment.Shape.Left = Target.Left + 20 Target.Comment.Shape.Height = 40 Target.Comment.Shape.Width = 70 m = Target.Address Else m = "" End If End Sub
J'ai fait plusieurs essais et n'y parviens pas. Sauriez-vous m'aider avec une pièce jointe par exemple. Je ne vois pas où mettre le code... feuille, woorksheet, module... je m'y perds.
Merci
Greg
"Tatanka" a écrit dans le message de news:
Salut Greg, Peut-ëtre ainsi :
Sub Modifier_Mon_Commentaire() Set ici = ActiveCell ici.Comment.Text Text:="" ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" End Sub
Serge
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Greg
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait ce que je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du commentaire pour pouvoir y écrire (sans passer par le bouton "modifier le commentaire" mais avec les mêmes conséquences), et non pas à écrire quelque chose de prévu par la macro.
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait ce que
je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du commentaire
pour pouvoir y écrire (sans passer par le bouton "modifier le commentaire"
mais avec les mêmes conséquences), et non pas à écrire quelque chose de
prévu par la macro.
"Greg" <debutant@free.fr> a écrit dans le message de
news:5C01ADB2-59A8-460C-9E25-932BAF1C1A7E@microsoft.com...
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire
dans la cellule en cours.
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait ce que je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du commentaire pour pouvoir y écrire (sans passer par le bouton "modifier le commentaire" mais avec les mêmes conséquences), et non pas à écrire quelque chose de prévu par la macro.
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Tatanka
Est-ce que ça se peutu ? ;-) J'ai hâte de savoir ! Si JB continue à rôder où quelques autres dont je tairai les noms, tu finiras sûrement par savoir si de telles choses sont possibles ;-)
Serge
"Greg" a écrit dans le message de news:
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait ce que je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du commentaire pour pouvoir y écrire (sans passer par le bouton "modifier le commentaire" mais avec les mêmes conséquences), et non pas à écrire quelque chose de prévu par la macro.
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
Est-ce que ça se peutu ? ;-)
J'ai hâte de savoir !
Si JB continue à rôder où quelques autres dont je tairai
les noms, tu finiras sûrement par savoir
si de telles choses sont possibles ;-)
Serge
"Greg" <debutant@free.fr> a écrit dans le message de news: D1F89A23-5C84-4A17-A11A-C96CB2167D39@microsoft.com...
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait ce que je voulais. En fait, je cherche à ouvrir la fenêtre
pop-up du commentaire pour pouvoir y écrire (sans passer par le bouton "modifier le commentaire" mais avec les mêmes
conséquences), et non pas à écrire quelque chose de prévu par la macro.
"Greg" <debutant@free.fr> a écrit dans le message de news:5C01ADB2-59A8-460C-9E25-932BAF1C1A7E@microsoft.com...
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Est-ce que ça se peutu ? ;-) J'ai hâte de savoir ! Si JB continue à rôder où quelques autres dont je tairai les noms, tu finiras sûrement par savoir si de telles choses sont possibles ;-)
Serge
"Greg" a écrit dans le message de news:
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait ce que je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du commentaire pour pouvoir y écrire (sans passer par le bouton "modifier le commentaire" mais avec les mêmes conséquences), et non pas à écrire quelque chose de prévu par la macro.
"Greg" a écrit dans le message de news:
Bonjour,
Je souhaiterais créer une macro qui permette de modifier le commentaire dans la cellule en cours.
Pouvez-vous m'aider?
Greg
JB
Modification commentaire sur clic dans la cellule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.Comment Is Nothing Then SendKeys "%IM{left}" End If End Sub
http://cjoint.com/?cCmDOXFrI7
JB
On 28 fév, 11:12, "Greg" wrote:
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait c e que je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du comment aire pour pouvoir y écrire (sans passer par le bouton "modifier le commentai re" mais avec les mêmes conséquences), et non pas à écrire quelque ch ose de prévu par la macro.
"Greg" a écrit dans le message denews:5C01ADB2-59A8-
> Bonjour,
> Je souhaiterais créer une macro qui permette de modifier le commentai re > dans la cellule en cours.
> Pouvez-vous m'aider?
> Greg- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Modification commentaire sur clic dans la cellule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Comment Is Nothing Then
SendKeys "%IM{left}"
End If
End Sub
http://cjoint.com/?cCmDOXFrI7
JB
On 28 fév, 11:12, "Greg" <debut...@free.fr> wrote:
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait c e que
je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du comment aire
pour pouvoir y écrire (sans passer par le bouton "modifier le commentai re"
mais avec les mêmes conséquences), et non pas à écrire quelque ch ose de
prévu par la macro.
"Greg" <debut...@free.fr> a écrit dans le message denews:5C01ADB2-59A8- 460C-9E25-932BAF1C1A7E@microsoft.com...
> Bonjour,
> Je souhaiterais créer une macro qui permette de modifier le commentai re
> dans la cellule en cours.
> Pouvez-vous m'aider?
> Greg- Masquer le texte des messages précédents -
Modification commentaire sur clic dans la cellule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Target.Comment Is Nothing Then SendKeys "%IM{left}" End If End Sub
http://cjoint.com/?cCmDOXFrI7
JB
On 28 fév, 11:12, "Greg" wrote:
En ce qui concerne la propistion de Tatanka, ce n'est pas tout à fait c e que je voulais. En fait, je cherche à ouvrir la fenêtre pop-up du comment aire pour pouvoir y écrire (sans passer par le bouton "modifier le commentai re" mais avec les mêmes conséquences), et non pas à écrire quelque ch ose de prévu par la macro.
"Greg" a écrit dans le message denews:5C01ADB2-59A8-
> Bonjour,
> Je souhaiterais créer une macro qui permette de modifier le commentai re > dans la cellule en cours.
> Pouvez-vous m'aider?
> Greg- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
PLG
Bonsoir Greg
Sur que JB est un féroce....! Y'en a d'autres très bien aussi (O:}
Mets ton code dans la feuille correspondante. Amuse toi à modifier les valeurs, pour positionner le commentaire et modifier sa taille.
Pat
"Greg" wrote:
Merci à tous les deux,
Je devrais toujours aller me ballader sur le site de JB avant de poser une question... La réponse s'y trouve régulièrement.
J'ai pu y découvrir une fonction qui devrait m'intéresser avec le code suivant, sensé me permettre d'afficher le commentaire à la position choisie:
Dim m Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> "" Then Range(m).Comment.Visible = False If Not Target.Comment Is Nothing Then Target.Comment.Visible = True Target.Comment.Shape.Top = Target.Top + 20 Target.Comment.Shape.Left = Target.Left + 20 Target.Comment.Shape.Height = 40 Target.Comment.Shape.Width = 70 m = Target.Address Else m = "" End If End Sub
J'ai fait plusieurs essais et n'y parviens pas. Sauriez-vous m'aider avec une pièce jointe par exemple. Je ne vois pas où mettre le code... feuille, woorksheet, module... je m'y perds.
Merci
Greg
"Tatanka" a écrit dans le message de news: > Salut Greg, > Peut-ëtre ainsi : > > Sub Modifier_Mon_Commentaire() > Set ici = ActiveCell > ici.Comment.Text Text:="" > ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" > End Sub > > Serge > > > "Greg" a écrit dans le message de news: > >> Bonjour, >> >> Je souhaiterais créer une macro qui permette de modifier le commentaire >> dans la cellule en cours. >> >> Pouvez-vous m'aider? >> >> Greg > > >
.
Bonsoir Greg
Sur que JB est un féroce....!
Y'en a d'autres très bien aussi (O:}
Mets ton code dans la feuille correspondante.
Amuse toi à modifier les valeurs, pour positionner le commentaire et
modifier sa taille.
Pat
"Greg" wrote:
Merci à tous les deux,
Je devrais toujours aller me ballader sur le site de JB avant de poser une
question... La réponse s'y trouve régulièrement.
J'ai pu y découvrir une fonction qui devrait m'intéresser avec le code
suivant, sensé me permettre d'afficher le commentaire à la position choisie:
Dim m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If m <> "" Then Range(m).Comment.Visible = False
If Not Target.Comment Is Nothing Then
Target.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top + 20
Target.Comment.Shape.Left = Target.Left + 20
Target.Comment.Shape.Height = 40
Target.Comment.Shape.Width = 70
m = Target.Address
Else
m = ""
End If
End Sub
J'ai fait plusieurs essais et n'y parviens pas. Sauriez-vous m'aider avec
une pièce jointe par exemple. Je ne vois pas où mettre le code... feuille,
woorksheet, module... je m'y perds.
Merci
Greg
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de
news:uQrn6oFuKHA.5936@TK2MSFTNGP04.phx.gbl...
> Salut Greg,
> Peut-ëtre ainsi :
>
> Sub Modifier_Mon_Commentaire()
> Set ici = ActiveCell
> ici.Comment.Text Text:=""
> ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE"
> End Sub
>
> Serge
>
>
> "Greg" <debutant@free.fr> a écrit dans le message de news:
> 5C01ADB2-59A8-460C-9E25-932BAF1C1A7E@microsoft.com...
>> Bonjour,
>>
>> Je souhaiterais créer une macro qui permette de modifier le commentaire
>> dans la cellule en cours.
>>
>> Pouvez-vous m'aider?
>>
>> Greg
>
>
>
Sur que JB est un féroce....! Y'en a d'autres très bien aussi (O:}
Mets ton code dans la feuille correspondante. Amuse toi à modifier les valeurs, pour positionner le commentaire et modifier sa taille.
Pat
"Greg" wrote:
Merci à tous les deux,
Je devrais toujours aller me ballader sur le site de JB avant de poser une question... La réponse s'y trouve régulièrement.
J'ai pu y découvrir une fonction qui devrait m'intéresser avec le code suivant, sensé me permettre d'afficher le commentaire à la position choisie:
Dim m Private Sub Worksheet_SelectionChange(ByVal Target As Range) If m <> "" Then Range(m).Comment.Visible = False If Not Target.Comment Is Nothing Then Target.Comment.Visible = True Target.Comment.Shape.Top = Target.Top + 20 Target.Comment.Shape.Left = Target.Left + 20 Target.Comment.Shape.Height = 40 Target.Comment.Shape.Width = 70 m = Target.Address Else m = "" End If End Sub
J'ai fait plusieurs essais et n'y parviens pas. Sauriez-vous m'aider avec une pièce jointe par exemple. Je ne vois pas où mettre le code... feuille, woorksheet, module... je m'y perds.
Merci
Greg
"Tatanka" a écrit dans le message de news: > Salut Greg, > Peut-ëtre ainsi : > > Sub Modifier_Mon_Commentaire() > Set ici = ActiveCell > ici.Comment.Text Text:="" > ici.Comment.Text Text:="Modifier mon commentaire" & Chr(10) & "MPFE" > End Sub > > Serge > > > "Greg" a écrit dans le message de news: > >> Bonjour, >> >> Je souhaiterais créer une macro qui permette de modifier le commentaire >> dans la cellule en cours. >> >> Pouvez-vous m'aider? >> >> Greg > > >