MikeBelgique
XLDnaute Occasionnel
Bonjour forum, suite migration 2003 vers 2010, je suis confronté à quelques soucis dont le suivant.
une macro sous 2003 (établie grâce à Spitnolan08 et Staple1600) ne fonctionne plus sous 2010
Sub chargt()
Dim i As Integer
Dim MaCel As Range
For i = 1 To Sheets("A").Range("b65500").End(xlUp).Row
Set MaCel = Sheets("A").Cells(i, "B")
If MaCel <> "" Then
Sheets("Feuil3").Range("A" & i).ClearComments
Sheets("Feuil3").Range("A" & i).AddComment
Sheets("Feuil3").Range("A" & i).Comment.Visible = False
Sheets("Feuil3").Range("A" & i).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & MaCel.Value
Else
Sheets("Feuil3").Range("A" & i).ClearComments
End If
Next
For i = 1 To Sheets("b").Range("b65500").End(xlUp).Row
Set MaCel = Sheets("b").Cells(i, "B")
If MaCel <> "" Then
Sheets("Feuil3").Range("f" & i).ClearComments
Sheets("Feuil3").Range("f" & i).AddComment
Sheets("Feuil3").Range("f" & i).Comment.Visible = False
Sheets("Feuil3").Range("f" & i).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & MaCel.Value
Else
Sheets("Feuil3").Range("F" & i).ClearComments
End If
Next
End Sub
lorsque une modif est apporté voici les erreurs rencontrées :
impossibilité car feuille protégé (les cases en question ne le sont pas et une exception était à l'époque stipulé sur la feuille et dans thisworkbook : Private Sub Workbook_Open()
Feuil1.Protect Password:="toto", contents:=True, DrawingObjects:=False, Userinterfaceonly:=True
End Sub
ligne de commande surlignée jaune Sheets("Feuil3").Range("f" & i).AddComment
ensuite :
erreur automation:
l'objet invoqué s'est déconnecté de ses clients
ligne commande surlignée jaune Sheets("Feuil3").Range("f" & i).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & MaCel.Value
le lien du fil de l'époque avec le fichier de l'époque
https://www.excel-downloads.com/threads/donnees-dans-commentaire.78592/
Merci d'avance pour l'aide que vous pourrez m'apporter.
une macro sous 2003 (établie grâce à Spitnolan08 et Staple1600) ne fonctionne plus sous 2010
Sub chargt()
Dim i As Integer
Dim MaCel As Range
For i = 1 To Sheets("A").Range("b65500").End(xlUp).Row
Set MaCel = Sheets("A").Cells(i, "B")
If MaCel <> "" Then
Sheets("Feuil3").Range("A" & i).ClearComments
Sheets("Feuil3").Range("A" & i).AddComment
Sheets("Feuil3").Range("A" & i).Comment.Visible = False
Sheets("Feuil3").Range("A" & i).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & MaCel.Value
Else
Sheets("Feuil3").Range("A" & i).ClearComments
End If
Next
For i = 1 To Sheets("b").Range("b65500").End(xlUp).Row
Set MaCel = Sheets("b").Cells(i, "B")
If MaCel <> "" Then
Sheets("Feuil3").Range("f" & i).ClearComments
Sheets("Feuil3").Range("f" & i).AddComment
Sheets("Feuil3").Range("f" & i).Comment.Visible = False
Sheets("Feuil3").Range("f" & i).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & MaCel.Value
Else
Sheets("Feuil3").Range("F" & i).ClearComments
End If
Next
End Sub
lorsque une modif est apporté voici les erreurs rencontrées :
impossibilité car feuille protégé (les cases en question ne le sont pas et une exception était à l'époque stipulé sur la feuille et dans thisworkbook : Private Sub Workbook_Open()
Feuil1.Protect Password:="toto", contents:=True, DrawingObjects:=False, Userinterfaceonly:=True
End Sub
ligne de commande surlignée jaune Sheets("Feuil3").Range("f" & i).AddComment
ensuite :
erreur automation:
l'objet invoqué s'est déconnecté de ses clients
ligne commande surlignée jaune Sheets("Feuil3").Range("f" & i).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & MaCel.Value
le lien du fil de l'époque avec le fichier de l'époque
https://www.excel-downloads.com/threads/donnees-dans-commentaire.78592/
Merci d'avance pour l'aide que vous pourrez m'apporter.