Macro - ajouter texte à une cellule non vide

Bonjour à tous,

j'utilise une macro qui enregistre un commentaire dans un tableau en fonction de la valeur de certaines cellules.

J'aimerai pouvoir enregistrer 2 commentaires dans la même cellule sans que le 2eme commentaire généré par la macro n'écrase le premier.

voici une partie de ma macro actuelle

If Range("a3") = True Then
     If Range("c20") <> "" Then
          Sheets("enregistrements").Range("a2").Offset(0, 10) = "com1 "
     Else
          Sheets("enregistrements").Range("a2").Offset(0, 10) = "com2"
     End If
End If
If Range("a4") = True Then
     If Range("c23") <> "" Then
           Sheets("enregistrements").Range("a2").Offset(0, 10) = "com3"
     Else
           Sheets("enregistrements").Range("a2").Offset(0, 10) = "com4"
     End If
End If

hotshot162 a écrit :

Bonjour à tous,

j'utilise une macro qui enregistre un commentaire dans un tableau en fonction de la valeur de certaines cellules.

J'aimerai pouvoir enregistrer 2 commentaires dans la même cellule sans que le 2eme commentaire généré par la macro n'écrase le premier.

voici une partie de ma macro actuelle

bonjour,

par exemple,

If Range("a3") = True Then
     If Range("c20") <> "" Then
          com = "com1 "
     Else
          com = "com2"
     End If
End If
If Range("a4") = True Then
     If Range("c23") <> "" Then
           com = com & " com3"
     Else
           com = com & " com4"
     End If
          Sheets("enregistrements").Range("a2").Offset(0, 10) = com
End If

merci

tellement simple que je n'y ai pas pensé

mais Sheets("enregistrements").Range("a2").Offset(0, 10) = com doit etre mis apres le dernier end if

hotshot162 a écrit :

merci

tellement simple que je n'y ai pas pensé

mais Sheets("enregistrements").Range("a2").Offset(0, 10) = com doit etre mis apres le dernier end if

en effet,