Si je modifie la ligne par DrawingObjects:=3D false je n'ai plus l'erreur a=
u momeny de l'=E9criture des commentaires.
Le code d'=E9criture des commentaire est le suivant:
With Worksheets("PARAMETRAGE")
For Each c In .Range("E6:E" & nbCompBac + 5)
With Worksheets("Suivi CCF_BAC")
x =3D 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=E9finie 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?
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
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:
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?
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
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" a écrit dans le message de news:
Bonjour,
Pour la protection de mes feuilles, j'utilise ce code:
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
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" <jthillard@gmail.com> a écrit dans le message de news:
625ef602-99fd-47d7-9ecd-e8bbcf7f0b29@googlegroups.com...
Bonjour,
Pour la protection de mes feuilles, j'utilise ce code:
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?
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
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
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.
