XL 2016 pb ajout de textbox dans cellule via ligne trouvée par combobox

Maxxx62

XLDnaute Nouveau
bonjour, je sais pas si c très clair, mais en gros je veux insérer dans une cellule (un textbox), avec pour conditions que la ligne soit choisie par un combobox.
le combobox est bon mais je ne sais pas comment l'inclure dans la localisation de la cellule.
je vous joint mon code pour être plus clair.
merci d'avance
 

Pièces jointes

  • Clefs.xlsm
    34.5 KB · Affichages: 11

fanch55

XLDnaute Barbatruc
Bonjour,
Code pour l'userform2 :
VB:
Option Explicit
Private Sub CommandButton1_Click()
Dim R As Range
    Set R = Worksheets("gestion des clefs").Columns("B").Find(ComboBox1, [B1])
    If Not R Is Nothing Then
        R.Offset(, 3) = Me.TextBox1
        Charge_Combobox
    End If
    
End Sub

Private Sub UserForm_Initialize()
  TextBox1.Value = Format(Now(), "mm/dd/yyyy-hh:mm")
  Charge_Combobox
End Sub
Sub Charge_Combobox()
  Dim Lig As Long
  Me.ComboBox1.Clear
  With Worksheets("gestion des clefs")
    For Lig = 2 To .Range("B" & Rows.Count).End(xlUp).Row
        If .Range("B" & Lig) <> "" And .Range("E" & Lig) = "" Then
          ComboBox1 = .Range("B" & Lig)
          If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem .Range("B" & Lig)
        End If
    Next Lig
  End With

End Sub
 

Discussions similaires

Réponses
4
Affichages
714

Statistiques des forums

Discussions
311 716
Messages
2 081 828
Membres
101 823
dernier inscrit
mohamed3s