les objets de l'USF doivent prendre les valeurs de la cellule active

[pascal21]

ActiveCell.Value = ComboBox1.Value & " " & "à" & " " & Tbx1.Value & Chr(10) & ListBox1.Value & " " & "RDV " & TBx2.Value

bonsoir à tous
j'utilise ce code pour inscrire dans une cellule le contenu de ces objets
mais si je reviens dans une cellule déjà saisie
j'aimerais que le contenu de la cellule ne s'efface pas
mais que les objets prennent chacun la valeur qui lui est destinée
afin ne n'être pas obligé de re-saisir les données
j'aurai d'autres questions sur le même type de fichier

 

[pascal21]

Re : les objets de l'USF doivent prendre les valeurs de la cellule active

RE
32 visites et pas une seule réponse malgré un exemple joint
à mon avis la question est mal posée
j'aimerais que lorsque je retourne dans une cellule déjà saisie, les données dans cette cellules ne s'effacent pas
comme c'est la cas actuellement
merci

J'ai trouvé une astuce qui permet de tricher un peu
j'ai rajouté un bouton en enlevant une partie du code
bonne soirée

 

[STephane]

Re : les objets de l'USF doivent prendre les valeurs de la cellule active

bonjour,

je n'avais pas vu que les techniques que tu utilisais déjà, je suis donc parti dans la solution ci-dessous, elle suppose que chacune des textbox concernées ait un propriété tag du type "txb Lieu de RDV".

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Load UserForm1
UserForm1.Top = Target.Top + 40 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm1.Left = 150
Call les_objets_de_l_USF_doivent_prendre_les_valeurs_de_la_cellule_active__Fil_XLD_179195_v1(Target)
Cancel = True
UserForm1.Show vbModeless
End Sub


Sub les_objets_de_l_USF_doivent_prendre_les_valeurs_de_la_cellule_active__Fil_XLD_179195_v1(rg As Range)
Dim TextEntries As Variant
Dim Text2Parse As String
Dim SeparatorPosition&
Dim ctl As Control
' Stocker le texte du commentaire
Text2Parse = rg.Comment.Shape.TextFrame.Characters.Text

'Trouver toutes les saisies du commentaires qui semblent séparées par un saut de ligne (vbLf)
TextEntries = Split(Text2Parse, vbLf)
For i = 0 To UBound(TextEntries)
SeparatorPosition = InStr(1, TextEntries(i), ":", vbTextCompare)
If SeparatorPosition = 0 Then GoTo nnext
TextField = Mid(TextEntries(i), 1, SeparatorPosition - 1)
TextFieldContents = Mid(TextEntries(i), SeparatorPosition + 1)
Debug.Print TextField & "," & TextFieldContents

For Each ctl In UserForm1.Controls
If Mid(ctl.Tag, 3) = TextField Then ctl.Tag = TextFieldContents
Next ctl
nnext:
Next i
End Sub

 

[pascal21]

Re : les objets de l'USF doivent prendre les valeurs de la cellule active

bonjour je te remercie pour la solution apportée

je vais tester dans mon classeur car ça à l'air moins compliqué que mon astuce qui constait à copier dans une cellule le contenu de la cellule active puis extraire les éléments avec gauche et cherche
ça marche aussi mais c'est une usine à gaz