à l'aide de cette procédure je veux rajouter du texte dans un
commentaire: ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonsoir,
With [b3].Comment .Text Text:=.Text & Chr(10) & "patati patata" End With
'lSteph
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Bonsoir,
With [b3].Comment
.Text Text:=.Text & Chr(10) & "patati patata"
End With
'lSteph
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un
commentaire: ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
With [b3].Comment .Text Text:=.Text & Chr(10) & "patati patata" End With
'lSteph
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Daniel
Bonsoir.
Sub test() Dim Com As String, Rep As String On Error Resume Next Rep = InputBox("Entrez le texte à ajouter") Com = Selection.Comment.Text Selection.ClearComments Selection.AddComment If Com <> "" Then Selection.Comment.Text Text:=Com & Chr(10) & Rep Else Selection.Comment.Text Rep End If End Sub
Cordialement. Daniel "Pierre52" a écrit dans le message de news: %23c%
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Bonsoir.
Sub test()
Dim Com As String, Rep As String
On Error Resume Next
Rep = InputBox("Entrez le texte à ajouter")
Com = Selection.Comment.Text
Selection.ClearComments
Selection.AddComment
If Com <> "" Then
Selection.Comment.Text Text:=Com & Chr(10) & Rep
Else
Selection.Comment.Text Rep
End If
End Sub
Cordialement.
Daniel
"Pierre52" <pierre52@tiscali.fr> a écrit dans le message de news:
%23c%23zhyCuHHA.3476@TK2MSFTNGP02.phx.gbl...
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire:
ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
Sub test() Dim Com As String, Rep As String On Error Resume Next Rep = InputBox("Entrez le texte à ajouter") Com = Selection.Comment.Text Selection.ClearComments Selection.AddComment If Com <> "" Then Selection.Comment.Text Text:=Com & Chr(10) & Rep Else Selection.Comment.Text Rep End If End Sub
Cordialement. Daniel "Pierre52" a écrit dans le message de news: %23c%
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
AV
Ave,
With [b3].Comment .Text Text:=.Text & Chr(10) & "patati patata" End With
Il faudrait, me semble-t-il, ajouter une ligne (ajustement taille auto) des fois que....
With [b3].Comment .Text Text:=.Text & Chr(10) & "patati patata" .Shape.TextFrame.AutoSize = True End With
AV
Ave,
With [b3].Comment
.Text Text:=.Text & Chr(10) & "patati patata"
End With
Il faudrait, me semble-t-il, ajouter une ligne (ajustement taille auto) des fois
que....
With [b3].Comment
.Text Text:=.Text & Chr(10) & "patati patata"
.Shape.TextFrame.AutoSize = True
End With
With [b3].Comment .Text Text:=.Text & Chr(10) & "patati patata" End With
Il faudrait, me semble-t-il, ajouter une ligne (ajustement taille auto) des fois que....
With [b3].Comment .Text Text:=.Text & Chr(10) & "patati patata" .Shape.TextFrame.AutoSize = True End With
AV
Pierre52
merci à tous les 3 c'est parfait
Bonsoir.
Sub test() Dim Com As String, Rep As String On Error Resume Next Rep = InputBox("Entrez le texte à ajouter") Com = Selection.Comment.Text Selection.ClearComments Selection.AddComment If Com <> "" Then Selection.Comment.Text Text:=Com & Chr(10) & Rep Else Selection.Comment.Text Rep End If End Sub
Cordialement. Daniel "Pierre52" a écrit dans le message de news: %23c%
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
merci à tous les 3 c'est parfait
Bonsoir.
Sub test()
Dim Com As String, Rep As String
On Error Resume Next
Rep = InputBox("Entrez le texte à ajouter")
Com = Selection.Comment.Text
Selection.ClearComments
Selection.AddComment
If Com <> "" Then
Selection.Comment.Text Text:=Com & Chr(10) & Rep
Else
Selection.Comment.Text Rep
End If
End Sub
Cordialement.
Daniel
"Pierre52" <pierre52@tiscali.fr> a écrit dans le message de news:
%23c%23zhyCuHHA.3476@TK2MSFTNGP02.phx.gbl...
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire:
ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
Sub test() Dim Com As String, Rep As String On Error Resume Next Rep = InputBox("Entrez le texte à ajouter") Com = Selection.Comment.Text Selection.ClearComments Selection.AddComment If Com <> "" Then Selection.Comment.Text Text:=Com & Chr(10) & Rep Else Selection.Comment.Text Rep End If End Sub
Cordialement. Daniel "Pierre52" a écrit dans le message de news: %23c%
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Pierre52
juste un petit truc comment faire pour juste aque cela s'écrive sur la ligne en dessous et non que ça saute 1 ligne en plus.
encore merci
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
juste un petit truc
comment faire pour juste aque cela s'écrive sur la ligne en dessous et
non que ça saute 1 ligne en plus.
encore merci
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un
commentaire: ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
juste un petit truc comment faire pour juste aque cela s'écrive sur la ligne en dessous et non que ça saute 1 ligne en plus.
encore merci
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Michel Pierron
Bonjour Pierre52; Modifie la procédure de Daniel ainsi:
Sub test() Dim Com As String, Rep As String On Error Resume Next Rep = InputBox("Entrez le texte à ajouter") If Rep = "" Then Exit Sub Com = Selection.Comment.Text If Len(Com) Then Rep = Com & Chr(10) & Rep ActiveCell.ClearComments ActiveCell.AddComment ActiveCell.Comment.Text Rep ActiveCell.Comment.Shape.TextFrame.AutoSize = True End Sub
MP
"Pierre52" a écrit dans le message de news:
juste un petit truc comment faire pour juste aque cela s'écrive sur la ligne en dessous et non que ça saute 1 ligne en plus.
encore merci
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Bonjour Pierre52;
Modifie la procédure de Daniel ainsi:
Sub test()
Dim Com As String, Rep As String
On Error Resume Next
Rep = InputBox("Entrez le texte à ajouter")
If Rep = "" Then Exit Sub
Com = Selection.Comment.Text
If Len(Com) Then Rep = Com & Chr(10) & Rep
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Rep
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
End Sub
MP
"Pierre52" <pierre52@tiscali.fr> a écrit dans le message de news:
uMZzZaNuHHA.3356@TK2MSFTNGP03.phx.gbl...
juste un petit truc
comment faire pour juste aque cela s'écrive sur la ligne en dessous et
non que ça saute 1 ligne en plus.
encore merci
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un
commentaire: ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
Bonjour Pierre52; Modifie la procédure de Daniel ainsi:
Sub test() Dim Com As String, Rep As String On Error Resume Next Rep = InputBox("Entrez le texte à ajouter") If Rep = "" Then Exit Sub Com = Selection.Comment.Text If Len(Com) Then Rep = Com & Chr(10) & Rep ActiveCell.ClearComments ActiveCell.AddComment ActiveCell.Comment.Text Rep ActiveCell.Comment.Shape.TextFrame.AutoSize = True End Sub
MP
"Pierre52" a écrit dans le message de news:
juste un petit truc comment faire pour juste aque cela s'écrive sur la ligne en dessous et non que ça saute 1 ligne en plus.
encore merci
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
Pierre52
encore merci à tous
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
merci par avance de votre aide
encore merci à tous
bonsoir à toutes et tous,
à l'aide de cette procédure je veux rajouter du texte dans un
commentaire: ça fonctionne.
l'inconvénient majeur c'est que ça efface aussi le reste du
commentaire,pas glop du tout.
je voudrais que cela se rajoute à la fin sur une nouvelle ligne
à l'aide de cette procédure je veux rajouter du texte dans un commentaire: ça fonctionne. l'inconvénient majeur c'est que ça efface aussi le reste du commentaire,pas glop du tout. je voudrais que cela se rajoute à la fin sur une nouvelle ligne
