Erreur à l'écriture de commentaires

Le
JP
Bonjour,

Pour la protection de mes feuilles, j'utilise ce code:

For i = 1 To Sheets.Count

Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=T=
rue, UserInterfaceOnly:=True

Next i

Si je modifie la ligne par DrawingObjects:= false je n'ai plus l'erreur a=
u momeny de l'écriture des commentaires.
Le code d'écriture des commentaire est le suivant:

With Worksheets("PARAMETRAGE")

For Each c In .Range("E6:E" & nbCompBac + 5)
With Worksheets("Suivi CCF_BAC")
x = Application.Match(c, .Range(.Cells(11, 3), .Cells(11, nbC=
ompBac + 3)), 0)
If Not IsError(x) Then
With .Range(.Cells(11, 3), .Cells(11, nbCompBac + 3))(1, x)
.ClearComments
.AddComment CStr(c.Offset(, 1).Value)
End With
Else
Err.Clear
End If
End With
Next
End With


L'erreur 1004 (Erreur définie par l'application ou par l'objet) se fait=
sur la ligne .AddComment CStr(c.Offset(, 1).Value)


Que dois-je ajouter pour ne plus avoir cette erreur?

Merci

JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #25980612
Bonjour,
Je crois que tu n'as pas d'autre choix que "DrawingObjects:= false".
Cordialement.
Daniel


Bonjour,

Pour la protection de mes feuilles, j'utilise ce code:

For i = 1 To Sheets.Count

Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=True,
UserInterfaceOnly:=True

Next i

Si je modifie la ligne par DrawingObjects:= false je n'ai plus l'erreur au
momeny de l'écriture des commentaires. Le code d'écriture des commentaire est
le suivant:

With Worksheets("PARAMETRAGE")

For Each c In .Range("E6:E" & nbCompBac + 5)
With Worksheets("Suivi CCF_BAC")
x = Application.Match(c, .Range(.Cells(11, 3), .Cells(11,
nbCompBac + 3)), 0) If Not IsError(x) Then
With .Range(.Cells(11, 3), .Cells(11, nbCompBac + 3))(1, x)
.ClearComments
.AddComment CStr(c.Offset(, 1).Value)
End With
Else
Err.Clear
End If
End With
Next
End With


L'erreur 1004 (Erreur définie par l'application ou par l'objet) se fait sur
la ligne .AddComment CStr(c.Offset(, 1).Value)


Que dois-je ajouter pour ne plus avoir cette erreur?

Merci

JP
Jacky
Le #25980662
Bonjour,
Que dois-je ajouter pour ne plus avoir cette erreur?



Si tu veux laisser "DrawingObjects:=True"
Ceci après "With"
.Unprotect
et cela avant "End With"
.Protect
--
Salutations
JJ


"JP"
Bonjour,

Pour la protection de mes feuilles, j'utilise ce code:

For i = 1 To Sheets.Count

Sheets(i).Protect Password:="", DrawingObjects:=True, Contents:=True, UserInterfaceOnly:=True

Next i

Si je modifie la ligne par DrawingObjects:= false je n'ai plus l'erreur au momeny de l'écriture des
commentaires.
Le code d'écriture des commentaire est le suivant:

With Worksheets("PARAMETRAGE")

For Each c In .Range("E6:E" & nbCompBac + 5)
With Worksheets("Suivi CCF_BAC")
x = Application.Match(c, .Range(.Cells(11, 3), .Cells(11, nbCompBac + 3)), 0)
If Not IsError(x) Then
With .Range(.Cells(11, 3), .Cells(11, nbCompBac + 3))(1, x)
.ClearComments
.AddComment CStr(c.Offset(, 1).Value)
End With
Else
Err.Clear
End If
End With
Next
End With


L'erreur 1004 (Erreur définie par l'application ou par l'objet) se fait sur la ligne .AddComment
CStr(c.Offset(, 1).Value)


Que dois-je ajouter pour ne plus avoir cette erreur?

Merci

JP
JP
Le #25980862
Bonjour Jacky et Daniel,

Je vais essayer avec unprotect et protect car j'ai des objets qui par aille urs ne doivent pas être déplacés.

Je vous tiens au courant.

Merci

JP
JP
Le #25980882
Ca marche!

Merci à vous deux

JP
Publicité
Poster une réponse
Anonyme