Code VBA excel pour garder un commentaire existantRésolu

Question

Bonjour, 
J'ai crée un useform, ou l'utilisateur peut laisser un commentaire et d'autres données (suite a une validation par bouton et en selectionnant la ligne a modifier)
Private Sub enregistrer_Click()If ligne.Value = "" Then    Exit SubElseIf ligne.Value = "" Then    MsgBox ("Tu n'as pas donné le numero de ligne")    Exit SubEnd IfIf ComboBox1.Value = "" Then    MsgBox ("Tu n'as pas renseigné le statut de la tache")    Exit SubEnd IfIf commentaire.Value = "" Then    Exit SubEnd IfCellB = "E" & ligne.ValueCellC = "C" & ligne.ValueCellD = "F" & ligne.ValueCellE = "D" & ligne.ValueEnd If    Worksheets("gestionnaire de taches").Range(CellB) = Environ("username")    Worksheets("gestionnaire de taches").Range(CellC) = ComboBox1    Worksheets("gestionnaire de taches").Range(CellD) = commentaire    Worksheets("gestionnaire de taches").Range(CellE) = MonthView    Unload MeEnd Sub
Dans ma macro je n avais pas reflechis que si un autre utilisateur rentrait d'autre données ca ecrasé les anciennes (la loose).
du coup je voulias rajouté un bout de macro du style
If Not IsEmpty(Range("A1")) ThenRange("A2") = Range("A2") & Chr(10) & Environ("username") & ":" & Range("A1")ElseRange("A2") = ""End If
Afin de conserver les commentaire des differents utlisateur, mais ca ne marche pas...
Pouvez m expliquer ou se trouve mon probleme svp

jordane45 · Answer

Bonjour,
 si un autre utilisateur rentrait d'autre données 
Ton classeur peut être utilisé par plusieurs utilisateurs en même temps ?
Si tel est le cas.... est il "partagé" ?
Si oui... avant de faire une modif dedans, il te faut faire un Sav pour voir les nouveaux ajouts.

mikmak78 · Answer

Salut Jordan

Oui tout a fait dans mon code je rajouterais un save, mais il faut srutou que j arrive a avoir tous les commentaires dans la meme cellule....

cs_Le Pivert · Answer

Bonjour,

Voici un exemple pour ajouter un commentaire à un autre commentaire. 
A adapter:

Sub AjouterConCellule()
  Dim Annu, Rep As String
  Rep = InputBox("Entrez le texte à ajouter à ajouter au commentaire de la Cellule A1")
      If StrPtr(Rep) = 0 Then
         MsgBox "Vous avez appuyé sur le bouton Annuler"
      Else
         With Range("A1")
            .Comment.Text Text:=[A1].Comment.Text & Chr(10) & Rep
         End With
      End If
End Sub

cs_Le Pivert · Answer

Salut Jordane,

On peut faire la même chose avec un ajout de texte dans une cellule:

Sub Ajoutertexte()
  Dim Annu, Rep As String
  Rep = InputBox("Entrez le texte a ajouter à la Cellule B1")
      If StrPtr(Rep) = 0 Then
         MsgBox "Vous avez appuyé sur le bouton Annuler"
      Else
       Range("B1") = [B1].Text & Chr(10) & Rep
End If
End Sub

mikmak78 · Answer

merci merci, apres mon xième test j'ai trouvé une autre soluce
Private Sub enregistrer_Click()If ligne.Value = "" Then    Exit SubElseIf ligne.Value = "" Then    MsgBox ("Tu n'as pas donné le numero de ligne")    Exit SubEnd IfIf ComboBox1.Value = "" Then    MsgBox ("Tu n'as pas renseigné le statut de la tache")    Exit SubEnd IfIf commentaire.Value = "" Then    Exit SubEnd IfCellB = "E" & ligne.ValueCellC = "C" & ligne.ValueCellD = "F" & ligne.ValueCellE = "D" & ligne.ValueEnd If    Worksheets("gestionnaire de taches").Range(CellB) = Environ("username")    Worksheets("gestionnaire de taches").Range(CellC) = ComboBox1    Worksheets("gestionnaire de taches").Range(CellD) = Range(CellD) & Chr(10) & Environ("username") & ":" & commentaire    Worksheets("gestionnaire de taches").Range(CellE) = MonthView    Unload MeEnd Sub

Code VBA excel pour garder un commentaire existant

5 réponses

Votre réponse

Discussions similaires