probleme de addcomment

C

chico

Guest
bonsoir a tous

voila mon probleme

pour ajouter un commentaire en vb
range('A1').addcomment 'mon titre'

mais si je veux faire une boucle pour qu'a chaque passage, ca rajoute un nom au commentaire ca marche pas, je sait pas comment faire.

exemple

---------------------
titre = False
For i = 0 To 32
If o7 = cel.Offset(i) Then
If titre = False Then
Range('o7').AddComment 'Anniversaire de:'
End If
Range('o7').AddComment Chr(13) & cel.Offset(0, -4).Value
Range('o7').Comment.Visible = False
titre = True
End If
Next i
--------------------
en faite, si le test de la boucle est vrai, ca rajoute un nom au commentaire de la cellule O7.

ce qui donnerai:
Anniversaire de:
Paul
Vanessa
Pierre

mais j'ai une erreur avec ce petit code d'exemple que j'ai mis en haut,

Pouvez vous m'aider svp

merci
Amicalement
-Chico-
 

Hervé

XLDnaute Barbatruc
Bonsoir chico


Difficile de répondre sans voir un peu plus de code, par contre quelque chose me surprend dans ton code :

If o7 = cel.Offset(i) Then

j'aurais opté pour un range('o7')=cel.offset(i) then

si ceci ne corrige pas ton souci, reviens nous le dire.

salut
 
C

chico

Guest
salut hervé merci de m'aider

voici le petit essai:

Sub essaicommentaire()
Dim cel As Range
Dim titre As Boolean
Dim o7 As Range

Set cel = Worksheets('Calendrier_An').Range('U3')
Set o7 = Worksheets('Calendrier_An').Range('O7')

titre = False
For i = 0 To 32
If o7 = cel.Offset(i) Then
If titre = False Then
Range('o7').AddComment 'Anniversaire de:'
End If
Range('o7').AddComment Chr(13) & cel.Offset(0, -4).Value & ' ' & cel.Offset(0, -3).Value & ' ' & cel.Offset(0, -1).Value & ' an'
Range('o7').Comment.Visible = False
titre = True
End If
Next i
End Sub

a+ merci encore
 

Hervé

XLDnaute Barbatruc
re chico

:)

très difficile sans voir le fichier.

Je crois que l'on ne peut pas créer un commentaire (addcomment) sur une cellule si celle-ci en contient déjà un, j'ai donc rajouté une ligne pour le addcomment.

je pense avoir corrigé la syntaxe pour le rajout de commentaire.

mais sans certitude. Si ceci n'allait pas, il serait bien de nous faire parvenir un fichier exemple.

Dim cel As Range
Dim titre As Boolean
Dim o7 As Range

Set cel = Worksheets('Calendrier_An').Range('U3')
Set o7 = Worksheets('Calendrier_An').Range('O7')

titre = False
For i = 0 To 32
If o7 = cel.Offset(i) Then
If titre = False Then
If Not o7.Comment Is Nothing Then o7.Comment.Delete
o7.AddComment.Text 'Anniversaire de:'
End If
o7.Comment.Text o7.Comment.Text & Chr(13) & cel.Offset(0, -4).Value & ' ' & cel.Offset(0, -3).Value & ' ' & cel.Offset(0, -1).Value & ' an'
o7.Comment.Visible = False
titre = True
End If
Next i

salut
 
C

chico

Guest
g reussi en mettant tout sur une variable string avant de le metre dans le addcomment:

Sub essaicommentaire()
Dim cel As Range
Dim titre As Boolean
Dim o7 As Range
Dim com As String

Set cel = Worksheets('Calendrier_An').Range('U3')
Set o7 = Worksheets('Calendrier_An').Range('O7')
titre = False
For i = 0 To 29
If o7 = cel.Offset(i) Then
If titre = False Then
com = 'Anniversaire de:'

End If
com = com & Chr(10) & cel.Offset(i, -4).Value & ' ' & cel.Offset(i, -3).Value & ' ' & cel.Offset(i, -1).Value & ' an'
Range('o7').Comment.Visible = False
titre = True
End If
Next i
Range('o7').Comment.Text Text:=com
End Sub

je suis peut etre un peut spagnetti pour mes ptits prog mais ca marche hihih et aussi je debute dans la programmation VB
 

Discussions similaires

Statistiques des forums

Discussions
312 896
Messages
2 093 387
Membres
105 716
dernier inscrit
jrmdprt