Commentaire et userform

Bonjour Forum

y a t il un moyen d'ajouter un commentaire à une cellule a travers un USERFORM???

et bien sure, après sollicitation de cette même cellule le commentaire sera affiché sur le USERFORM

merci d'avance

bonsoir,

si tu sais comment faire avec le contenu de cellules, cela ne devrait pas être trop compliqué

'copier le commentaire lié à A1 
a = Cells(1, 1).Comment.Text
' remplacer un commentaire existant en A1 
Cells(1, 1).Comment.Text Text:="Nouveau commentaire"

Bonsoir iliyes,

Essaies ceci, les informations de la texbox1 sont ajoutées au commentaire de la cellule A1 via l'Userform avec bouton de commande.

Private Sub CommandButton1_Click()
   With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=TextBox1.Value
   End With
End Sub

merci

c'est fabuleux

vive EXCEL PRATIQUE et les membres du FORUM

bonjour FABULEUX FORUM

j'ai hier mis la mention commentaire solutionné, merci.

aujourd'hui dans la même ligné je voudrais avoir la solution de la suite si c'est possible

j'ai mis et ça fonctionne un commentaire a travers un TEXTBOX dans un USERFORM, mais la je voudrais ajouter un autre commentaire à la suite du 1 ier!!! est ce possible

merci

bonjour,

voici le principe, à adapter à ton cas précis

'copier le commentaire lié à A1 
a = Cells(1, 1).Comment.Text
' remplacer un commentaire existant en A1 
Cells(1, 1).Comment.Text Text:=a & vbcrlf & "Nouveau commentaire"

merci a vous

je ne sait pas ce qui cloche

j'ai mis cela

             b = Me.TextBox20.Value
             a = Cells(i, 2).Comment.Text
             ' Cells(i, 2).ClearComments
             ' Cells(i, 2).AddComment
             Cells(i, 1).Comment.Text Text:=b & vbCrLf & a

merci pour l'aide

Bonsoir,

quel est le problème ? un message d'erreur ?

il a peut-être aussi une faute de frappe tu prends le commentaire de B1, tu le complètes avec le contenu de ta textbox et tu le mets en A1

proposition de correction, message d'erreur + faute de frappe

 b = Me.TextBox20.Value
on error resume next            
a = Cells(i, 2).Comment.Text

Cells(i, 2).ClearComments
on error goto 0           
Cells(i, 2).AddComment
Cells(i, 2).Comment.Text Text:=b & vbCrLf & a

bonjour

désole H2SO4, mais cela ne fonctionne toujours pas

!!!

merci pour l'aide

Bonjour iliyes

Toujours solution Userform mais avec deux textbox.... il y a peut-être plus simple !

Private Sub CommandButton1_Click()

If TextBox1 = True Then
 With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=TextBox1.Value
 End With
ElseIf TextBox2 = True Then
  With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=TextBox2.Value
 End With
Else
 With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=TextBox1.Value & " " & TextBox2.Value
 End With
End If
End Sub
166commantaires.zip (13.30 Ko)

bonjour

merci pour la réactivité

mais je crois que ça ne fonctionne toujours pas

si j'ouvre un 1 iere fois, c'est OK

si j'ouvre le userform une 2 ieme fois, et que je laisse le usertext 1 vide mais je remplie le usertext 2 et ben il efface l'antecedent

le but de tous cela, c'est de laisser des commentaire et ne pas effacer les anciens en ajoutant tours les uns sur les autres

merci

Bonsoir,

code modifié pour récupérer le commentaire existant suivant la méthode proposée précédemment.

Private Sub CommandButton1_Click()
On Error Resume Next
a = Range("A1").Comment.Text
On Error GoTo 0
If TextBox1 = True Then
 With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=a & TextBox1.Value
 End With
ElseIf TextBox2 = True Then
  With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=a & TextBox2.Value
 End With
Else
 With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=a & TextBox1.Value & " " & TextBox2.Value
 End With
End If
End Sub

Bonjour

merci,, beaucoup H2SO4

je ne saurais comment dire,..... cela fonctionne, mais le HIC que je n'arrive pas a mettre au point, c'est que j'ai seulement 1 TEXTBOX

..... depuis un bon moment je ne fait que des erreurs

merci pour l'aide

Bonsoir,

avec un textbox

Private Sub CommandButton1_Click()
On Error Resume Next
a = Range("A1").Comment.Text
On Error GoTo 0
 With Range("A1")
    .ClearComments
    .AddComment
    .Comment.Text Text:=a & " " &  me.TextBox1.Value
 End With
End Sub

re

voila ce que j'ai fait comme code

je n'arrive pas a ajouter le 2ieme texte au premier

le premier text s'affiche correctement

mais a la 2ieme manip.....le premier text reste mais le 2ieme ne s'ajoute pas!!!

merci

Private Sub CommandButton1_Click()
' AjoutVN Macro verifie avant l'existance du châssis en stock, sinon il l'ajoute
Dim i As Integer
Dim a As Integer
Dim b As Integer

With Sheets("2013")
Application.ScreenUpdating = False
    If Len(Me.TextBox1) <> 8 Then
        MsgBox "Veuillez introduire les 8 derniers chiffres du châssis"
        Exit Sub
    End If

    For i = 1 To Range("B1000000").End(xlUp).Row
        If Cells(i, 2) = Val(Me.TextBox1.Value) Then
        If Cells(i, 2).Interior.Color = 65535 Then
        MsgBox ("Ce châssis existe déjà, je vais le mettre en stock local" & vbNewLine & "à la date d'aujourd'hui")
        Cells(i, 2).Interior.Color = -4142
        Cells(i, 1) = "t"
        Cells(i, 3) = Range("J2")

            On Error Resume Next
                a = Range("B" & i).Comment.Text
            On Error GoTo 0
                If TextBox20 = True Then
               With Range("B" & i)
                .ClearComments
                .AddComment
                .Comment.Text Text:=a & Me.TextBox20.Value
               End With
        End If

        Range("I2").Select
        Exit Sub
        End If
        End If
    Next i

    For i = 1 To .Range("B1000000").End(xlUp).Row
        'If Cells(I, 2) = Me.TextBox1 Then
        If Range("B" & i).Value = Val(Me.TextBox1.Value) Then
        Me.TextBox5.Value = Cells(i, 2)
        Me.TextBox6.Value = " Pas encore affecté "
        Me.TextBox7.Value = " Pas encore affecté "
        Me.TextBox8.Value = " Pas encore affecté "
        MsgBox ("Ce châssis existe déjà dans le stock ATTENTION!!")
        Exit Sub
        End If
    Next i

    For i = 1 To .Range("D1000000").End(xlUp).Row
        If Cells(i, 4) = Val(Me.TextBox1.Value) Then
        Me.TextBox5.Value = Cells(i, 4)
        Me.TextBox6.Value = Cells(i, 7)
        Me.TextBox7.Value = Cells(i, 5)
        Me.TextBox8.Value = Cells(i, 6)

        MsgBox ("Ce châssis est déjà livré ATTENTION!!")
        Exit Sub
        End If
    Next i

    Rows(8).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Cells(8, 1) = "t"
        Cells(8, 2) = Val(Me.TextBox1.Value)
        Cells(8, 3) = .Range("J2")
        Cells(8, 2).ClearComments
        Cells(8, 2).AddComment
        Cells(8, 2).Comment.Text Text:=TextBox20.Value

MsgBox ("Châssis ajouté dans le stock")
Cells(2, 9).Select
Application.ScreenUpdating = True

End With
Call InitListbox
Me.TextBox1.Value = ""
End Sub

bonjour,

fais les corrections ci-dessous et dis-moi si le commentaire que tu veux ajouter est bien affiché dans le msgbox

Private Sub CommandButton1_Click()
' AjoutVN Macro verifie avant l'existance du châssis en stock, sinon il l'ajoute
Dim i As Integer
Dim a As Integer
Dim b As Integer

With Sheets("2013")
Application.ScreenUpdating = False
    If Len(Me.TextBox1) <> 8 Then
        MsgBox "Veuillez introduire les 8 derniers chiffres du châssis"
        Exit Sub
    End If

    For i = 1 To Range("B1000000").End(xlUp).Row
        If Cells(i, 2) = Val(Me.TextBox1.Value) Then
        If Cells(i, 2).Interior.Color = 65535 Then
        MsgBox ("Ce châssis existe déjà, je vais le mettre en stock local" & vbNewLine & "à la date d'aujourd'hui")
        Cells(i, 2).Interior.Color = -4142
        Cells(i, 1) = "t"
        Cells(i, 3) = Range("J2")

            On Error Resume Next
                a = Range("B" & i).Comment.Text
            On Error GoTo 0
' If TextBox20 = True Then
               msgbox me.textbox20.value
               With Range("B" & i)
                .ClearComments
                .AddComment
                .Comment.Text Text:=a & Me.TextBox20.Value
               End With
'End If

        Range("I2").Select
        Exit Sub
        End If
        End If
    Next i

    For i = 1 To .Range("B1000000").End(xlUp).Row
        'If Cells(I, 2) = Me.TextBox1 Then
       If Range("B" & i).Value = Val(Me.TextBox1.Value) Then
        Me.TextBox5.Value = Cells(i, 2)
        Me.TextBox6.Value = " Pas encore affecté "
        Me.TextBox7.Value = " Pas encore affecté "
        Me.TextBox8.Value = " Pas encore affecté "
        MsgBox ("Ce châssis existe déjà dans le stock ATTENTION!!")
        Exit Sub
        End If
    Next i

    For i = 1 To .Range("D1000000").End(xlUp).Row
        If Cells(i, 4) = Val(Me.TextBox1.Value) Then
        Me.TextBox5.Value = Cells(i, 4)
        Me.TextBox6.Value = Cells(i, 7)
        Me.TextBox7.Value = Cells(i, 5)
        Me.TextBox8.Value = Cells(i, 6)

        MsgBox ("Ce châssis est déjà livré ATTENTION!!")
        Exit Sub
        End If
    Next i

    Rows(8).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Cells(8, 1) = "t"
        Cells(8, 2) = Val(Me.TextBox1.Value)
        Cells(8, 3) = .Range("J2")
        Cells(8, 2).ClearComments
        Cells(8, 2).AddComment
        Cells(8, 2).Comment.Text Text:=TextBox20.Value

MsgBox ("Châssis ajouté dans le stock")
Cells(2, 9).Select
Application.ScreenUpdating = True

End With
Call InitListbox
Me.TextBox1.Value = ""
End Sub
 

bonjour

merci encore une fois

voici le résultat

dans le COMMENTAIRE j'ai le premier TEXTBOX qui est remplacé par 0 et a la suite j'ai le 2ieme TEXTBOX( c'est déjà un pas)

ce qui me der range c'est que je n'ai pas pu avoir les 2 TEXTBOX ensemble

merci encore une fois

Bonjour,

je crois que ce serait plus simple si tu nous envoyais ton fichier et nous disais ce que tu veux obtenir comme résultat.

bonjour

désolé pour le retard ( je ne voulais pas au début envoyer de fichier, non pas pour cachet mais pour apprendre)

donc ci joint le fichier

cordialement

42inventaire-v-3-2.xlsm (156.81 Ko)

bonjour,

merci pour le fichier.

désolé, mais je ne comprends ce que tu essaies de faire. peux tu expliquer ce que tu attends comme résultat ? à la suite de quelles actions ?

Rechercher des sujets similaires à "commentaire userform"