Bonjour,
J'ai un code qui ne fonctionne pas, mais j'ignore pourquoi.
Pourtant, en fouillant les forums, c'est comme cela qu'ils disent de faire mais ils ne parlent jamais avec Cells, uniquement avec Range.
Private Sub Worksheet_Open()
For i = 1 To 26
For j = 1 To 30
Sheets("liste_codee").Cells(i, j).Value = Left(Sheets("Savoirs(liste)").Cells(i, j), 4)
Sheets("liste_codee").Cells(i, j).Select
Sheets("liste_codee").Cells(i, j).AddComment
Sheets("liste_codee").Cells(i, j).Comment.Text "Essai"
Next j
Next i
End Sub
Ici, j'ai écrit "essai" car je voulais voir ce qui posait problème.
En vrai, je voudrais que dans la cellule Cells(i,j) de la page liste_codee, il y ait en commentaire la valeur de la cellule Cells(i,j) de la page Savoirs(liste).
Voilà, si quelqu'un a la gentillesse de m'aider à comprendre mon erreur et à la corriger, je le remercie d'avance ainsi que tous ceux qui essaieront.
Désolée, je me réponds moi-même.
A priori, lors d'un essai, j'avais mis un commentaire dans une des cellules et c'est ce qui fait que ça ne fonctionnait pas.
Désolée du dérangement.
