Re : Donnees Dans Commentaire
Bonjour à toutes et tous,
Et oui je reviens encore à la charge mais j'ai beau me casser la tête, à tenter de transformer les codes repris dans le fichier joint, je n'arrive toujours pas à résoudre ce petit bug
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
a = Mid(Target.Address, 4)
If Not Intersect(Range("B2:b30"), Target) Is Nothing Then
If Target <> "" Then
Sheets("Feuil3").Range("A" & a).ClearComments
Sheets("Feuil3").Range("A" & a).AddComment
Sheets("Feuil3").Range("A" & a).Comment.Visible = False
Sheets("Feuil3").Range("A" & a).Comment.Text Text:="Mettre une croix si la personne suivante est en ordre" & Chr(10) & Target.Value
Else
Sheets("Feuil3").Range("A" & a).ClearComments
End If
End If
End Sub
tout fonctionne parfaitement pour les commentaires, et tant que je ne delete qu'une cellule à la fois c'est OK, mais si je selectionne plusieurs cellules d'une meme ligne ou de plusieurs lignes à la fois ou ne fusse qu'un copier coller de plus d'une cellule, il m'affiche le bug suivant
"erreur d'exécution 13" incompatibilité de type. et la ligne de code suivante est en jaune A = Mid(target.adress, 4), y aurait-il une âme charitable pour m'aider ou me diriger dans ce casse tête chinois, merci bien à vous