Bonjour cher(e)s Contributeurs (trices).
J'ai une cellule A1 qui contient une valeur et qui est assortie d'un
commentaire. Ma question est toute simple :
Quel est le code VBA qui permet d'extraire le commentaire de la cellule
A1 et de le porter dans la cellule B1. Je suis un peu pataud en VBA et
je n'ai pas trouvé la méthode adéquate.
Par avance, grands mercis.
Cordialement.
Bonjour cher(e)s Contributeurs (trices).
J'ai une cellule A1 qui contient une valeur et qui est assortie d'un
commentaire. Ma question est toute simple :
Quel est le code VBA qui permet d'extraire le commentaire de la cellule
A1 et de le porter dans la cellule B1. Je suis un peu pataud en VBA et
je n'ai pas trouvé la méthode adéquate.
Par avance, grands mercis.
Cordialement.
Bonjour cher(e)s Contributeurs (trices).
J'ai une cellule A1 qui contient une valeur et qui est assortie d'un
commentaire. Ma question est toute simple :
Quel est le code VBA qui permet d'extraire le commentaire de la cellule
A1 et de le porter dans la cellule B1. Je suis un peu pataud en VBA et
je n'ai pas trouvé la méthode adéquate.
Par avance, grands mercis.
Cordialement.
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$ba4acef3@reader.news.orange.fr>,
"Sam" <prenom-ou-sam@citron.fr> wrote (écrivait) :
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Bonsoir;
>...si le commentaire de la cellule A1 est "TOTO", que range("B1").value =
>"TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de news:
> Merci Michel dit "Sam" de cette information, mais je me suis peut-être
> mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
> contenu du commentaire inséré dans la cellule A1 (et non que la cellule
> B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
> est "TOTO", que range("B1").value = "TOTO".
>
> Merci encore pour cette première info et pour ta réactivité.
>
> Cordialement.
>
> In article (Dans l'article)
>
> <4c45e49e$0$2972$,
> "Sam" wrote (écrivait) :
>
>> Bonjour, en me basant sur ma bible (le site de JB) et la création
>> automatique de macro
>> j'ai fait ceci
>>
>> Sub Macro1()
>> '
>> ' Macro1 Macro
>> ' Macro enregistrée le 20/07/2010 par Michel
>> '
>> ' Touche de raccourci du clavier: Ctrl+w
>> '
>>
>> With Range("B1")
>> If .Comment Is Nothing Then
>> .AddComment ' Création commentaire
>> .Comment.Text Text:=Range("A1").Comment.Text
>> End If
>> End With
>> Range("A1").ClearComments
>> End Sub
>>
>> Cordialement
>> Michel dit "Sam"
Bonsoir;
>...si le commentaire de la cellule A1 est "TOTO", que range("B1").value =
>"TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" <paul.grolleron@wanadoo.fr> a écrit dans le message de news:
paul.grolleron-FA9398.21000120072010@news.orange.fr...
> Merci Michel dit "Sam" de cette information, mais je me suis peut-être
> mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
> contenu du commentaire inséré dans la cellule A1 (et non que la cellule
> B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
> est "TOTO", que range("B1").value = "TOTO".
>
> Merci encore pour cette première info et pour ta réactivité.
>
> Cordialement.
>
> In article (Dans l'article)
>
> <4c45e49e$0$2972$ba4acef3@reader.news.orange.fr>,
> "Sam" <prenom-ou-sam@citron.fr> wrote (écrivait) :
>
>> Bonjour, en me basant sur ma bible (le site de JB) et la création
>> automatique de macro
>> j'ai fait ceci
>>
>> Sub Macro1()
>> '
>> ' Macro1 Macro
>> ' Macro enregistrée le 20/07/2010 par Michel
>> '
>> ' Touche de raccourci du clavier: Ctrl+w
>> '
>>
>> With Range("B1")
>> If .Comment Is Nothing Then
>> .AddComment ' Création commentaire
>> .Comment.Text Text:=Range("A1").Comment.Text
>> End If
>> End With
>> Range("A1").ClearComments
>> End Sub
>>
>> Cordialement
>> Michel dit "Sam"
Bonsoir;
>...si le commentaire de la cellule A1 est "TOTO", que range("B1").value =
>"TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de news:
> Merci Michel dit "Sam" de cette information, mais je me suis peut-être
> mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
> contenu du commentaire inséré dans la cellule A1 (et non que la cellule
> B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
> est "TOTO", que range("B1").value = "TOTO".
>
> Merci encore pour cette première info et pour ta réactivité.
>
> Cordialement.
>
> In article (Dans l'article)
>
> <4c45e49e$0$2972$,
> "Sam" wrote (écrivait) :
>
>> Bonjour, en me basant sur ma bible (le site de JB) et la création
>> automatique de macro
>> j'ai fait ceci
>>
>> Sub Macro1()
>> '
>> ' Macro1 Macro
>> ' Macro enregistrée le 20/07/2010 par Michel
>> '
>> ' Touche de raccourci du clavier: Ctrl+w
>> '
>>
>> With Range("B1")
>> If .Comment Is Nothing Then
>> .AddComment ' Création commentaire
>> .Comment.Text Text:=Range("A1").Comment.Text
>> End If
>> End With
>> Range("A1").ClearComments
>> End Sub
>>
>> Cordialement
>> Michel dit "Sam"
Bonsoir;...si le commentaire de la cellule A1 est "TOTO", que range("B1").value =
"TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de
news:Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Bonsoir;
...si le commentaire de la cellule A1 est "TOTO", que range("B1").value =
"TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" <paul.grolleron@wanadoo.fr> a écrit dans le message de
news: paul.grolleron-FA9398.21000120072010@news.orange.fr...
Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$ba4acef3@reader.news.orange.fr>,
"Sam" <prenom-ou-sam@citron.fr> wrote (écrivait) :
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Bonsoir;...si le commentaire de la cellule A1 est "TOTO", que range("B1").value =
"TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de
news:Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Cela me rappelle le style de AV (merci encore à lui) en un temps ....
Réponse lapidaire mais efficace.
Cela me rappelle le style de AV (merci encore à lui) en un temps temps où nous étions jeunes
;-))
Bien amicalement
Michel
"Jacky" a écrit dans le message de news:4c45f42a$0$2986$Bonsoir;...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de news:Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Cela me rappelle le style de AV (merci encore à lui) en un temps ....
Réponse lapidaire mais efficace.
Cela me rappelle le style de AV (merci encore à lui) en un temps temps où nous étions jeunes
;-))
Bien amicalement
Michel
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:4c45f42a$0$2986$ba4acef3@reader.news.orange.fr...
Bonsoir;
...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" <paul.grolleron@wanadoo.fr> a écrit dans le message de news:
paul.grolleron-FA9398.21000120072010@news.orange.fr...
Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$ba4acef3@reader.news.orange.fr>,
"Sam" <prenom-ou-sam@citron.fr> wrote (écrivait) :
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Cela me rappelle le style de AV (merci encore à lui) en un temps ....
Réponse lapidaire mais efficace.
Cela me rappelle le style de AV (merci encore à lui) en un temps temps où nous étions jeunes
;-))
Bien amicalement
Michel
"Jacky" a écrit dans le message de news:4c45f42a$0$2986$Bonsoir;...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de news:Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Cela me rappelle le style de AV
Cela me rappelle le style de AV (merci encore à lui) en un temps ....
Réponse lapidaire mais efficace.
Cela me rappelle le style de AV (merci encore à lui) en un temps temps où nous étions jeunes
;-))
Bien amicalement
Michel
"Jacky" a écrit dans le message de news:4c45f42a$0$2986$Bonsoir;...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de news:Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Cela me rappelle le style de AV
Cela me rappelle le style de AV (merci encore à lui) en un temps ....
Réponse lapidaire mais efficace.
Cela me rappelle le style de AV (merci encore à lui) en un temps temps où nous étions jeunes
;-))
Bien amicalement
Michel
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:4c45f42a$0$2986$ba4acef3@reader.news.orange.fr...
Bonsoir;
...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" <paul.grolleron@wanadoo.fr> a écrit dans le message de news:
paul.grolleron-FA9398.21000120072010@news.orange.fr...
Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$ba4acef3@reader.news.orange.fr>,
"Sam" <prenom-ou-sam@citron.fr> wrote (écrivait) :
Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"
Cela me rappelle le style de AV
Cela me rappelle le style de AV (merci encore à lui) en un temps ....
Réponse lapidaire mais efficace.
Cela me rappelle le style de AV (merci encore à lui) en un temps temps où nous étions jeunes
;-))
Bien amicalement
Michel
"Jacky" a écrit dans le message de news:4c45f42a$0$2986$Bonsoir;...si le commentaire de la cellule A1 est "TOTO", que range("B1").value = "TOTO".
'---------------
[B1] = [A1].Comment.Text
'--------------
--
Salutations
JJ
"Paul GROLLERON" a écrit dans le message de news:Merci Michel dit "Sam" de cette information, mais je me suis peut-être
mal expliqué : j'aimerais que la cellule B1 prenne comme valeur le
contenu du commentaire inséré dans la cellule A1 (et non que la cellule
B1 soit "commentée"). Autrement dit, si le commentaire de la cellule A1
est "TOTO", que range("B1").value = "TOTO".
Merci encore pour cette première info et pour ta réactivité.
Cordialement.
In article (Dans l'article)
<4c45e49e$0$2972$,
"Sam" wrote (écrivait) :Bonjour, en me basant sur ma bible (le site de JB) et la création
automatique de macro
j'ai fait ceci
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2010 par Michel
'
' Touche de raccourci du clavier: Ctrl+w
'
With Range("B1")
If .Comment Is Nothing Then
.AddComment ' Création commentaire
.Comment.Text Text:=Range("A1").Comment.Text
End If
End With
Range("A1").ClearComments
End Sub
Cordialement
Michel dit "Sam"