Bonjour,
J'ai créé un UserForm "Form_Wsite"
A l'intérieur de l'UserForm, entre autre, une TextBox "Old_Comment"
et un bouton "ButtonVerifComm"
Le tout est sur une feuille "Wsite" dont la colonne D contient des cellules avec ou sans commentaire.
Mon objectif :
Récupérer les commentaires dans la TextBox, et si il n'y en a pas laisser la TextBox vide.
Avec le code ci-dessous, lorsqu'il y a un commentaire tout va bien, mais en l'absence de commentaire ça plante.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ButtonVerifComm_Click()
If Cells(ActiveCell.Row, 4).Comment.Text <> "" Then
 
Old_Comment = Cells(ActiveCell.Row, 4).Comment.Text
 
Else
 
Old_Comment = ""
 
End If
 
End Sub
Pouvez vous m'indiquer ou est mon erreur ?